Comment "figer" le choix n°1 dans liste

Résolu

bennybouf Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention - 30 juil. 2008 à 13:38

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

Afficher la suite

A voir également:

Comment "figer" le choix n°1 dans liste
Liste déroulante excel - Guide
Liste déroulante en cascade - Guide
Figer les volets - Guide
Liste code ascii - Guide
Site dangereux liste - Guide

7 réponses

Réponse 1 / 7

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

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

Réponse 2 / 7

bennybouf Messages postés 5 Date d'inscription Statut Membre Dernière intervention

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).

Réponse 3 / 7

bennybouf Messages postés 5 Date d'inscription Statut Membre Dernière intervention

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.

Réponse 4 / 7

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

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.

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 7

bennybouf Messages postés 5 Date d'inscription Statut Membre Dernière intervention

Voilà : https://www.cjoint.com/?hDxgawoMfz

J'ai tronqué le fichier mais l'essentiel est là.

Réponse 6 / 7

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

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+

Réponse 7 / 7

bennybouf Messages postés 5 Date d'inscription Statut Membre Dernière intervention

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.

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

Non, non, c'était pas si simple que cela, j'ai du chercher aussi parce que copie/paste ne fonctionnait pas dans ce contexte.
Content d'avoir pu t'aider
A+

Discussions similaires

Sauvegegarder le document avec un nom trouvé dans ce doc

Votre réponse

Discussions similaires