Blocage dans macro grille de saisie....

[libellule85]

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é.

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 Sub

Merci beaucoup pour votre aide

 

[libellule85]

Re : Blocage dans macro grille de saisie....

Re,
Je met un fichier exemple
Merci pour votre aide

 

[mememe]

Re : Blocage dans macro grille de saisie....

Bonsoir,

Dans ton code, dans ta boucle For, tu écris dans les colonnes de 1 à 4 aussi...
Sauf que je ne comprends pas ton IIf(i<4,i,5)

 

[youky(BJ)]

Re : Blocage dans macro grille de saisie....

Bonjour cher(e) Libellule,
voici...
voir Cells(Li, i + 8) explication... i=1+8 à la 1ere boucle donc colonne =9
Bruno

Private Sub CommandButton1_Click()
Dim i As Integer, Li As Integer
If ActiveSheet.Range("I6").Value = "" Then
     Li = 6
Else
     Li = ActiveSheet.Range("i65536").End(xlUp).Row + 1
End If
For i = 1 To 4
    Cells(Li, i + 8) = Me.Controls("Textbox" & i).Value
Next i
End Sub

 

[libellule85]

Re : Blocage dans macro grille de saisie....

Bonsoir mememe, Youky(BJ),

Tout d'abord je vous remercie de vos réponses.
Youky(BJ) je viens d'essayer la modif que tu m'as mis :
Elle ne fonctionne que si la cellule I6 est vide (les cellules de I6 à L6 se remplissent normalement des données de la grille) mais quand on saisie d'autres données (qui doivent normalement remplir la ligne de I7 à L7 : rien ne s'affiche....

Dans mon fichier exemple essaye avec la macro bouton Saisie débit, dès que l'on met d'autres données celà va automatiquement dans la ligne du dessous...

 

[youky(BJ)]

Re : Blocage dans macro grille de saisie....

Exact
J'avais pas vu les données en bas ligne 115
mets donc comme ceci
114 au lieu 65536
Bruno
Dim i As Integer, Li As Integer
If ActiveSheet.Range("I6").Value = "" Then
Li = 6
Else
Li = ActiveSheet.Range("I114").End(xlUp).Row + 1
End If
For i = 1 To 4
Cells(Li, i + 8) = Me.Controls("Textbox" & i).Value
Next i




ou encore
Li = ActiveSheet.Range("I5").End(xlDown).Row + 1

 

[libellule85]

Re : Blocage dans macro grille de saisie....

Re Youky
Cela marche impeccablement
Merci beaucoup pour ton aide
Bonne soirée