Discussion :

[toushusss]

Bonjour,
Je continue d'avancer sur mon programme et la je bloque. A partir de ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
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 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.
Merci

[toushusss]

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