libellule85
XLDnaute Accro
Bonsoir tout le monde,
Actuellement j'ai une grille de saisie par macro (code ci-dessous) et qui commence la saisie à la cellule A6 jusqu'à F6 et ensuite descend à la ligne suivante : cela fonctionne très bien.
Mais maintenant mon problème c'est de faire commencer une deuxième grille de saisie(de 4 données) de la cellule I6 à L6. Je pensais reprendre le code ci-dessous et mettre I6 à la place du A6 mais celà ne fonctionne pas !! Et n'y connaissant pas grand chose en vba je suis bloqué.
Merci beaucoup pour votre aide
Actuellement j'ai une grille de saisie par macro (code ci-dessous) et qui commence la saisie à la cellule A6 jusqu'à F6 et ensuite descend à la ligne suivante : cela fonctionne très bien.
Mais maintenant mon problème c'est de faire commencer une deuxième grille de saisie(de 4 données) de la cellule I6 à L6. Je pensais reprendre le code ci-dessous et mettre I6 à la place du A6 mais celà ne fonctionne pas !! Et n'y connaissant pas grand chose en vba je suis bloqué.
Code:
Dim i As Integer, Li As Integer
Private Sub CommandButton1_Click()
Dim i As Integer, Li As Integer
Dim c As Range
If ActiveSheet.Range("A6").Value = "" Then
Li = 6
Else
Li = ActiveSheet.Range("a65536").End(xlUp).Row + 1
End If
For i = 1 To 5
Cells(Li, IIf(i < 5, i, 6)) = Me.Controls("Textbox" & i).Value
Next i
End Sub
Private Sub CommandButton2_Click()
For i = 1 To 5
Me.Controls("Textbox" & i).Value = ""
Next i
End Sub
Private Sub CommandButton3_Click()
Unload Me
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label10_Click()
End Sub
Private Sub Label12_Click()
End SubMerci beaucoup pour votre aide