N
nanard25
Guest
Bonjour à tous,
Merci à
Pierrot93, PierreJean, Spinolan08
cette partie de code fonctionne bien
With Sheets("janvier").Range("D1300")
Set C = .Find(Text, LookIn:=xlValues)
If Not C Is Nothing Then
Firstaddress = C.Address
Do
Sheets("Recherche").Range("A" & i & ":H" & i) = Range(C, C.Offset(0, 8)).Value
i = i + 1
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Firstaddress
End If
End With
J'aimerais copier sur la feuille recherche les valeurs trouvées dans la feuille Janvier de la colonne A à la colonne H
Merci Beaucoup à tous
Si quelqu'un avait la solution cela m'aiderais énormément
Merci d'avance
Bon dimanche à toutes et à tous
Nanard25
Merci à
Pierrot93, PierreJean, Spinolan08
cette partie de code fonctionne bien
With Sheets("janvier").Range("D1300")
Set C = .Find(Text, LookIn:=xlValues)
If Not C Is Nothing Then
Firstaddress = C.Address
Do
Sheets("Recherche").Range("A" & i & ":H" & i) = Range(C, C.Offset(0, 8)).Value
i = i + 1
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Firstaddress
End If
End With
J'aimerais copier sur la feuille recherche les valeurs trouvées dans la feuille Janvier de la colonne A à la colonne H
Merci Beaucoup à tous
Si quelqu'un avait la solution cela m'aiderais énormément
Merci d'avance
Bon dimanche à toutes et à tous
Nanard25
Dernière modification par un modérateur: