Sujet Précédent Sujet Suivant

Enregistrer sur différentes feuilles XL

cs_stef26 Messages postés 14 Date d'inscription samedi 1 avril 2006 Statut Membre Dernière intervention 20 janvier 2007 - 15 nov. 2006 à 20:18
cs_MPi Messages postés 3877 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 17 août 2018 - 17 nov. 2006 à 11:14
Help, j'ai besoin d'un petit coup de main s'il vous plait!!!



Je veux enregistrer des données de plusieurs TextBox et Listbox sur différentes feuilles soit: 1 feuille pour toute les données + 1 autre feuille en fonction de la donnée d'une listBox


j'utilise une ListBox pour sélectionner mon option, mais je bloque au niveau de l'enregistrement il ne me prend qu'une ligne de commnde soit la Fin1 et la Fin11, je n'arrive pas à lui faire lire la suite....Fin12???







 Private Sub CommandButton1_Click()
Dim fin1 As Double
Dim fin11
Dim fin12If TextBox1 "" Or TextBox2 "" Or TextBox3 = "" Or TextBox4 = "" Or TextBox5 = "" Or TextBox6 = "" Or TextBox7 = "" Or TextBox8 = "" Or TextBox9 = "" Then Exit Sub
If Feuil1.Range("a1:a50000").Find(TextBox1) Is Nothing Then
fin1 = finf1Feuil1.Cells(fin1, 1) TextBox1.Text: Feuil1.Cells(fin1, 2) TextBox2.Text: Feuil1.Cells(fin1, 7) = TextBox3.Text: Feuil1.Cells(fin1, 8) = TextBox4.Text: Feuil1.Cells(fin1, 9) = TextBox5.Text: Feuil1.Cells(fin1, 10) = TextBox6.Text: Feuil1.Cells(fin1, 13) = TextBox7.Text: Feuil1.Cells(fin1, 14) = TextBox8.Text: Feuil1.Cells(fin1, 15) = TextBox9.Text: Feuil1.Cells(fin1, 17) = photo:
Else: MsgBox ("  Meme code article ? ")
End If
If TextBox3.Value <> "ELECTRIQUE" Then Exit Sub
If Feuil11.Range("a1:a50000").Find(TextBox1) Is Nothing Then
fin11 = finf11Feuil11.Cells(fin11, 1) TextBox1.Text: Feuil11.Cells(fin11, 2) TextBox2.Text:
Else: MsgBox ("  Meme code article ? ")
End If
If TextBox3.Value <> "MECANIQUE" Then Exit Sub
If Feuil12.Range("a1:a50000").Find(TextBox1) Is Nothing Then
fin12 = finf12Feuil12.Cells(fin12, 1) TextBox1.Text: Feuil12.Cells(fin12, 2) TextBox2.Text:
Else: MsgBox ("  Meme code article ? ")
End If

End Sub



Merci pour toute l'aide que vous pourrez m'apporter.   STEF

1 réponse

Réponse 1 / 1
cs_MPi Messages postés 3877 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 17 août 2018 23
17 nov. 2006 à 11:14
If Feuil1.Range("a1:a50000").Find(TextBox1) Is Nothing Then
fin1 = finf1 << ???

MPi
0

Discussions similaires

[VBA] Affichage de la fenêtre "Enregistrer sous" par une macro
flololf -
sauvageon93 -

7 réponses
Enregistrer sous numéro généré dans une cellule
cs_benoyt -
benoyt -

5 réponses
enregistrement de données formulaire dans mysql
Dbl35 -
jordane45 -

44 réponses
bouton enregistrer
ahlemlo -
wafadalya -

18 réponses
Enregistrer une à une les données reçues d'un formulaire dynamique
iKelSilver -
iKelSilver -

4 réponses
Rejoignez-nous