Réinitialiser contrôles activeX

  • Initiateur de la discussion Initiateur de la discussion orfila
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

orfila

XLDnaute Nouveau
Bonjour à tous,
Je n'ai pas trouvé la solution a mon problême, en fait j'ai crée des combobox et des checkbox (activeX) directement à partir de l'onglet "insérer" sur ma feuille et je n'arrive pas à reinitialiser tous les contrôles (liste, case..) une fois que je les ai enregistré sur une autre feuille.
je souhaiterai juste un systéme pour reinitialiser les contrôles présent sur l'onglet.
Je sais le faire avec un userform, mais je n'y arrive pas a partir de la feuille.
si le sujet a deja été traité et que quelqu'un a un petit lien a me donner😱
Merci beaucoup (et aussi merci pour toutes les super solutions que j'ai dejà trouvé sur le forum) pour le coup de main.
Yoann
 
Re : Réinitialiser contrôles activeX

Voici une solution :
Code:
Sub test()
'
' test Macro
'
'
    With Sheets("Feuil1")
        .Range("M4:P4").Copy
        Sheets("a").Range("A" & Range("a65536").End(xlUp).Row + 1).PasteSpecial _
            Paste:=xlPasteValues, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        
        .ComboBox1.Value = ""
        .ComboBox2.Value = ""
        .CheckBox2.Value = False
    End With
End Sub
 
Re : Réinitialiser contrôles activeX

Merci beaucoup, en fait je me creusai la tête pour trouver une solution pour tout effacer d'un coup (sans taper le nom des box parce qu'il y en a beaucoup), mais les solution les plus simples sont les meilleurs.
 
Re : Réinitialiser contrôles activeX

Si tu as beaucoup de combobox, tu peux effectuer cela :
Exemple pour effacer la valeur de 5 combobox :
Code:
' Il faut que le nom de chaque combobox commence de la même manière
' combobox1, combobox2, ... , combobox5

Dim Ctrl As Integer

For Ctrl = 1 To 5
    Controls("combobox" & Ctrl).Value = ""
Next Ctrl

Cela peut également être utiliser pour d'autres contrôles.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
371
Réponses
15
Affichages
478
Réponses
17
Affichages
557
Retour