Je souhaiterais réaliser un transfert de ligne depuis une feuille d'un classeur vers un autre classeur à la condition que la 1ere colonne (contenant des dates) ne sois pas vide et sur la dernière cellule vide du deuxième classeur
je suis débutant en VBA j'ai essayé :
Code:
Sub cellule_vide()
Sheets("Feuil1").Activate
For i = 9 To 757
If Not IsEmpty(i) Then
Rows.Select
Selection.Copy
Workbooks("ronde et relevés2.xlsm").Activate
Cells(Rows.Count, 1).End(xlUp)(1).Select
Selection.Paste
Else: Exit Sub
End If
Next i
End Sub
Ce doit être un amas d'erreurs horribles pour les connaisseurs je m'en excuse :/
J'espère avoir été explicite (sinon dite le moi je me réexpliquerais mieux)
essaye peut être ceci, nom de la feuille de destination à adapter :
Code:
Option Explicit
Sub cellule_vide()
Dim i As Long
Sheets("Feuil1").Activate
For i = 9 To 757
If Not IsEmpty(Cells(i, 1)) Then Rows(i).Copy Workbooks("ronde et relevés2.xlsm").Sheets("NomFeuille").Cells(Rows.Count, 1).End(xlUp)(2)
Next i
End Sub
J'ai testé et ça fonctionne bien je me demande juste si a chaque utilisation il ne recopieras pas les valeurs déjà reporté dans les lignes suivantes créant des doublons ? et je voudrais aussi savoir où rajouter l'ouverture du deuxième classeur car actuellement il faut que les deux soit ouvert simultanément
regarde du coté de la méthode "find", sinon tu peux avec 2010 le faire en fin de procédure, en utilisant l'enregistreur de macro tu récupéreras le code...
Je ne comprends pas la méthode "find" (étant un réel débutant) :X
Et tu peux m'expliquer comment avec l'enregistreur de macro on peut retrouver les doublons s'il te plaît ? Car je ne vois vraiment pas comment faire :/
Désolé d'être aussi "nul" :/ Mais j'essaye de me soigner
Et tu peux m'expliquer comment avec l'enregistreur de macro on peut retrouver les doublons s'il te plaît ? Car je ne vois vraiment pas comment faire :/