Aide sur macro facile
Fermé
toopey77
Messages postés
18
Date d'inscription
lundi 5 octobre 2009
Statut
Membre
Dernière intervention
18 mai 2016
-
21 juin 2013 à 18:35
rEVOLV3r Messages postés 223 Date d'inscription jeudi 12 août 2010 Statut Membre Dernière intervention 21 septembre 2022 - 24 juin 2013 à 08:22
rEVOLV3r Messages postés 223 Date d'inscription jeudi 12 août 2010 Statut Membre Dernière intervention 21 septembre 2022 - 24 juin 2013 à 08:22
A voir également:
- Aide sur macro facile
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro logiciel - Télécharger - Organisation
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
6 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
Modifié par michel_m le 21/06/2013 à 18:45
Modifié par michel_m le 21/06/2013 à 18:45
bonjour,
If range("h11") = teste then workbooks("listing.xls"). Sheets( "teste"). select
Michel
If range("h11") = teste then workbooks("listing.xls"). Sheets( "teste"). select
Michel
BOnjour michel _m,
Tout d'abord merci pour ton msg.
Je viens de faire un test avec ta macro.... mais elle ne fonctionne pas... aucun message d'erreur... rien ne se passe...
tu n'aurais pas une idées?
Merci beaucoup
Tout d'abord merci pour ton msg.
Je viens de faire un test avec ta macro.... mais elle ne fonctionne pas... aucun message d'erreur... rien ne se passe...
tu n'aurais pas une idées?
Merci beaucoup
Voici la macro que j'ai montée:
Sub tentative()
If Range("h11") = "teste" Then Workbook("listing.xls").Sheets("teste").Select
If Range("h11") = "toopey" Then Workbook("listing.xls").Sheets("toopey").Select
If Range("h11") = "youyou" Then Workbook("listing.xls").Sheets("youyou").Select
End Sub
j'ai le msg d'erreur suivant: "Sub ou fonction non definie"
Pourtant j'ai le sentiment d'etre proche lol
Sub tentative()
If Range("h11") = "teste" Then Workbook("listing.xls").Sheets("teste").Select
If Range("h11") = "toopey" Then Workbook("listing.xls").Sheets("toopey").Select
If Range("h11") = "youyou" Then Workbook("listing.xls").Sheets("youyou").Select
End Sub
j'ai le msg d'erreur suivant: "Sub ou fonction non definie"
Pourtant j'ai le sentiment d'etre proche lol
toopey77
Messages postés
18
Date d'inscription
lundi 5 octobre 2009
Statut
Membre
Dernière intervention
18 mai 2016
23 juin 2013 à 22:48
23 juin 2013 à 22:48
Up... Personne pour m'aider please???
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
338
23 juin 2013 à 23:05
23 juin 2013 à 23:05
Bonsoir
If Range("h11").value = "teste" Then Workbooks("listing.xls").Sheets("teste").Select
mettre un S a Workbooks
d'autre part, le fichier listing se trouve t-il dans le même répertoire que le fichier d'appel? si ce n'est pas le cas, il faut lui indiquer le chemin
cdlt
If Range("h11").value = "teste" Then Workbooks("listing.xls").Sheets("teste").Select
mettre un S a Workbooks
d'autre part, le fichier listing se trouve t-il dans le même répertoire que le fichier d'appel? si ce n'est pas le cas, il faut lui indiquer le chemin
cdlt
rEVOLV3r
Messages postés
223
Date d'inscription
jeudi 12 août 2010
Statut
Membre
Dernière intervention
21 septembre 2022
28
24 juin 2013 à 08:21
24 juin 2013 à 08:21
Bonjour,
Lorsqu'une boucle s'ouvre, elle doit être refermée ! :-D
"End if" pourrait peut-être vous aider ! Et la remarque de Frenchie83 est totalement vraie aussi.
Bye
Lorsqu'une boucle s'ouvre, elle doit être refermée ! :-D
"End if" pourrait peut-être vous aider ! Et la remarque de Frenchie83 est totalement vraie aussi.
Bye
rEVOLV3r
Messages postés
223
Date d'inscription
jeudi 12 août 2010
Statut
Membre
Dernière intervention
21 septembre 2022
28
24 juin 2013 à 08:22
24 juin 2013 à 08:22
Pour faire un code plus harmonieux, vous pouvez utiliser les Switch case aussi.