Aqua31
Messages postés5Date d'inscriptionmercredi 12 août 2009StatutMembreDernière intervention20 mai 2011
-
12 août 2009 à 16:17
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 2012
-
14 août 2009 à 08:26
onjour a tous,
Je suis nouveau dans le monde du VB et pour ainsi dire je n'y connais rien...
Je cherche a écrire un code pour réaliser ceci:
J'ai deux plages de données sur une même feuille de calcul. Chaque ligne de ma plage de données 1 (qui va de la ligne 1 a 2053) a une ligne qui lui correspond dans le plage de données 2 (lignes 2069 a 4441). Le point commun entre ces ligne est un numéro de client. Je cherche donc a coller a la suite de la ligne i de la plage 1 la ligne j de la plage 2 ayant le même numéro client. (je ne sais pas si c'est clair mais je peux préciser si vous voulez)
Voici le code que j'ai tape et qui ne marche pas:
Sub Copierlignes
Const LigneDebut = 1
Const LigneFin = 2053
Const LigneDebut2 = 2069
Const LigneFin2 = 4441
Const ColonneEquiptype = 4 '
Const ColonneEquitype2 = 1
For i = LigneFin To LigneDebut Step -1
j = 4441
Do While Cells(i, ColonneEquitype) <> Cells(j, ColonneEquitype2)
j = j - 1
Loop
Range("j:j" ).Copy
Range("i,Ki:ABi" ).Paste
Next i
End Sub