Microsoft 365 Séparer le résultat du userform dans 3 onglets différents qui dépend d'un choix de case userform

[yassine.013]

Bonjour à tous,

Je vous présente mon fichier Excel j'ai un formulaire à remplir "Nouvelle Faf" une fois remplis ça s'affiche dans l'onglet "Validation" moi je veux que l'affichage soit séparer dans 3 onglets différents " 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 .

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

SVP veuillez m'aider mon responsable m'a demandé de le faire le plutôt possible
Les emails des responsables d'atelier se trouve dans l'onglet contact
Voici le fichier

Merci de votre aide

[Modération : fichier contrevenant au RGPD, supprimé]

 

[Oneida]

Bonjour,
Pour l'envoi @MAIL: https://www.rondebruin.nl/win/section1.htm
Si j'ai bien compris, vous voulez enrgistrer les infos saisie dans la feuille Validation et dans la feuille fonction du contenu de la combobox3(Atelier Emeteur).
ajouter du code idem que Validation avec comme nom de feuille le contenu de combobox3

 

[yassine.013]

Bonjour,
Pour l'envoi @MAIL: https://www.rondebruin.nl/win/section1.htm
Si j'ai bien compris, vous voulez enrgistrer les infos saisie dans la feuille Validation et dans la feuille fonction du contenu de la combobox3(Atelier Emeteur).
ajouter du code idem que Validation avec comme nom de feuille le contenu de combobox3

Je vous remercie pour réponse mais je ne veux pas multiplier les userform juste un seul avec un afffichage différents.

Voici le code d'affichage


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

 

[Oneida]

Bonjour,

je ne veux pas multiplier les userform
Je ne vous parle pas de userform mais de code VBA pour remplir vos tableaux ECL,IHM,SAV
Si c'est bien ca que vous voulez

 

[yassine.013]

Bonjour,

je ne veux pas multiplier les userform
Je ne vous parle pas de userform mais de code VBA pour remplir vos tableaux ECL,IHM,SAV
Si c'est bien ca que vous voulez

oui

 

[Oneida]

Re,

Ok, qui a ecrit le code, vu qu'il y a deja la partie Validation, devrait etre simple a coder!
Il suffit de ceci

With Sheets(Combobox3.value)
.Activate 'pas obligatoire
Ligne = .Range("A" & .Rows.Count).End(xlUp).Row + 1
Set cellule = .Range("A" & Ligne)
'
'    ecriture des cellules
'
'
'
'

 

[yassine.013]

Re,

Ok, qui a ecrit le code, vu qu'il y a deja la partie Validation, devrait etre simple a coder!
Il suffit de ceci

With Sheets(Combobox3.value)
.Activate 'pas obligatoire
Ligne = .Range("A" & .Rows.Count).End(xlUp).Row + 1
Set cellule = .Range("A" & Ligne)
'
'    ecriture des cellules
'
'
'
'

Merci beaucoup ça répondu à ma problématique.

Enfaite j'ai un code qui me permet de copier coller mais moi je veux le remplacer par couper coller(afin de supprimer la ligne une fois coller) j'ai fais fais avec Cut mais sans succès

Voici le code

Private Sub CommandButton1_Click()

With Sheets("ECL").ListObjects("Tab_ECL")
Set ZoneToCopy = .ListRows(.ListRows.Count).Range
End With

Sheets("Source").Unprotect
With Sheets("Source").ListObjects("Tab_Source")
.ListRows.Add
ZoneToCopy.Copy Destination:=.ListRows(.ListRows.Count).Range
End With
Sheets("Source").Protect
End Sub

 

[Oneida]

Re,
Remplacez Copy par Cut