Bonjour,
quelqu'un peut-il m'expliquer pourquoi une macro simple, aller sur une
feuille du classeur, fonctionne au pas-a-pas, mais pas quand on la lance
avec un bouton ?
Je n'y comprends rien !
merci d'avance.
Michel
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
Daniel
Bonjour. Peux-tu poster ton code ? Cordialement. Daniel "michel thiviers" a écrit dans le message de news: 45d97883$0$25936$
Bonjour, quelqu'un peut-il m'expliquer pourquoi une macro simple, aller sur une feuille du classeur, fonctionne au pas-a-pas, mais pas quand on la lance avec un bouton ? Je n'y comprends rien ! merci d'avance. Michel
Bonjour.
Peux-tu poster ton code ?
Cordialement.
Daniel
"michel thiviers" <michel.lukas@wanadoo.fr> a écrit dans le message de news:
45d97883$0$25936$ba4acef3@news.orange.fr...
Bonjour,
quelqu'un peut-il m'expliquer pourquoi une macro simple, aller sur une
feuille du classeur, fonctionne au pas-a-pas, mais pas quand on la lance
avec un bouton ?
Je n'y comprends rien !
merci d'avance.
Michel
Bonjour. Peux-tu poster ton code ? Cordialement. Daniel "michel thiviers" a écrit dans le message de news: 45d97883$0$25936$
Bonjour, quelqu'un peut-il m'expliquer pourquoi une macro simple, aller sur une feuille du classeur, fonctionne au pas-a-pas, mais pas quand on la lance avec un bouton ? Je n'y comprends rien ! merci d'avance. Michel
MichDenis
Mettre la propriété du bouton TakeFocus... à False
"michel thiviers" a écrit dans le message de news: 45d97883$0$25936$ Bonjour, quelqu'un peut-il m'expliquer pourquoi une macro simple, aller sur une feuille du classeur, fonctionne au pas-a-pas, mais pas quand on la lance avec un bouton ? Je n'y comprends rien ! merci d'avance. Michel
Mettre la propriété du bouton TakeFocus... à False
"michel thiviers" <michel.lukas@wanadoo.fr> a écrit dans le message de news:
45d97883$0$25936$ba4acef3@news.orange.fr...
Bonjour,
quelqu'un peut-il m'expliquer pourquoi une macro simple, aller sur une
feuille du classeur, fonctionne au pas-a-pas, mais pas quand on la lance
avec un bouton ?
Je n'y comprends rien !
merci d'avance.
Michel
Mettre la propriété du bouton TakeFocus... à False
"michel thiviers" a écrit dans le message de news: 45d97883$0$25936$ Bonjour, quelqu'un peut-il m'expliquer pourquoi une macro simple, aller sur une feuille du classeur, fonctionne au pas-a-pas, mais pas quand on la lance avec un bouton ? Je n'y comprends rien ! merci d'avance. Michel
Après la recherche la page doit apparaitre et indiquer la cellule recherchée. Ce code est appliqué à une liste déroulante qui lance la procedure. Quand il n'y a qu'une donnée dans cette rubrique, la macro ne se lance pas, si je la duplique sur 3 ligne par ex. elle fonctionne !! Bizarre non ? Merci d"avance Michel
"Daniel" a écrit dans le message de news:
Bonjour. Peux-tu poster ton code ? Cordialement. Daniel "michel thiviers" a écrit dans le message de news: 45d97883$0$25936$
Bonjour, quelqu'un peut-il m'expliquer pourquoi une macro simple, aller sur une feuille du classeur, fonctionne au pas-a-pas, mais pas quand on la lance avec un bouton ? Je n'y comprends rien ! merci d'avance. Michel
Après la recherche la page doit apparaitre et indiquer la cellule
recherchée.
Ce code est appliqué à une liste déroulante qui lance la procedure.
Quand il n'y a qu'une donnée dans cette rubrique, la macro ne se lance pas,
si je la duplique sur 3 ligne par ex. elle fonctionne !!
Bizarre non ?
Merci d"avance
Michel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eHfrBXBVHHA.4764@TK2MSFTNGP05.phx.gbl...
Bonjour.
Peux-tu poster ton code ?
Cordialement.
Daniel
"michel thiviers" <michel.lukas@wanadoo.fr> a écrit dans le message de
news: 45d97883$0$25936$ba4acef3@news.orange.fr...
Bonjour,
quelqu'un peut-il m'expliquer pourquoi une macro simple, aller sur une
feuille du classeur, fonctionne au pas-a-pas, mais pas quand on la lance
avec un bouton ?
Je n'y comprends rien !
merci d'avance.
Michel
Après la recherche la page doit apparaitre et indiquer la cellule recherchée. Ce code est appliqué à une liste déroulante qui lance la procedure. Quand il n'y a qu'une donnée dans cette rubrique, la macro ne se lance pas, si je la duplique sur 3 ligne par ex. elle fonctionne !! Bizarre non ? Merci d"avance Michel
"Daniel" a écrit dans le message de news:
Bonjour. Peux-tu poster ton code ? Cordialement. Daniel "michel thiviers" a écrit dans le message de news: 45d97883$0$25936$
Bonjour, quelqu'un peut-il m'expliquer pourquoi une macro simple, aller sur une feuille du classeur, fonctionne au pas-a-pas, mais pas quand on la lance avec un bouton ? Je n'y comprends rien ! merci d'avance. Michel
MichDenis
As-tu essayé ceci comme macro : si ceci ne fonctionne pas... prière d'indiquer de quelle barre d'outils émane ton bouton de commande...
Application.ScreenUpdating = False nomfeuille = Range("feuille_choisie") nomproduit = Range("produit_epc_recherche") On Error Resume Next With Sheets(nomfeuille) .Select .Cells.Find(What:=nomproduit, _ After:¬tiveCell, LookIn:=xlValues, _ LookAt:=xlWhole, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:úlse, SearchFormat:úlse).Activate If Err <> 0 Then Err = 0 MsgBox "Pas trouver de cellules correspondantes." End If End With
"michel thiviers" a écrit dans le message de news: 45db2b50$0$5080$ Voila le code interessant de la macro : ... Application.ScreenUpdating = False nomfeuille = Range("feuille_choisie") nomproduit = Range("produit_epc_recherche") Sheets(nomfeuille).Select Range("a5").Select Cells.Find(What:=nomproduit, After:¬tiveCell, LookIn:=xlValues, LookAt:= _ xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:úlse _ , SearchFormat:úlse).Activate ...
Après la recherche la page doit apparaitre et indiquer la cellule recherchée. Ce code est appliqué à une liste déroulante qui lance la procedure. Quand il n'y a qu'une donnée dans cette rubrique, la macro ne se lance pas, si je la duplique sur 3 ligne par ex. elle fonctionne !! Bizarre non ? Merci d"avance Michel
"Daniel" a écrit dans le message de news:
Bonjour. Peux-tu poster ton code ? Cordialement. Daniel "michel thiviers" a écrit dans le message de news: 45d97883$0$25936$
Bonjour, quelqu'un peut-il m'expliquer pourquoi une macro simple, aller sur une feuille du classeur, fonctionne au pas-a-pas, mais pas quand on la lance avec un bouton ? Je n'y comprends rien ! merci d'avance. Michel
As-tu essayé ceci comme macro :
si ceci ne fonctionne pas... prière d'indiquer de quelle
barre d'outils émane ton bouton de commande...
Application.ScreenUpdating = False
nomfeuille = Range("feuille_choisie")
nomproduit = Range("produit_epc_recherche")
On Error Resume Next
With Sheets(nomfeuille)
.Select
.Cells.Find(What:=nomproduit, _
After:¬tiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate
If Err <> 0 Then
Err = 0
MsgBox "Pas trouver de cellules correspondantes."
End If
End With
"michel thiviers" <michel.lukas@wanadoo.fr> a écrit dans le message de news:
45db2b50$0$5080$ba4acef3@news.orange.fr...
Voila le code interessant de la macro :
...
Application.ScreenUpdating = False
nomfeuille = Range("feuille_choisie")
nomproduit = Range("produit_epc_recherche")
Sheets(nomfeuille).Select
Range("a5").Select
Cells.Find(What:=nomproduit, After:¬tiveCell, LookIn:=xlValues,
LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:úlse _
, SearchFormat:úlse).Activate
...
Après la recherche la page doit apparaitre et indiquer la cellule
recherchée.
Ce code est appliqué à une liste déroulante qui lance la procedure.
Quand il n'y a qu'une donnée dans cette rubrique, la macro ne se lance pas,
si je la duplique sur 3 ligne par ex. elle fonctionne !!
Bizarre non ?
Merci d"avance
Michel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eHfrBXBVHHA.4764@TK2MSFTNGP05.phx.gbl...
Bonjour.
Peux-tu poster ton code ?
Cordialement.
Daniel
"michel thiviers" <michel.lukas@wanadoo.fr> a écrit dans le message de
news: 45d97883$0$25936$ba4acef3@news.orange.fr...
Bonjour,
quelqu'un peut-il m'expliquer pourquoi une macro simple, aller sur une
feuille du classeur, fonctionne au pas-a-pas, mais pas quand on la lance
avec un bouton ?
Je n'y comprends rien !
merci d'avance.
Michel
As-tu essayé ceci comme macro : si ceci ne fonctionne pas... prière d'indiquer de quelle barre d'outils émane ton bouton de commande...
Application.ScreenUpdating = False nomfeuille = Range("feuille_choisie") nomproduit = Range("produit_epc_recherche") On Error Resume Next With Sheets(nomfeuille) .Select .Cells.Find(What:=nomproduit, _ After:¬tiveCell, LookIn:=xlValues, _ LookAt:=xlWhole, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:úlse, SearchFormat:úlse).Activate If Err <> 0 Then Err = 0 MsgBox "Pas trouver de cellules correspondantes." End If End With
"michel thiviers" a écrit dans le message de news: 45db2b50$0$5080$ Voila le code interessant de la macro : ... Application.ScreenUpdating = False nomfeuille = Range("feuille_choisie") nomproduit = Range("produit_epc_recherche") Sheets(nomfeuille).Select Range("a5").Select Cells.Find(What:=nomproduit, After:¬tiveCell, LookIn:=xlValues, LookAt:= _ xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:úlse _ , SearchFormat:úlse).Activate ...
Après la recherche la page doit apparaitre et indiquer la cellule recherchée. Ce code est appliqué à une liste déroulante qui lance la procedure. Quand il n'y a qu'une donnée dans cette rubrique, la macro ne se lance pas, si je la duplique sur 3 ligne par ex. elle fonctionne !! Bizarre non ? Merci d"avance Michel
"Daniel" a écrit dans le message de news:
Bonjour. Peux-tu poster ton code ? Cordialement. Daniel "michel thiviers" a écrit dans le message de news: 45d97883$0$25936$
Bonjour, quelqu'un peut-il m'expliquer pourquoi une macro simple, aller sur une feuille du classeur, fonctionne au pas-a-pas, mais pas quand on la lance avec un bouton ? Je n'y comprends rien ! merci d'avance. Michel
michel thiviers
Désolé, pas mieux ! Pas de reponse de la recup d'erreur. Ma liste qui lance la macro est de la barre formulaire, bien suffisante pour ce que je fais. je vais essayer avec l'autre commande. Merci encore Michel "MichDenis" a écrit dans le message de news:
As-tu essayé ceci comme macro : si ceci ne fonctionne pas... prière d'indiquer de quelle barre d'outils émane ton bouton de commande...
Application.ScreenUpdating = False nomfeuille = Range("feuille_choisie") nomproduit = Range("produit_epc_recherche") On Error Resume Next With Sheets(nomfeuille) .Select .Cells.Find(What:=nomproduit, _ After:¬tiveCell, LookIn:=xlValues, _ LookAt:=xlWhole, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:úlse, SearchFormat:úlse).Activate If Err <> 0 Then Err = 0 MsgBox "Pas trouver de cellules correspondantes." End If End With
"michel thiviers" a écrit dans le message de news: 45db2b50$0$5080$ Voila le code interessant de la macro : ... Application.ScreenUpdating = False nomfeuille = Range("feuille_choisie") nomproduit = Range("produit_epc_recherche") Sheets(nomfeuille).Select Range("a5").Select Cells.Find(What:=nomproduit, After:¬tiveCell, LookIn:=xlValues, LookAt:= _ xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:úlse _ , SearchFormat:úlse).Activate ...
Après la recherche la page doit apparaitre et indiquer la cellule recherchée. Ce code est appliqué à une liste déroulante qui lance la procedure. Quand il n'y a qu'une donnée dans cette rubrique, la macro ne se lance pas, si je la duplique sur 3 ligne par ex. elle fonctionne !! Bizarre non ? Merci d"avance Michel
"Daniel" a écrit dans le message de news:
Bonjour. Peux-tu poster ton code ? Cordialement. Daniel "michel thiviers" a écrit dans le message de news: 45d97883$0$25936$
Bonjour, quelqu'un peut-il m'expliquer pourquoi une macro simple, aller sur une feuille du classeur, fonctionne au pas-a-pas, mais pas quand on la lance avec un bouton ? Je n'y comprends rien ! merci d'avance. Michel
Désolé, pas mieux !
Pas de reponse de la recup d'erreur. Ma liste qui lance la macro est de la
barre formulaire, bien suffisante pour ce que je fais. je vais essayer avec
l'autre commande.
Merci encore
Michel
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
uiqNFSRVHHA.4832@TK2MSFTNGP04.phx.gbl...
As-tu essayé ceci comme macro :
si ceci ne fonctionne pas... prière d'indiquer de quelle
barre d'outils émane ton bouton de commande...
Application.ScreenUpdating = False
nomfeuille = Range("feuille_choisie")
nomproduit = Range("produit_epc_recherche")
On Error Resume Next
With Sheets(nomfeuille)
.Select
.Cells.Find(What:=nomproduit, _
After:¬tiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate
If Err <> 0 Then
Err = 0
MsgBox "Pas trouver de cellules correspondantes."
End If
End With
"michel thiviers" <michel.lukas@wanadoo.fr> a écrit dans le message de
news:
45db2b50$0$5080$ba4acef3@news.orange.fr...
Voila le code interessant de la macro :
...
Application.ScreenUpdating = False
nomfeuille = Range("feuille_choisie")
nomproduit = Range("produit_epc_recherche")
Sheets(nomfeuille).Select
Range("a5").Select
Cells.Find(What:=nomproduit, After:¬tiveCell, LookIn:=xlValues,
LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:úlse _
, SearchFormat:úlse).Activate
...
Après la recherche la page doit apparaitre et indiquer la cellule
recherchée.
Ce code est appliqué à une liste déroulante qui lance la procedure.
Quand il n'y a qu'une donnée dans cette rubrique, la macro ne se lance
pas,
si je la duplique sur 3 ligne par ex. elle fonctionne !!
Bizarre non ?
Merci d"avance
Michel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eHfrBXBVHHA.4764@TK2MSFTNGP05.phx.gbl...
Bonjour.
Peux-tu poster ton code ?
Cordialement.
Daniel
"michel thiviers" <michel.lukas@wanadoo.fr> a écrit dans le message de
news: 45d97883$0$25936$ba4acef3@news.orange.fr...
Bonjour,
quelqu'un peut-il m'expliquer pourquoi une macro simple, aller sur une
feuille du classeur, fonctionne au pas-a-pas, mais pas quand on la lance
avec un bouton ?
Je n'y comprends rien !
merci d'avance.
Michel
Désolé, pas mieux ! Pas de reponse de la recup d'erreur. Ma liste qui lance la macro est de la barre formulaire, bien suffisante pour ce que je fais. je vais essayer avec l'autre commande. Merci encore Michel "MichDenis" a écrit dans le message de news:
As-tu essayé ceci comme macro : si ceci ne fonctionne pas... prière d'indiquer de quelle barre d'outils émane ton bouton de commande...
Application.ScreenUpdating = False nomfeuille = Range("feuille_choisie") nomproduit = Range("produit_epc_recherche") On Error Resume Next With Sheets(nomfeuille) .Select .Cells.Find(What:=nomproduit, _ After:¬tiveCell, LookIn:=xlValues, _ LookAt:=xlWhole, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:úlse, SearchFormat:úlse).Activate If Err <> 0 Then Err = 0 MsgBox "Pas trouver de cellules correspondantes." End If End With
"michel thiviers" a écrit dans le message de news: 45db2b50$0$5080$ Voila le code interessant de la macro : ... Application.ScreenUpdating = False nomfeuille = Range("feuille_choisie") nomproduit = Range("produit_epc_recherche") Sheets(nomfeuille).Select Range("a5").Select Cells.Find(What:=nomproduit, After:¬tiveCell, LookIn:=xlValues, LookAt:= _ xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:úlse _ , SearchFormat:úlse).Activate ...
Après la recherche la page doit apparaitre et indiquer la cellule recherchée. Ce code est appliqué à une liste déroulante qui lance la procedure. Quand il n'y a qu'une donnée dans cette rubrique, la macro ne se lance pas, si je la duplique sur 3 ligne par ex. elle fonctionne !! Bizarre non ? Merci d"avance Michel
"Daniel" a écrit dans le message de news:
Bonjour. Peux-tu poster ton code ? Cordialement. Daniel "michel thiviers" a écrit dans le message de news: 45d97883$0$25936$
Bonjour, quelqu'un peut-il m'expliquer pourquoi une macro simple, aller sur une feuille du classeur, fonctionne au pas-a-pas, mais pas quand on la lance avec un bouton ? Je n'y comprends rien ! merci d'avance. Michel
