Comment "figer" le choix n°1 dans liste Résolu

Question

Bonjour,

Je bute sur une chose peut être toute "bête".

Je suis en train de créer un formulaire de contrôle à remplir dans un fichier Excel. Il y a donc plusieurs champs à remplir (nom, adresse, etc.) dont certains sont à choix multiples dans une liste déroulante. Ces cases sont indiquées dans le formulaire par le 1er choix dans la liste "Cliquez ici". (ex.: Une liste de choix contient: Cliquez ici;oui;non ou Cliquez ici;pompe;clapet, etc.).

Jusque là, je n'ai pas de problème. Mon hic est que je désire créer un bouton de RAZ (Remise à Zéro) pour mettre le fichier "à blanc" en effaçant les champs complétés.

Sauf que si je fais ça, les cellules qui contiennent mes listes de choix, et donc l'indication "Cliquez ici" deviennent blanches.

Ce que je souhaite donc, c'est que l'action sur mon bouton RAZ efface bien les champs manuels mais remette le 1er choix de mes listes de choix soit "Cliquez ici".

Désolé si je répète bêtement les choses mais j'ai peur de mal décrire mon problème et de vous faire chercher pour rien ^^.

Si vous avez besoin d'informations supplémentaires, je suis à votre disposition.

Je vous remercie par avance de vos réponses.

Cordialement,

Benny

lermite222 · Answer

Bonjour,
Tu peu mettre ta macro de RAZ sur le poste suivant ?
A+

bennybouf · Answer

Avec Office 2003 (boulot) :
Sub test_RAZ()
'
' test_RAZ Macro
' Macro enregistrée le 29/07/2008 par Moi
'
' Touche de raccourci du clavier: Ctrl+r
'
    Range("C8:F8").Select
    Selection.ClearContents
    Range("I8:W8").Select
    Selection.ClearContents
    Range("F9:M9").Select
    Selection.ClearContents
    Range("P9:W9").Select
    Selection.ClearContents
    Range("D10:E10").Select
    Selection.ClearContents
    Range("H10:M10").Select
    Selection.ClearContents
    Range("P10:W10").Select
    Selection.ClearContents
    Range("G11:M11").Select
    Selection.ClearContents
    Range("P11:W11").Select
    Selection.ClearContents
    Range("D12:E12").Select
    Selection.ClearContents
    Range("H12:M12").Select
    Selection.ClearContents
    Range("P12:W12").Select
    Selection.ClearContents
    Range("F16:W16").Select
    Selection.ClearContents
    Range("E17").Select
    Selection.ClearContents
    Range("H17:W17").Select
    Selection.ClearContents
    Range("B19:J19").Select
    Selection.ClearContents
    Range("K19:W19").Select
    Selection.ClearContents
    Range("B20:J20").Select
    Selection.ClearContents
    Range("K20:W20").Select
    Selection.ClearContents
    Range("B21:J21").Select
    Selection.ClearContents
    Range("K21:W21").Select
    Selection.ClearContents
    Range("G25:W25").Select
    Selection.ClearContents
    Range("T27:W27").Select
    Selection.ClearContents
    Range("N29:O29").Select
    Selection.ClearContents
    Range("S29:U29").Select
    Selection.ClearContents
    Range("N30:O30").Select
    Selection.ClearContents
    Range("T31:W31").Select
    Selection.ClearContents
        
    End Sub

Avec Office 2007 (maison):
Sub test()
'
' test Macro
'
' Touche de raccourci du clavier: Ctrl+t
'
    Range( _
        "C8:F8,I8:W8,F9:M9,P9:W9,D10:E10,H10:M10,P10:W10,G11:M11,P11:W11,D12:E12,H12:M12,P12:W12,F16:W16,E17,H17:W17,B19:J19,K19:W19,B20:J20,K20:W20,B21:J21,K21:W21,G25:W25,G26:J26" _
        ).Select
    Range("G26").Activate
    ActiveSheet.Shapes("Drop Down 71").Select
    Union(Range( _
        "N30:O30,S29:U29,P31:S31,T31:W31,C8:F8,I8:W8,F9:M9,P9:W9,D10:E10,H10:M10,P10:W10,G11:M11,P11:W11,D12:E12,H12:M12,P12:W12,F16:W16,E17,H17:W17,B19:J19,K19:W19,B20:J20,K20:W20,B21:J21,K21:W21,G25:W25,G26:J26,P26:S26,G27:J27,P27:S27,T27:W27,G28:J28" _
        ), Range("G29:J29,G30:J30,G31:J31,N29:O29")).Select
    Range("T31").Activate
    Selection.ClearContents
End Sub

Décidement...

Pour info, un des menus ce trouve en "G26;J26" (fusion de cellules inside).

bennybouf · Answer

Comme on peut le voir, je ne suis pas le roi du macro (et non pas le roi des macros, s'pas pareil ^^). J'utilise le simple enregistrement des clics/actions pour la créer.

Lors de l'enregistrement, même si je sélectionne ma liste et que je sélectionne "Cliquez ici", rien n'apparait dans la macro.

lermite222 · Answer

Pas clair, avant de poser des question, peu-tu mettre ton classeur (2003) j'ai pas 2007 sur Cjoint ?
https://www.cjoint.com/
et mettre le lien sur le poste suivant.
Mais 1ère constatation, tu peu faire des Union de Range avec le 2003 aussi.

bennybouf · Answer

Voilà : https://www.cjoint.com/?hDxgawoMfz

J'ai tronqué le fichier mais l'essentiel est là.

lermite222 · Answer

Je ne vois pas où se situe un problème ?
Colle cette macro dans un module.
Sub test_RAZ()

    Range("C2:F2,I2:W2,F3:M3,P3:W3,D4:E4,H4:M4,P4:W4,G5:M5,P5:W5,D6:E6,H6:M6,P6:W6" _
        ).Select
    Range("P6").Activate
    Selection.ClearContents
    Range("F10:W10,E11,H11:W11,B13:J13,B14:J14,B15:J15,K13:W13,K14:W14,K15:W15"). _
        Select
    Range("K15").Activate
    Selection.ClearContents
    Range("G19:W19,T20:W20,T21:W21,K22:W22,N23:O23,N24:O24,S23:U23,P24:W24,T25:W25" _
        ).Select
    Range("T25").Activate
    Selection.ClearContents
    Range("C2").Select
    Range("AC1").Copy Range("G20:J20")
    Range("AB1").Copy Range("G21:J21")
    Range("AB1").Copy Range("G22:J22")
    Range("AB1").Copy Range("G23:J23")
    Range("AB1").Copy Range("G25:J25")
    Range("AB1").Copy Range("P20:S20")
    Range("AD1").Copy Range("G24:J24")
    Range("AL1").Copy Range("P21:S21")
    Range("AE1").Copy Range("P25:S25")

End Sub

tu dit...mais ca devrait aller.
A+

bennybouf · Answer

C'est bon !! je t'en remercie beaucoup.

Bon, j'ai un peu honte car c'était vraiment tout bête mais pour une raison obscure j'ai "buté" dessus...

Encore merci pour ton aide.

Comment "figer" le choix n°1 dans liste

7 réponses

Newsletters