Code pour passer à la ligne suivante si une est déja priseRésolu

Question

Bonjour, 
Je continue d'avancer sur mon programme et la je bloque. A partir de ce code Private Sub CommandButton1_Click()
 
Dim ligne As Long
Dim Tot As Range
 
With Sheets("EDF").Range("B2:B2000")
    Set Tot = .Find(UserForm2.ListBox1.Text)
    Range("A" & Tot.Row + 7) = UserForm2.TextBox1.Text
End With
End Sub

Je voudrais savoir quoi ajouter à ce code pour que si la cellule ("A" & Tot.Row + 7) est prise la nouvelle saisie vienne en ("A" & Tot.Row + 8) et ainsi de suite sur 4 lignes.

Par exemple si A7 deja prise prochaine saisie en A8 puis prochaine saisie en A9, puis A10. Je n'ai que 4 saisies max à faire
Merci

toushusss · Accepted Answer

Probleme résolu, j'ai utilisé des conditions if imbriquées les unes dans les autres et ça marche. Le code est long je pense q'un utilisant un boucle ça le raccourci mais bon je me suis débrouillé avec des if et else.
Merci tout de meme

Code pour passer à la ligne suivante si une est déja prise

1 réponse

Votre réponse

Discussions similaires