Logo GNT
Actualités Tests & Guides Bons Plans
Prime Day iPhone 16 Copilot PS5 Pro Xiaomi 15 ChatGPT Tesla
Entraide Applications Microsoft Office Excel Select case

Select case

4 réponses
Avatar
smdaoust
Bonjour,
Est-ce que cette syntaxe est correcte
Case "L1-3" To "L13-4"
L1-3 et L13-4 sont des noms de feuilles. Entre elles, il y en a près
de 50. Elles se nomment L1-4, L2-1, L2-3, L2-3, L2-4, L3-1 etc....

Merci beaucoup

Claire
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Michel ROPERT
SAlut Claire....

Je suis peut être hors-sujet, auquel cas toutes mes excuses.... mais
j'ai eu un prb du même ordre un jour ou j'avais besoin de travailler
successivement sur toutes les feuilles d'un même fichier.
Pour cela, j'ai utilisé une boucle FOR....EACH de la manière suivante :

For Each ws In Worksheets ' pour chaque feuille
ws.Activate 'active la feuille
................ ' la tu inclus tout
ce que tu as à faire sur la feuille en question
Next ws ' qd c'est fini, ca passe
à la feuille suivante et ca recommence


Voila, en espérant que ca puisse t'aider....

Bye..

Michel







Bonjour,
Est-ce que cette syntaxe est correcte
Case "L1-3" To "L13-4"
L1-3 et L13-4 sont des noms de feuilles. Entre elles, il y en a près
de 50. Elles se nomment L1-4, L2-1, L2-3, L2-3, L2-4, L3-1 etc....

Merci beaucoup

Claire


--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Michel ROPERT
IFREMER LCN DRV-RA
Av Du Gal De Gaulle
14520 PORT EN BESSIN

Tél (Direct) : 02.31.51.13.34.
Tél (Std) : 02.31.51.13.00.
Tél (Portable) : 06.63.10.07.82.
Fax : 02.31.51.13.01.


Mail :
WEB : www.ifremer.fr
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Avatar
smdaoust
(Claire) wrote in message news:...
Bonjour,
Est-ce que cette syntaxe est correcte
Case "L1-3" To "L13-4"
L1-3 et L13-4 sont des noms de feuilles. Entre elles, il y en a près
de 50. Elles se nomment L1-4, L2-1, L2-3, L2-3, L2-4, L3-1 etc....

Merci beaucoup

Claire


Je me suis mal expliquée à ce que je vois. Voici mon problème.

Select Case ActiveSheet.Name
Case Is = "L1-1"
instructions
Case Is = "L1-2"
instructions
Case "L1-3" To "L13-4", cette ligne semble ne pas fonctionner.
instructions

Je ne peux me servir de ELSE car dans ce fichier, j'ai d'autres feuilles.

Claire

Avatar
michdenis
Bonsoir Claire,

Rien ne t'empêche de les nommées comme ceci :

Select Case ActiveSheet.Name
Case Is = "L1-1"
instructions
Case Is = "L1-2"
instructions
Case "L1-3" , "L2-4", "L3-4", "L5-4" ' etc. ....
Et tu peux allonger la liste...en séparant chaque item par une virgule.

end select


Salutations !





"Claire" a écrit dans le message de news:
(Claire) wrote in message news:...
Bonjour,
Est-ce que cette syntaxe est correcte
Case "L1-3" To "L13-4"
L1-3 et L13-4 sont des noms de feuilles. Entre elles, il y en a près
de 50. Elles se nomment L1-4, L2-1, L2-3, L2-3, L2-4, L3-1 etc....

Merci beaucoup

Claire


Je me suis mal expliquée à ce que je vois. Voici mon problème.

Select Case ActiveSheet.Name
Case Is = "L1-1"
instructions
Case Is = "L1-2"
instructions
Case "L1-3" To "L13-4", cette ligne semble ne pas fonctionner.
instructions

Je ne peux me servir de ELSE car dans ce fichier, j'ai d'autres feuilles.

Claire

Avatar
smdaoust
(Claire) wrote in message news:...
Bonjour,
Est-ce que cette syntaxe est correcte
Case "L1-3" To "L13-4"
L1-3 et L13-4 sont des noms de feuilles. Entre elles, il y en a près
de 50. Elles se nomment L1-4, L2-1, L2-3, L2-3, L2-4, L3-1 etc....

Merci beaucoup

Claire


Merci beaucoup Isabelle et michdenis. J,ai adopté la solution de
michdenis. Moins compliqué.

Claire