Microsoft 365 Userform - remplissage de cellule

[Fhll]

Bonjour,

J'ai créer plusieurs userform en fonction des choix d'un premier Userform,
Maintenant j'aimerais qu'en fonction de la case cochée dans le userform (soit des CheckBox soit des OptionButton) mon fichier se remplisse...
Pour le moment j'ai créer ça : (je vous met aussi le fichier en copie)

Private Sub UserForm_Click()
Sheets("Import").Select
Range("C1:C4").Select
Selection.Copy
Sheets("DA_1").Select
Range("A4").PasteSpecial

Sheets("Import").Select
Range("G3:G4").Select
Selection.Copy
Sheets("DA_1").Select
Range("E6").PasteSpecial

Range("B7").Value = Val(Me.ComboBoc2.CheckBox.Value)

End Sub

Mais ça ne donne rien 🙁
Et je ne comprend pas trop quoi faire

 

[fanfan38]

Bonsoir
En B7 de quelle feuille, tu veut mettre quoi?
Ci joint ma réponse... Mais ... tu veux aller trop vite...
Traite un userform à la fois
et comme le dit Hervé 62😉 tu vas avoir des soucis...

A+ François

 

[herve62]

Bonsoir
A mon avis , tu vas avoir beaucoup de soucis , il y a des ambiguïtés comme, on ne nomme pas un USF Combobox1 c'est source d'erreur
ensuite des checkbox inter active dans Sous Traitant , rien pour valider et quitter ?? , et dans la sub click (??) on a vite des erreurs
enfin il faudra expliquer ce qu'est : Range("B7").Value = Val(Me.ComboBox2.CheckBox.Value) ??? vraiment bizarre !! il y a au moins 3 erreurs
Si tu ne maîtrises pas bien le Vba , ne te lances pas dans une usine à gaz multi USF