que vaut colonne avant la boucle ?
dans ton 1er code, tu avais bien pensé à initialiser ligne à 6, il faudrait peut-être faire la même chose pour colonne
Bonjour Tototiti2008,
Décidement tu vas me donner un coup de main tous les jours ! Merci !
J'ai bien pensé à ça, voici le code que j'ai essayer en entier :
Code:
colonne = 1
Cells(ligne, 1).Select
Do Until IsEmpty(Cells(5, colonne))
colonne = colonne + 1
Loop
Je viens d'essayer, ce n'est pas concluant,
Voici mon code en entier, j'ai peut-etre fait une autre erreur
Code:
If Ajout = True Then
Range("F5").Select
Selection.Copy
colonne = 1
Cells(ligne, 1).Select
Do Until IsEmpty(Cells(5, colonne))
colonne = colonne + 1
Loop
Cells(5, colonne).Select
ActiveSheet.Paste
End If
UserForm1.Hide
'.../...
If Ajout = True Then
Range("F5").Copy Range("A" & ligne).End(xlToRight).Offset(0, 1).Columns
End If
'.../...
Ce code copie la cellule F5 dans la première cellule vide de la ligne dont le N° corresponde à la variable "ligne". Ce n'est pas forcément la dernière colonne vide de la ligne.
Ou celui ci
Code:
'.../...
If Ajout = True Then
Range("F5").Copy Range("IV" & ligne).End(xlToLeft).Offset(0, 1).Columns
End If
'.../...
Lui copie la cellule F5 dans la dernière colonne vide de la ligne, même s'il y a des cellules vides sur cette dernière.