Séparer l'affichage des résultats d'un formulaire
y
Bonjour
Je vous présente mon fichier Excel j'ai un formulaire à remplir "Nouvelle Faf" une fois remplis ça s'affiche dans une feuille "Validation" moi maintenant je veux que l'affichage soit séparer dans 3 feuilles différentes " ECL , IHM ,SAV" qui dépends d'une liste déroulante " ECL , HM ,SAV" qui se trouve dans d'une case "Atelier émetteur" dans le formulaire proposé.
J'ai un deuxième problème c'est que une fois le formulaire est ajouté dans la base donnée(une nouvelle ligne s'est rajouté dans un tableau que ce soit celui de ECL, IHM ou SAV) ça envois directement un mail au responsable de l'atelier que ("ECL,IHM , SAV").
ComboBox3 c'est la case ou se trouve la liste déroulante "ECL,IHM,SAV"
et je veux que mon affichage dépends de cette comboBox3
Merci de votre aide
voici le code d'affichage
With Sheets("Validation")
.Activate 'pas obligatoire
Ligne = .Range("A" & .Rows.Count).End(xlUp).Row + 1
Set cellule = .Range("A" & Ligne)
cellule.Value = TextBox1.Value
cellule.Offset(0, 1).Value = TextBox2
cellule.Offset(0, 2).Value = TextBox3
cellule.Offset(0, 3).Value = TextBox4
cellule.Offset(0, 4).Value = TextBox6
cellule.Offset(0, 5).Value = ComboBox3
cellule.Offset(0, 6).Value = ComboBox1
cellule.Offset(0, 7).Value = TextBox8
cellule.Offset(0, 8).Value = TextBox22
cellule.Offset(0, 9).Value = TextBox9
cellule.Offset(0, 10).Value = TextBox10
cellule.Offset(0, 11).Value = TextBox11
cellule.Offset(0, 12).Value = TextBox12
cellule.Offset(0, 13).Value = TextBox13
cellule.Offset(0, 14).Value = TextBox14
cellule.Offset(0, 15).Value = TextBox15
cellule.Offset(0, 16).Value = TextBox16
cellule.Offset(0, 17).Value = TextBox17
cellule.Offset(0, 18).Value = TextBox18
cellule.Offset(0, 19).Value = TextBox19
cellule.Offset(0, 20).Value = TextBox20
cellule.Offset(0, 21).Value = ComboBox2
cellule.Offset(0, 22).Value = TextBox21
End With
End Sub
Je vous présente mon fichier Excel j'ai un formulaire à remplir "Nouvelle Faf" une fois remplis ça s'affiche dans une feuille "Validation" moi maintenant je veux que l'affichage soit séparer dans 3 feuilles différentes " ECL , IHM ,SAV" qui dépends d'une liste déroulante " ECL , HM ,SAV" qui se trouve dans d'une case "Atelier émetteur" dans le formulaire proposé.
J'ai un deuxième problème c'est que une fois le formulaire est ajouté dans la base donnée(une nouvelle ligne s'est rajouté dans un tableau que ce soit celui de ECL, IHM ou SAV) ça envois directement un mail au responsable de l'atelier que ("ECL,IHM , SAV").
ComboBox3 c'est la case ou se trouve la liste déroulante "ECL,IHM,SAV"
et je veux que mon affichage dépends de cette comboBox3
Merci de votre aide
voici le code d'affichage
With Sheets("Validation")
.Activate 'pas obligatoire
Ligne = .Range("A" & .Rows.Count).End(xlUp).Row + 1
Set cellule = .Range("A" & Ligne)
cellule.Value = TextBox1.Value
cellule.Offset(0, 1).Value = TextBox2
cellule.Offset(0, 2).Value = TextBox3
cellule.Offset(0, 3).Value = TextBox4
cellule.Offset(0, 4).Value = TextBox6
cellule.Offset(0, 5).Value = ComboBox3
cellule.Offset(0, 6).Value = ComboBox1
cellule.Offset(0, 7).Value = TextBox8
cellule.Offset(0, 8).Value = TextBox22
cellule.Offset(0, 9).Value = TextBox9
cellule.Offset(0, 10).Value = TextBox10
cellule.Offset(0, 11).Value = TextBox11
cellule.Offset(0, 12).Value = TextBox12
cellule.Offset(0, 13).Value = TextBox13
cellule.Offset(0, 14).Value = TextBox14
cellule.Offset(0, 15).Value = TextBox15
cellule.Offset(0, 16).Value = TextBox16
cellule.Offset(0, 17).Value = TextBox17
cellule.Offset(0, 18).Value = TextBox18
cellule.Offset(0, 19).Value = TextBox19
cellule.Offset(0, 20).Value = TextBox20
cellule.Offset(0, 21).Value = ComboBox2
cellule.Offset(0, 22).Value = TextBox21
End With
End Sub
B
Hello,
Première chose essayer de rendre le code plus lisible :
With Sheets("Validation")
.Activate 'pas obligatoire
Ligne = .Range("A" & .Rows.Count).End(xlUp).Row + 1
Set cellule = .Range("A" & Ligne)
cellule.Value = TextBox1.Value
For i = 1 to 3
cellule.Offset(0, i).Value = Controls("TextBox" & i +1)
Next i
cellule.Offset(0, 4).Value = TextBox6
cellule.Offset(0, 5).Value = ComboBox3
cellule.Offset(0, 6).Value = ComboBox1
cellule.Offset(0, 7).Value = TextBox8
cellule.Offset(0, 8).Value = TextBox22
For i = 9 to 20
cellule.Offset(0, i).Value = Controls("TextBox" & i)
Next i
cellule.Offset(0, 21).Value = ComboBox2
cellule.Offset(0, 22).Value = TextBox21
End With
End SubDe plus, je n'ai pas bien compris ton terme "Affichage" car cette instruction écrit dans tes cellules à partir de la première ligne non vide de ta feuille "Validation".
Il faudrait un exemple de ton fichier pour mieux comprendre la construction du formulaire.
Mais en tout cas à partir du moment où tu sélectionneras dans la liste déroulante ECL ou IHM ou SAV on peut dire d'aller dans telle ou telle feuille. Encore une fois je ne comprends pas ce que tu entends par "affichage" si jamais tu peux m'éclairer
@+