Aide sur macro facile
toopey77
Messages postés
19
Date d'inscription
Statut
Membre
Dernière intervention
-
rEVOLV3r Messages postés 223 Date d'inscription Statut Membre Dernière intervention -
rEVOLV3r Messages postés 223 Date d'inscription Statut Membre Dernière intervention -
Bjr a tous.
J'ai besoin de votre aide sur une macro je penses simple. Mais je ne vois pas comment faire dans l'immediat.
J'ai un fichierA et un fichierB
Le fichierA a une liste deroulante en H11 qui comporte chacun des onglets dispo dans le classeur du fichierB
Je me demande comment par macro activer directement la sheets dans le FichierB qui correspond a celle contenu dans la range h11 du fichierA.
Pour info j'ai tester :(de memoire)
If range(h11) = teste then listing.xls. Activate
Sheets teste. Activate
End if
Mais cela ne fonctionnne pas j'ai un msg bloc end if sans if...
Merci de votre aide
J'ai besoin de votre aide sur une macro je penses simple. Mais je ne vois pas comment faire dans l'immediat.
J'ai un fichierA et un fichierB
Le fichierA a une liste deroulante en H11 qui comporte chacun des onglets dispo dans le classeur du fichierB
Je me demande comment par macro activer directement la sheets dans le FichierB qui correspond a celle contenu dans la range h11 du fichierA.
Pour info j'ai tester :(de memoire)
If range(h11) = teste then listing.xls. Activate
Sheets teste. Activate
End if
Mais cela ne fonctionnne pas j'ai un msg bloc end if sans if...
Merci de votre aide
6 réponses
-
bonjour,
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 -
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 -
Up... Personne pour m'aider please???
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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 -
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
