données textbox vers cellules

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:

---

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

Bonjour,

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

Code:

---

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

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:

---

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", "")

---

Bonsoir a vous et merci beaucoup de m'avoir aider:yaisse2::king: