Signaler

Propagation d'information

Posez votre question Xenos1705 42Messages postés lundi 19 octobre 2015Date d'inscription 23 septembre 2016 Dernière intervention - Dernière réponse le 23 sept. 2016 à 17:12
Bonjour à tous,
Je vous explique mon pb:
J'ai une colonne A avec des infos provenant d'un autre fichier.
La colonne est composée comme suit:
A1: Pomme
A2:
A3:
A4: Poire
A5:
A6: Fraise
A7:
A8:
A9: Abricot
A10:
Maquestion est la suivante:
Comment, grâce à une macro, propager l'info qui se trouve au-dessus dans les lignes suivantes.
En résumé je souhaiterais que A2 et A3 = Pomme, que A5 = Poire, que A7 et A8 = Fraise et A10 = Abricot.
Petite subtilité: l'info A4 peut se trouver en A6 ou en A7 lors de la prochaine extraction de données. Dans la macro nous ne pouvons pas faire référence à A4 pour la poire par exemple, car "poire" pourrait se trouver en A10 lors de la prochaine extraction par exemple.
J'espère avoir été assez clair.
D'avance merci pour votre aide.
Xenos
Afficher la suite 
Utile
+0
moins plus
Bonjour

Option Explicit

Const co As Byte = 1
Const lideb As Byte = 2

Public Sub OK()
Dim li1 As Long, li2 As Long, lifin As Long, s As String
lifin = Cells(Rows.Count, co).End(xlUp).Row
li1 = lideb
Do
s = Cells(li1, co)
li2 = li1 + 1
While Cells(li2, co) = "" And li2 < lifin
Cells(li2, co) = s
li2 = li2 + 1
Wend
li1 = li2
Loop Until li1 >= lifin
Cells(li1 + 1, co) = Cells(li1, co)
End Sub

Cdlmnt
Ajouter un commentaire

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !