L
lesuisse
Guest
Bonjour,
Je viends de retrouver cette macro que l'un des génies de ce forum m'a conseillé pour copier des données d'une manière un peu spédifique...
Est ce que quelqu'un serait assez courageux pour me dire en francais litteral ce qu'elle fait cette belle macro !!
Dim rang(1000)
Dim compteur, i, j As Integer
rang(1) = Range("j65536").End(xlUp).Row
compteur = 1
Do
compteur = compteur + 1
rang(compteur) = Range("j" & rang(compteur - 1)).End(xlUp).Row
Loop Until rang(compteur) = 1
For i = 1 To compteur - 1
For j = rang(i + 1) + 1 To rang(i)
If InStr("EFV", Cells(rang(i), 10)) <> 0 Then
If Cells(j, 9) <> "" Then Cells(j, 10) = Cells(rang(i), 10)
End If
Next
Next
Je vous remercie beaucoup et vous souhaite enore une bonne journée...
Le Suisse
Je viends de retrouver cette macro que l'un des génies de ce forum m'a conseillé pour copier des données d'une manière un peu spédifique...
Est ce que quelqu'un serait assez courageux pour me dire en francais litteral ce qu'elle fait cette belle macro !!
Dim rang(1000)
Dim compteur, i, j As Integer
rang(1) = Range("j65536").End(xlUp).Row
compteur = 1
Do
compteur = compteur + 1
rang(compteur) = Range("j" & rang(compteur - 1)).End(xlUp).Row
Loop Until rang(compteur) = 1
For i = 1 To compteur - 1
For j = rang(i + 1) + 1 To rang(i)
If InStr("EFV", Cells(rang(i), 10)) <> 0 Then
If Cells(j, 9) <> "" Then Cells(j, 10) = Cells(rang(i), 10)
End If
Next
Next
Je vous remercie beaucoup et vous souhaite enore une bonne journée...
Le Suisse
