Code pour passer à la ligne suivante si une est déja prise [Résolu]

Signaler
Messages postés
38
Date d'inscription
mardi 17 mars 2009
Statut
Membre
Dernière intervention
17 juin 2011
-
Messages postés
38
Date d'inscription
mardi 17 mars 2009
Statut
Membre
Dernière intervention
17 juin 2011
-
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

1 réponse

Messages postés
38
Date d'inscription
mardi 17 mars 2009
Statut
Membre
Dernière intervention
17 juin 2011

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