Problème d'écriture feuille

Bonjour,

J'ai créer un formulaire me permettant d’entrées des données dans une feuille de calcul.

Le seul problème c'est que mes données ne s'insère pas sur la bonne feuille.

Je voudrais que mes données s'insère dans la feuille 2 alors qu'elle s'insère dans la feuille 1, après plusieurs essais pas moyen de trouver une solution...

Pouvez vous m'aider s'il vous plait.

Je vous met le code ci-dessous.

Private Sub CommandButton1_Click()

Dim derligne As Integer

If MsgBox("Confirmez-vous l'ajout?", vbYesNo, "confirmation") = vbYes Then

derligne = Sheets("Feuil2").Range("A456541").End(xlUp).Row + 2

Cells(derligne, 1) = TextBox1.Value

Cells(derligne, 2) = TextBox2.Value

Cells(derligne, 3) = TextBox3.Value

Cells(derligne, 4) = TextBox4.Value

Cells(derligne, 5) = TextBox5.Value

Cells(derligne, 6) = TextBox6.Value

Cells(derligne, 7) = TextBox7.Value

Cells(derligne, 8) = TextBox8.Value

End If

End Sub

Private Sub CommandButton2_Click()

Unload UserForm2

End Sub

Private Sub CommandButton3_Click()

Dim NO_ligne As Integer

NO_ligne = ComboBox1.ListIndex + 1

TextBox1.Value = Cells(NO_ligne, 1).Value

TextBox2.Value = Cells(NO_ligne, 2).Value

TextBox3.Value = Cells(NO_ligne, 3).Value

TextBox4.Value = Cells(NO_ligne, 4).Value

TextBox5.Value = Cells(NO_ligne, 5).Value

TextBox6.Value = Cells(NO_ligne, 6).Value

TextBox7.Value = Cells(NO_ligne, 7).Value

TextBox8.Value = Cells(NO_ligne, 8).Value

End If

End Sub

Cordialement

Maxime

bonjour,

tu dois indiquer sur quelles feuilles il faut faire les mises à jour.

Private Sub CommandButton1_Click()
Dim derligne As Integer
With Sheets("Feuil2")
  If MsgBox("Confirmez-vous l'ajout?", vbYesNo, "confirmation") = vbYes Then
   derligne = .Range("A456541").End(xlUp).Row + 2
   .Cells(derligne, 1) = TextBox1.Value
   .Cells(derligne, 2) = TextBox2.Value
   .Cells(derligne, 3) = TextBox3.Value
   .Cells(derligne, 4) = TextBox4.Value
   .Cells(derligne, 5) = TextBox5.Value
   .Cells(derligne, 6) = TextBox6.Value
   .Cells(derligne, 7) = TextBox7.Value
   .Cells(derligne, 8) = TextBox8.Value
 End If
End With
End Sub

Salut Hso4,

Je te remercie pour la rapide réponse que tu m'as fournis, J'ai essayé de modifié mon programme VBA et cela ne fonctionne toujours pas.

Aurais tu une autre idée ? A l'heure actuelle je ne sais pas comment régler ce problème.

Je te remercie

bonjour,

mets ton fichier avec le code qui ne fonctionne pas.

voici mon fichier excel

Etant débutant je te remercie de ton aide.

Bonjour,

tu n'as pas mis de points devant les cells (pour indiquer que ce sont les cells de sheet2 defini dans le with). je t'invite à regarder avec attention le code que je t'ai fourni. normalement, cela doit fonctionner.

Après modification suite à ta remarque, cela ne fonctionne toujours pas ....

Cette fois ci les données inscrites dans mon formulaire ne s'insères dans aucune des deux feuilles. je ne vois pas pourquoi elle ne insérerais pas dans la feuille 2.

bonsoir,

voici le code modifié pour ton userform2

Private Sub CommandButton1_Click()
Dim derligne As Integer
With Sheets("Feuil2")
If MsgBox("Confirmez-vous l'ajout?", vbYesNo, "confirmation") = vbYes Then
derligne = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Cells(derligne, 1) = TextBox1.Value
.Cells(derligne, 2) = TextBox2.Value
.Cells(derligne, 3) = TextBox3.Value
.Cells(derligne, 4) = TextBox4.Value
.Cells(derligne, 5) = TextBox5.Value
.Cells(derligne, 6) = TextBox6.Value
.Cells(derligne, 7) = TextBox7.Value
.Cells(derligne, 8) = TextBox8.Value
End If
End With
End Sub

Private Sub CommandButton2_Click()
Unload UserForm2

End Sub

Private Sub CommandButton3_Click()
Dim NO_ligne As Integer
With Sheets("Feuil2")
NO_ligne = ComboBox1.ListIndex + 1
TextBox1.Value = .Cells(NO_ligne, 1).Value
TextBox2.Value = .Cells(NO_ligne, 2).Value
TextBox3.Value = .Cells(NO_ligne, 3).Value
TextBox4.Value = .Cells(NO_ligne, 4).Value
TextBox5.Value = .Cells(NO_ligne, 5).Value
TextBox6.Value = .Cells(NO_ligne, 6).Value
TextBox7.Value = .Cells(NO_ligne, 7).Value
TextBox8.Value = .Cells(NO_ligne, 8).Value
End If
End With
End Sub

quand tu fais ton test vérifie que tu n'as pas un filtre actif, qui t'empêche de voir les données que tu as ajoutées.

bonsoir,

je voudrais amplement te remercier de m'avoir accordé de ton temps pour m'aider à régler mon problème.

Effectivement javais un filtre qui m’empêcher de voir les dernières données que j'avais ajouté.

Puis-je rester en contact ? en cas de besoin pour améliorer mon classeur si j'ai besoin d'un coup de main ?

Cordialement.

Je te remercie encore une fois.