Choix de la feuille de destination
Salut tout le monde
Je une question banale mais que je ne trouve pas une solution, voilà j’ai deux userform l’un qui dépend de l’autre ;
Mon problème si que veux bien quand en cliqant sur « consultation ordinaire» ma feuille de destination est celle « consultation1 » et en cliquant sur « consultation 2 » ma feuille de destination est celle « consultation2 ».
J’ai utilisé le code suivant mais il ne fonctionne pas :
Dim ws As Worksheet
Set ws = Sheets("consultation1")Merci pour votre aide.
Salut Zving,
ta variable ws n'étant pas une variable globale, elle disparaît en quittant la procédure de sa déclaration (CommandButton1_Click de l'USF2).
Elle est donc vide lorsque tu veux enregistrer dans USF1.
A+
merci pour ta réponse.
alors que fair pour remédier a ce problème .
Salut Zving,
utiliser la logique et ton imagination car il y a 36 moyens possibles. En voici un : cliquer sur un des boutons 'Consultation' modifie le texte du bouton d'enregistrement, te donnant en même temps l'indice nécessaire pour choisir ta feuille.
USF2 - Choix de la consultation
Sub CommandButton1_Click()
'
UserForm1.CommandButton1.Caption = "Enregistrer-1"
UserForm1.Show
'
End Sub
Private Sub CommandButton2_Click()
'
UserForm1.CommandButton1.Caption = "Enregistrer-2"
UserForm1.Show
'
End SubUSF1 - Enregistrement
Sub CommandButton1_Click()
'
Dim ws As Worksheet
Set ws = IIf(Right(Me.CommandButton1.Caption, 1) = "1", Sheets("consultation1"), Sheets("consultation2"))
'
With ws
.Range("A2") = TextBox1.Value
.Range("B2") = TextBox2.Value
End With
'
End SubL'ordi est très rapide mais il faut lui donner les infos au bon moment!
A+
Bonjour à tous
Un autre moyen : il doit donc en rester 34 !
Bye !
Salut gmb,
et encore! 34 à la grosse louche!
A+
merci a vous ça marche bien.
a plus.......