Francis200
XLDnaute Nouveau
Bonjour Le forum
J'espère que tout le monde va bien.
J'ai réussi à faire ma macro comme je le souhaitais, cela fonctionne sauf que je dois le faire clique par clique et j'ai pas mal de lignes.
Je souhaite qu'avec un seul click tout se copie colle à la suite.
Je ne sais pas ce qui me manque dans ma macro pour faire défiler le tout.
Quelqu'un pourrait me dire ce qui me manque dans ma macro, une ligne, une lettre, une fonction ?
Voici ma macro et voici mon fichier.
Le bouton se trouve dans l'onglet Track.
Je vous remercie pour votre aide à tous ^^
Francis200
J'espère que tout le monde va bien.
J'ai réussi à faire ma macro comme je le souhaitais, cela fonctionne sauf que je dois le faire clique par clique et j'ai pas mal de lignes.
Je souhaite qu'avec un seul click tout se copie colle à la suite.
Je ne sais pas ce qui me manque dans ma macro pour faire défiler le tout.
Quelqu'un pourrait me dire ce qui me manque dans ma macro, une ligne, une lettre, une fonction ?
VB:
Sub Copie_()
Dim i As Integer
derlig = Range("A65000").End(xlUp).Row + 1
For i = 0 To derlig
If Worksheets("Brute").Cells(derlig, 1).Value <> "" Then
Worksheets("Track").Cells(derlig, 1).Value = Worksheets("Brute").Cells(derlig, 1).Value
Worksheets("Track").Cells(derlig, 2).Value = Worksheets("Brute").Cells(derlig, 2).Value
Worksheets("Track").Cells(derlig, 3).Value = Worksheets("Brute").Cells(derlig, 3).Value
End If
Next i
End Sub
Voici ma macro et voici mon fichier.
Le bouton se trouve dans l'onglet Track.
Je vous remercie pour votre aide à tous ^^
Francis200