Clic sur checkbox qui change choix fait combo

[Chaps]

Re,

Je voudrais à partir d'un clic sur un checkbox modifier le choix fait sur un combobox. J'ai tenté ceci en vain 🙁

Private Sub CheckBox4_Click()
If CheckBox4.Value = True Then ComboBox2.Value = ('Pdts!a1')

End Sub

Soit récuperer la value en A1 de ma feuille Pdts

De plus, je souhaiterais faire la meme chose mais cette fois recuperer la derniere valeur renséignée dans la colonne A de ma feuille Pdts. Evidemment la position ligne de cette valeur varie.

Merci pour le retour d'infos....

Chaps

 

[Hellboy]

Bonjour

Je ne suis pas sure de comprendre.
- Est-ce que le combobox2 contient déjà tous les éléments de la colonne A de la feuille 'Pdts' ?
- Quel est le rapport avec ton checkbox4 et le choix du combobox ?
- Peut- tu donner un exemple précis de ce que le Combobox2 contient ?

 

[Robert]

Bonjour Chaps, Hellboy, bonjour le forum,

Essaie comme ça pour A1 :

Private Sub CheckBox4_Click()
If CheckBox4.Value = True Then ComboBox2.Value = Sheets('pdts').Range('A1').Value
End Sub

Et comme ça pour la dernière valeur éditée de la colonne A :

Private Sub CheckBox5_Click() 'numéro à adapter !
If CheckBox4.Value = True Then ComboBox2.Value = Sheets('pdts').Range('A65536').End(xlUp).Value
End Sub

 

[Chaps]

Re,

Une nouvelle fois merci Robert et merci à Hellboy pour le 'suivi'...

@+

 

[Chaps]

Re,

Dslé, pour être perfectionniste, quelle serait l'instruction qui ferait en sorte que ces deux combobox modifiés par le clic du checkbox ne puissent être à nouveau modifié sans désactiver le checkbox...

à suivre.... merci

 

[Robert]

Bonjour Chaps, bonjour le forum,

Essaie comme ça :

Private Sub CheckBox4_Click()
If CheckBox4.Value = True Then
ComboBox2.Enabled = False
ComboBox2.Value = Sheets('pdts').Range('A1').Value
Else
ComboBox2.Enabled = True
End If
End Sub

 

[Chaps]

Bonsoir,

Sorry Robert, je viens seulement de voir ta réponse, je risque d'etre repetitif mais encore une fois merci.

Et bon week-end à tous !

Chaps