Bonjour,
j'utilise la macro suivante pour rechercher une valeur dans une plage donnée.
valtest = InputBox("entrer le N° d'OE4, OE6 ou N° de l'offre à rechercher")
For Each C In [A1:o1500]
If C Like valtest Then
C.Select
Application.EnableEvents = True
Exit Sub
End If
Next
MsgBox "Pas d'OE N°" & valtest & " dans la plage testée !"
Call cherche_OE
Application.EnableEvents = True
End Sub
Par contre celà ne me donne que la première valeur trouvée alors que le
voudrais avoir toutes les lignes portant cette même valeur.
Pourriez vous m'aider ?
Merci d'avance.
coffee
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
Chenille
Salut Pour te mètre sur la voie….
For Each C In [A1:o1500] If C Like valtest Then C.Select Application.EnableEvents = True Exit Sub --------- la tu sorts de ta sub End If Next MsgBox "Pas d'OE N°" & valtest & " dans la plage testée !" Call cherche_OE Application.EnableEvents = True End Sub
Fais un essai avec…..
Compteur=0
For Each C In [A1:o1500] If C Like valtest Then C.Select Compteur=Compteur+1 Application.EnableEvents = True End If Next
If comteur = 0 then MsgBox "Pas d'OE N°" & valtest & " dans la plage testée !" Call cherche_OE Application.EnableEvents = True End If
End Sub
Bonjour, j'utilise la macro suivante pour rechercher une valeur dans une plage donnée.
valtest = InputBox("entrer le N° d'OE4, OE6 ou N° de l'offre à rechercher")
For Each C In [A1:o1500] If C Like valtest Then C.Select Application.EnableEvents = True Exit Sub End If Next MsgBox "Pas d'OE N°" & valtest & " dans la plage testée !" Call cherche_OE Application.EnableEvents = True End Sub
Par contre celà ne me donne que la première valeur trouvée alors que le voudrais avoir toutes les lignes portant cette même valeur. Pourriez vous m'aider ? Merci d'avance. coffee
Salut
Pour te mètre sur la voie….
For Each C In [A1:o1500]
If C Like valtest Then
C.Select
Application.EnableEvents = True
Exit Sub --------- la tu sorts de ta sub
End If
Next
MsgBox "Pas d'OE N°" & valtest & " dans la plage testée !"
Call cherche_OE
Application.EnableEvents = True
End Sub
Fais un essai avec…..
Compteur=0
For Each C In [A1:o1500]
If C Like valtest Then
C.Select
Compteur=Compteur+1
Application.EnableEvents = True
End If
Next
If comteur = 0 then
MsgBox "Pas d'OE N°" & valtest & " dans la plage testée !"
Call cherche_OE
Application.EnableEvents = True
End If
End Sub
Bonjour,
j'utilise la macro suivante pour rechercher une valeur dans une plage donnée.
valtest = InputBox("entrer le N° d'OE4, OE6 ou N° de l'offre à rechercher")
For Each C In [A1:o1500]
If C Like valtest Then
C.Select
Application.EnableEvents = True
Exit Sub
End If
Next
MsgBox "Pas d'OE N°" & valtest & " dans la plage testée !"
Call cherche_OE
Application.EnableEvents = True
End Sub
Par contre celà ne me donne que la première valeur trouvée alors que le
voudrais avoir toutes les lignes portant cette même valeur.
Pourriez vous m'aider ?
Merci d'avance.
coffee
For Each C In [A1:o1500] If C Like valtest Then C.Select Application.EnableEvents = True Exit Sub --------- la tu sorts de ta sub End If Next MsgBox "Pas d'OE N°" & valtest & " dans la plage testée !" Call cherche_OE Application.EnableEvents = True End Sub
Fais un essai avec…..
Compteur=0
For Each C In [A1:o1500] If C Like valtest Then C.Select Compteur=Compteur+1 Application.EnableEvents = True End If Next
If comteur = 0 then MsgBox "Pas d'OE N°" & valtest & " dans la plage testée !" Call cherche_OE Application.EnableEvents = True End If
End Sub
Bonjour, j'utilise la macro suivante pour rechercher une valeur dans une plage donnée.
valtest = InputBox("entrer le N° d'OE4, OE6 ou N° de l'offre à rechercher")
For Each C In [A1:o1500] If C Like valtest Then C.Select Application.EnableEvents = True Exit Sub End If Next MsgBox "Pas d'OE N°" & valtest & " dans la plage testée !" Call cherche_OE Application.EnableEvents = True End Sub
Par contre celà ne me donne que la première valeur trouvée alors que le voudrais avoir toutes les lignes portant cette même valeur. Pourriez vous m'aider ? Merci d'avance. coffee
coffee
Merci, mais ...j'ai essayé et une fois la macro lancée celle ci passe en revue toutes les 1500 lignes avant même que je mette mon choix et ceci sans jamais s'arrêter: donc : gestionnaire de programme et arrêt de l'application obligatoire !
Salut Pour te mètre sur la voie….
For Each C In [A1:o1500] If C Like valtest Then C.Select Application.EnableEvents = True Exit Sub --------- la tu sorts de ta sub End If Next MsgBox "Pas d'OE N°" & valtest & " dans la plage testée !" Call cherche_OE Application.EnableEvents = True End Sub
Fais un essai avec…..
Compteur=0
For Each C In [A1:o1500] If C Like valtest Then C.Select Compteur=Compteur+1 Application.EnableEvents = True End If Next
If comteur = 0 then MsgBox "Pas d'OE N°" & valtest & " dans la plage testée !" Call cherche_OE Application.EnableEvents = True End If
End Sub
Bonjour, j'utilise la macro suivante pour rechercher une valeur dans une plage donnée.
valtest = InputBox("entrer le N° d'OE4, OE6 ou N° de l'offre à rechercher")
For Each C In [A1:o1500] If C Like valtest Then C.Select Application.EnableEvents = True Exit Sub End If Next MsgBox "Pas d'OE N°" & valtest & " dans la plage testée !" Call cherche_OE Application.EnableEvents = True End Sub
Par contre celà ne me donne que la première valeur trouvée alors que le voudrais avoir toutes les lignes portant cette même valeur. Pourriez vous m'aider ? Merci d'avance. coffee
Merci, mais ...j'ai essayé et une fois la macro lancée celle ci passe en
revue toutes les 1500 lignes avant même que je mette mon choix et ceci sans
jamais s'arrêter: donc : gestionnaire de programme et arrêt de l'application
obligatoire !
Salut
Pour te mètre sur la voie….
For Each C In [A1:o1500]
If C Like valtest Then
C.Select
Application.EnableEvents = True
Exit Sub --------- la tu sorts de ta sub
End If
Next
MsgBox "Pas d'OE N°" & valtest & " dans la plage testée !"
Call cherche_OE
Application.EnableEvents = True
End Sub
Fais un essai avec…..
Compteur=0
For Each C In [A1:o1500]
If C Like valtest Then
C.Select
Compteur=Compteur+1
Application.EnableEvents = True
End If
Next
If comteur = 0 then
MsgBox "Pas d'OE N°" & valtest & " dans la plage testée !"
Call cherche_OE
Application.EnableEvents = True
End If
End Sub
Bonjour,
j'utilise la macro suivante pour rechercher une valeur dans une plage donnée.
valtest = InputBox("entrer le N° d'OE4, OE6 ou N° de l'offre à rechercher")
For Each C In [A1:o1500]
If C Like valtest Then
C.Select
Application.EnableEvents = True
Exit Sub
End If
Next
MsgBox "Pas d'OE N°" & valtest & " dans la plage testée !"
Call cherche_OE
Application.EnableEvents = True
End Sub
Par contre celà ne me donne que la première valeur trouvée alors que le
voudrais avoir toutes les lignes portant cette même valeur.
Pourriez vous m'aider ?
Merci d'avance.
coffee
Merci, mais ...j'ai essayé et une fois la macro lancée celle ci passe en revue toutes les 1500 lignes avant même que je mette mon choix et ceci sans jamais s'arrêter: donc : gestionnaire de programme et arrêt de l'application obligatoire !
Salut Pour te mètre sur la voie….
For Each C In [A1:o1500] If C Like valtest Then C.Select Application.EnableEvents = True Exit Sub --------- la tu sorts de ta sub End If Next MsgBox "Pas d'OE N°" & valtest & " dans la plage testée !" Call cherche_OE Application.EnableEvents = True End Sub
Fais un essai avec…..
Compteur=0
For Each C In [A1:o1500] If C Like valtest Then C.Select Compteur=Compteur+1 Application.EnableEvents = True End If Next
If comteur = 0 then MsgBox "Pas d'OE N°" & valtest & " dans la plage testée !" Call cherche_OE Application.EnableEvents = True End If
End Sub
Bonjour, j'utilise la macro suivante pour rechercher une valeur dans une plage donnée.
valtest = InputBox("entrer le N° d'OE4, OE6 ou N° de l'offre à rechercher")
For Each C In [A1:o1500] If C Like valtest Then C.Select Application.EnableEvents = True Exit Sub End If Next MsgBox "Pas d'OE N°" & valtest & " dans la plage testée !" Call cherche_OE Application.EnableEvents = True End Sub
Par contre celà ne me donne que la première valeur trouvée alors que le voudrais avoir toutes les lignes portant cette même valeur. Pourriez vous m'aider ? Merci d'avance. coffee
Jac
Bonjour coffee,
est-ce qu'un filtre automatique qui afficherait toutes les lignes contenant ta variable pour te convenir ?
"coffee" a écrit dans le message de news:
Bonjour, j'utilise la macro suivante pour rechercher une valeur dans une plage donnée.
valtest = InputBox("entrer le N° d'OE4, OE6 ou N° de l'offre à rechercher")
For Each C In [A1:o1500] If C Like valtest Then C.Select Application.EnableEvents = True Exit Sub End If Next MsgBox "Pas d'OE N°" & valtest & " dans la plage testée !" Call cherche_OE Application.EnableEvents = True End Sub
Par contre celà ne me donne que la première valeur trouvée alors que le voudrais avoir toutes les lignes portant cette même valeur. Pourriez vous m'aider ? Merci d'avance. coffee
Bonjour coffee,
est-ce qu'un filtre automatique qui afficherait toutes les lignes contenant
ta variable pour te convenir ?
"coffee" <coffee@discussions.microsoft.com> a écrit dans le message de news:
CCDB2F46-6B6C-47C3-9A7A-C34EE1BF1E07@microsoft.com...
Bonjour,
j'utilise la macro suivante pour rechercher une valeur dans une plage
donnée.
valtest = InputBox("entrer le N° d'OE4, OE6 ou N° de l'offre à
rechercher")
For Each C In [A1:o1500]
If C Like valtest Then
C.Select
Application.EnableEvents = True
Exit Sub
End If
Next
MsgBox "Pas d'OE N°" & valtest & " dans la plage testée !"
Call cherche_OE
Application.EnableEvents = True
End Sub
Par contre celà ne me donne que la première valeur trouvée alors que le
voudrais avoir toutes les lignes portant cette même valeur.
Pourriez vous m'aider ?
Merci d'avance.
coffee
est-ce qu'un filtre automatique qui afficherait toutes les lignes contenant ta variable pour te convenir ?
"coffee" a écrit dans le message de news:
Bonjour, j'utilise la macro suivante pour rechercher une valeur dans une plage donnée.
valtest = InputBox("entrer le N° d'OE4, OE6 ou N° de l'offre à rechercher")
For Each C In [A1:o1500] If C Like valtest Then C.Select Application.EnableEvents = True Exit Sub End If Next MsgBox "Pas d'OE N°" & valtest & " dans la plage testée !" Call cherche_OE Application.EnableEvents = True End Sub
Par contre celà ne me donne que la première valeur trouvée alors que le voudrais avoir toutes les lignes portant cette même valeur. Pourriez vous m'aider ? Merci d'avance. coffee
Corto
Bonjour coffee,
valtest = InputBox("entrer le N° d'OE4, OE6 ou N° de l'offr e à rechercher")
Est-ce qu'un appui simultané sur CTRL et Pause n'arrêterait pas la macro ???? évitant ainsi l'usage du gestionnaire de programme et la perte des éventuelles modifs.
Pounet95
"coffee" a écrit dans le message de news:
Merci, mais ...j'ai essayé et une fois la macro lancée celle ci passe en revue toutes les 1500 lignes avant même que je mette mon choix et ceci sans jamais s'arrêter: donc : gestionnaire de programme et arrêt de l'application obligatoire !
Salut Pour te mètre sur la voie..
For Each C In [A1:o1500] If C Like valtest Then C.Select Application.EnableEvents = True Exit Sub ---------? la tu sorts de ta sub End If Next MsgBox "Pas d'OE N°" & valtest & " dans la plage testée !" Call cherche_OE Application.EnableEvents = True End Sub
Fais un essai avec...
Compteur=0
For Each C In [A1:o1500] If C Like valtest Then C.Select Compteur=Compteur+1 Application.EnableEvents = True End If Next
If comteur = 0 then MsgBox "Pas d'OE N°" & valtest & " dans la plage testée !" Call cherche_OE Application.EnableEvents = True End If
End Sub
Bonjour, j'utilise la macro suivante pour rechercher une valeur dans une plage donnée.
valtest = InputBox("entrer le N° d'OE4, OE6 ou N° de l'offre à rechercher")
For Each C In [A1:o1500] If C Like valtest Then C.Select Application.EnableEvents = True Exit Sub End If Next MsgBox "Pas d'OE N°" & valtest & " dans la plage testée !" Call cherche_OE Application.EnableEvents = True End Sub
Par contre celà ne me donne que la première valeur trouvée alors que le voudrais avoir toutes les lignes portant cette même valeur. Pourriez vous m'aider ? Merci d'avance. coffee
Bonsoir,
Est-ce qu'un appui simultané sur CTRL et Pause n'arrêterait pas la macro
????
évitant ainsi l'usage du gestionnaire de programme et la perte des
éventuelles modifs.
Pounet95
"coffee" <coffee@discussions.microsoft.com> a écrit dans le message de news:
8A7C56AA-60CE-423F-877D-1D4CCE7247F5@microsoft.com...
Merci, mais ...j'ai essayé et une fois la macro lancée celle ci passe en
revue toutes les 1500 lignes avant même que je mette mon choix et ceci
sans
jamais s'arrêter: donc : gestionnaire de programme et arrêt de
l'application
obligatoire !
Salut
Pour te mètre sur la voie..
For Each C In [A1:o1500]
If C Like valtest Then
C.Select
Application.EnableEvents = True
Exit Sub ---------? la tu sorts de ta sub
End If
Next
MsgBox "Pas d'OE N°" & valtest & " dans la plage testée !"
Call cherche_OE
Application.EnableEvents = True
End Sub
Fais un essai avec...
Compteur=0
For Each C In [A1:o1500]
If C Like valtest Then
C.Select
Compteur=Compteur+1
Application.EnableEvents = True
End If
Next
If comteur = 0 then
MsgBox "Pas d'OE N°" & valtest & " dans la plage testée !"
Call cherche_OE
Application.EnableEvents = True
End If
End Sub
Bonjour,
j'utilise la macro suivante pour rechercher une valeur dans une plage
donnée.
valtest = InputBox("entrer le N° d'OE4, OE6 ou N° de l'offre à
rechercher")
For Each C In [A1:o1500]
If C Like valtest Then
C.Select
Application.EnableEvents = True
Exit Sub
End If
Next
MsgBox "Pas d'OE N°" & valtest & " dans la plage testée !"
Call cherche_OE
Application.EnableEvents = True
End Sub
Par contre celà ne me donne que la première valeur trouvée alors que
le
voudrais avoir toutes les lignes portant cette même valeur.
Pourriez vous m'aider ?
Merci d'avance.
coffee
Est-ce qu'un appui simultané sur CTRL et Pause n'arrêterait pas la macro ???? évitant ainsi l'usage du gestionnaire de programme et la perte des éventuelles modifs.
Pounet95
"coffee" a écrit dans le message de news:
Merci, mais ...j'ai essayé et une fois la macro lancée celle ci passe en revue toutes les 1500 lignes avant même que je mette mon choix et ceci sans jamais s'arrêter: donc : gestionnaire de programme et arrêt de l'application obligatoire !
Salut Pour te mètre sur la voie..
For Each C In [A1:o1500] If C Like valtest Then C.Select Application.EnableEvents = True Exit Sub ---------? la tu sorts de ta sub End If Next MsgBox "Pas d'OE N°" & valtest & " dans la plage testée !" Call cherche_OE Application.EnableEvents = True End Sub
Fais un essai avec...
Compteur=0
For Each C In [A1:o1500] If C Like valtest Then C.Select Compteur=Compteur+1 Application.EnableEvents = True End If Next
If comteur = 0 then MsgBox "Pas d'OE N°" & valtest & " dans la plage testée !" Call cherche_OE Application.EnableEvents = True End If
End Sub
Bonjour, j'utilise la macro suivante pour rechercher une valeur dans une plage donnée.
valtest = InputBox("entrer le N° d'OE4, OE6 ou N° de l'offre à rechercher")
For Each C In [A1:o1500] If C Like valtest Then C.Select Application.EnableEvents = True Exit Sub End If Next MsgBox "Pas d'OE N°" & valtest & " dans la plage testée !" Call cherche_OE Application.EnableEvents = True End Sub
Par contre celà ne me donne que la première valeur trouvée alors que le voudrais avoir toutes les lignes portant cette même valeur. Pourriez vous m'aider ? Merci d'avance. coffee