reocpie de donnée d'un USF vers feuille

[alexandra]

bonjour,

j'ai un petit USF qui me sert à saisir des infos dans mes feuilles.
Ce qui me sert à déterminer dans quelle feuille je recopie les données c'est un combobox.
Je voudrais réduire le nombre de feuille donc faire un tri plus simple. Il ne restera plus que 2 feuilles : 1 conforme et 1 non conforme
ce qui sert à spécifier cette info dans le USF c'est une checkbox (vrai = conforme faux = non conforme).

Ma question est donc comment orienter les données dans la bonne feuille en utilisant le résultat de la checkbox ?

je vous remercie d'avance

 

[ERIC S]

Bonjour

non testé mais regarde du côté de

dim feuille as string

feuille = 'feuil1'
if chexbox1.value = false then feuille = 'feuil2'

sheets(feuille).range.......

A+

 

[pierrejean]

bonjour alexandra

salut ERIC S

testé et dans la veine proposée par ERIC

Private Sub CommandButton1_Click()
Dim feuil As String
If CheckBox1 Then
feuil = 'Feuil2'
Else
feuil = 'Feuil3'
End If
Sheets('Feuil1').Range('A1:B10').Copy Destination:=Sheets(feuil).Range('A1')
End Sub