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

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

Oneida à dit:

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

Cliquez pour agrandir...

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

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

Oneida à dit:

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

Cliquez pour agrandir...

oui

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

Oneida à dit:

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

VB:

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

Cliquez pour agrandir...

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

Re,
Remplacez Copy par Cut