Re : [Résolu]Copier sur première ligne vide.
Voilà le code:
Private Sub Envoi_Click()
Dim i&
Dim r&
Dim Mail&
For i = 11 To 23
If Cells(i, 2) <> "" Then
r = Sheets("ROP").Range("B65536").End(xlUp).Row + 1
Sheets("ROP").Cells(r, 2) = Cells(i, 2)
Sheets("ROP").Cells(r, 12) = Cells(i, 4)
Sheets("ROP").Cells(r, 13) = Cells(i, 5)
Sheets("ROP").Cells(r, 14) = Cells(i, 6)
Sheets("ROP").Cells(r, 15) = Cells(i, 7)
Sheets("ROP").Cells(r, 16) = Cells(i, 8)
Sheets("ROP").Cells(r, 17) = Cells(i, 9)
Sheets("ROP").Cells(r, 18) = Cells(i, 10)
Sheets("ROP").Cells(r, 19) = Cells(i, 11)
End If
Next i
End Sub
Rien ne se passe, enfin le bouton semble bien réfléchir, mais aucun résultat dans ma feuille "ROP".
Si j'insère une nouvelle feuille "Feuil1", que je remplace donc les "ROP" par des "Feuil1", ça fonctionne...
nicopec le "on error resume next", tu veux dire si c'est présent dans le code du bouton ou de manière général dans tout le fichier?? Je pense que tu voulais me dire juste dans le code du bouton, mais dans le doute je préfère poser la question