selection feuille via checkbox

[mikepers]

Hello !
Besoin d'un coup de pouce ...
J'ai une base de donnée que je rempli via un userform.
Je rentre mes données :
Dim x As Integer
x = Range("A32767").End(xlUp).Row + 1
Range("A" & x) = ComboBox1.Value
etc...
Ma base s'agrandie avec de nouveaux besoins :
je souhaite remplir des feuilles différentes en fonction d'une checkbox ( je m'explique ):
si checkbox1 est cochée, alors les données du formulaire sont stockées en feuille1
si checkbox2 est cochée, alors les données du formulaire sont stockées en feuille2
of course sur l'usf on ne peut sélectionner qu'une seule case à cocher..
une idée sur la manière d'aborder le code ?
bien à vous
Michel

 

[JCGL]

Bonjour à tous,

On ne peux cocher qu'une seule case et alors où est le problème ?
Tu ne souhaites pas stocker les données dans les deux feuilles ?

A+ à tous

 

[mikepers]

je ne sais tout juste pas comment déclarer que l'insert des données se fera sur la bonne feuille !
ca serai du type whith sheets("feuille1") ???
Pas très fort en vba, ca bricole...

 

[JCGL]

Bonjour à tous,

Peut-être :

If CheckBox1 =True Then Sheets("Feuil1").Activate

A+ à tous

 

[mikepers]

Je dois mal m'exprimer désolé.
En fait tant tant que j'avais une seule feuille à remplir le code suivant fonctionnait :
Dim x As Integer
x = Range("A32767").End(xlUp).Row + 1
Range("A" & x) = ComboBox1.Value
mais avec deux feuilles séparées je ne trouve pas comment exprimer :
si checkbox1 est cochée, alors les données du formulaire sont stockées en feuille1
si checkbox2 est cochée, alors les données du formulaire sont stockées en feuille2

 

[mikepers]

ok je teste le code merci !!

 

[JCGL]

Bonjour à tous,

Dim x As Integer
x = Range("A32767").End(xlUp).Row + 1
If CheckBox1 =True Then Sheets("Feuil1").Range("A" & x) = ComboBox1.Value
If CheckBox2 =True Then Sheets("Feuil2").Range("A" & x) = ComboBox1.Value

A+ à tous

 

[mikepers]

yes !!! bravo merci