Saisie d'un formulaire avec incrément

[Dekoy]

Bonjour à tous, voici mon problème.
Je souhaite réaliser un formulaire qui a pour fonction de remplir des cellules afin de faciliter la saisie.
La partie qui me pose problème est le code qui recherche la cellule vide suivante.
Par exemple je viens de remplir la ligne 2, et le code est censé faire en sorte de ne plus remplir dans la ligne 2 mais dans la ligne 3 à la saisie suivante.
Mais des images valent mieux que des paroles.
Vous trouverez ci-joint le fichier en question.
Merci d'avance à ceux qui peuvent m'aider!!!

 

[kjin]

Re : Saisie d'un formulaire avec incrément

Bonsoir,

Private Sub EnregistrerM_Click()
Dim i As Integer, Dl As Long
With Sheets(Feuil7)
Dl = .Range("A65000").End(xlUp).Row + 1
    .Cells(Dl, 1) = JourM.Text
    .Cells(Dl, 2) = MoisM.Text
    .Cells(Dl, 3) = AnneeM.Text
    .Cells(Dl, 4) = MachineM.Text
    .Cells(Dl, 5) = MouleM.Text
    .Cells(Dl, 6) = EquipeM.Text
    .Cells(Dl, 28) = IIf(BoxFinM = True, FinM, "")
    .Cells(Dl, 29) = IIf(BoxDebutM = True, DebutM, "")
    .Cells(Dl, 30) = IIf(BoxFreqM = True, FreqM, "")
    For i = 1 To 21 'à condition de renomer tes "CheckBox1" à "CheckBox21"
        .Cells(Dl, i + 6) = IIf(Controls("CheckBox" & i) = True, 1, "")
    Next
End With
End Sub

 

[Dekoy]

Re : Saisie d'un formulaire avec incrément

Tout d'abord merci pour la réponse, mais après avoir accomodé mon fichier il me met une erreur à "With Sheets (Feuil7)", il me met une incompatibilité de type.


Private Sub EnregistrerM_Click()
Dim i As Integer, Dl As Long
With Sheets(Feuil7)
Dl = .Range("A65000").End(xlUp).Row + 1
.Cells(Dl, 1) = JourM.Text
.Cells(Dl, 2) = MoisM.Text
.Cells(Dl, 3) = AnneeM.Text
.Cells(Dl, 4) = MachineM.Text
.Cells(Dl, 5) = MouleM.Text
.Cells(Dl, 6) = EquipeM.Text
.Cells(Dl, 28) = IIf(BoxFinM = True, FinM, "")
.Cells(Dl, 29) = IIf(BoxDebutM = True, DebutM, "")
.Cells(Dl, 30) = IIf(BoxFreqM = True, FreqM, "")
For i = 1 To 21 'à condition de renomer tes "CheckBox1" à "CheckBox21"
.Cells(Dl, i + 6) = IIf(Controls("CheckBox" & i) = True, 1, "")
Next
End With
ThisWorkbook.Activate
Feuil7.Select
Cells(D1, 1).Show


Avez-vous une autre solution à me proposer?

 

[kjin]

Re : Saisie d'un formulaire avec incrément

Re,

With Sheets([COLOR="Red"]"[/COLOR]Feuil7[COLOR="Red"]"[/COLOR])

devrait allez mieux
Faut que je dorme moi
A+
kjin

 

[Dekoy]

Re : Saisie d'un formulaire avec incrément

Re,
non cette fois-ci "l'indice n'appartient pas à la sélection"
Ça a l'air galère...
Toutefois merci pour l'aide

 

[kjin]

Re : Saisie d'un formulaire avec incrément

Re,
Ca n'est pas galère mais simplement le résultat d'un fichier fourni avec une photo en guise de formulaire ! 🙄
Et je n'ai ni l'envie ni le courage de le refaire
kjin

 

[Dekoy]

Re : Saisie d'un formulaire avec incrément

Je ne critique pas....(il doit y avoir confusion)
Si je met le formulaire la taille dépasse...

 

[kjin]

Re : Saisie d'un formulaire avec incrément

Ton fichier avec le strict necessaire et zippé = 14ko !
A+
kjin

 

[Dekoy]

Re : Saisie d'un formulaire avec incrément

Merci, merci pour tout, je pense que mon problème vient du nom de ma feuille qu'il ne doit pas aimer...