Discussion :

[jo50160]

Bonjour à tous, j’ai un petit problème concernant la mise en place de mes données dans un classeur. J’ai créer un userform avec 6 textBox (certaines textbox peuvent rester vide), quand je clic sur le bouton OK, la validation de 5 textbox se passe bien dans ma feuille de calcul, mais si il reste un cellule vide.
Et quand revalidé des nouvelles données des 6 textbox une des textBox va se valider dans la cellule D1 vide au lieu de rester dans la ligne2 colonne D2
ci-joint un fichier

Code :

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

1
2
3
4
5
6
Sheets("EntretienSandero").Range("A65536").End(xlUp).Offset(1, 0).Value = Me.TextBox1
Sheets("EntretienSandero").Range("B65536").End(xlUp).Offset(1, 0).Value = Me.TextBox2
Sheets("EntretienSandero").Range("C65536").End(xlUp).Offset(1, 0).Value = Me.TextBox3
Sheets("EntretienSandero").Range("D65536").End(xlUp).Offset(1, 0).Value = IIf(Me.CheckBox1, "X", "")
Sheets("EntretienSandero").Range("F65536").End(xlUp).Offset(1, 0).Value = IIf(Me.CheckBox5, "X", "")
Sheets("EntretienSandero").Range("G65536").End(xlUp).Offset(1, 0).Value = IIf(Me.CheckBox8, "X", "")

http://www.cijoint.fr/cjlink.php?fil...cij8sWT2oB.xls

[NEC14]

Bonjour,

Pour ma part, au niveau des CheckBox, j'aurai mis quelque chose de ce style

Code :

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

If CheckBox1.Value=True then '(et la suite)

.
J'ai déjà fait une UserForm un peu comparable et c'est ce que j'ai fait.
Mais bon je ne suis pas un grand spécialiste

[decondelite]

Tu n'utilise pas la bonne méthode: tu recherche à nouveau la dernière ligne de chaque colonne à chaque fois. or si tu as des cases vides et d'autres non, tu n'obtiendra donc forcément pas la même ligne.

Ce que je te suggère de faire, c'est de faire une recherche de dernière ligne "globale", puis de tout traiter d'un coup sur cette ligne, comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim liste_derniere_ligne(6) As Long, i As Byte
    Dim derniere_ligne As Long
    Dim derniere_cellule As Range
    For i = 1 To 6
        liste_derniere_ligne(i) = Sheets("EntretienSandero").Cells(65536, i).End(xlUp).Row
    Next
    Set derniere_cellule = Sheets("EntretienSandero").Cells(WorksheetFunction.Max(liste_derniere_ligne), 1)
    derniere_cellule.Offset(1, 0).Value = IIf(Me.CheckBox1, "X", "")
    derniere_cellule.Offset(1, 1).Value = IIf(Me.CheckBox5, "X", "")
    derniere_cellule.Offset(1, 2).Value = IIf(Me.CheckBox8, "X", "")

[jo50160]

Bonsoir a vous et merci beaucoup de m'avoir aider