Un Click Copie Colle VBA

  • Initiateur de la discussion Initiateur de la discussion Francis200
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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 ?

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
 

Pièces jointes

Bonsoir Francis,
Je n'ai pas tout compris.
Quand on appuie sur Bouton on réactualise les lignes de Brute dans Track ?
En PJ un essai.
1- Il faut réactualiser Derlig à chaque itération, sinon il colle toujours sur la même ligne.
2- il faut à mon avis une variable DerLigBrute sur laquelle on boucle.
3- On boucle de Derlig à DerligBrute
 

Pièces jointes

Bonjour Sylvanu

Je te remercie pour tes explications sylvanu. Je me disais aussi qu'il me fallait une autre variable mais je ne savais pas comment. Maintenant je vois comment il faut procéder ^^ et merci encore pour ton fichier cela fonctionne parfaitement ^^

Bonjour jmfmarques
Et bien enfaite, j'avais utilisé i :
VB:
Worksheets("Track").Cells(derlig, 1).Value = Worksheets("Brute").Cells(i, 1).Value
mais avec mon code cela ne fonctionnait pas. Donc j'ai essayé autrement.
Je savais qu'il fallait intégré la variable i mais pas qu'il fallait utiliser une deuxième variable comme l'a expliqué Sylvanu. Pour te répondre, et bien vu comme tu me le demandes elle ne sert à rien, désolé hihi. Mais merci de poser la question ça m'aide à comprendre

Je vous remercie à vous deux et vous souhaite une excellente journée ^^

Francis200
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
281
Réponses
5
Affichages
236
Réponses
2
Affichages
201
Réponses
4
Affichages
177
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
169
Réponses
8
Affichages
466
Réponses
3
Affichages
115
Réponses
5
Affichages
552
Réponses
7
Affichages
619
Retour