Je cherche une solution pour sélectionner une cellule si son contenu est
égal à une variable définie plus tôt.
J'ai essayé d'enregistrer la fonction rechercher ce qui m'a donné ceci :
Seul problème, quand je remplace le "texte cherché" par ma variable, ça ne
marche plus.
Mon but est en fait de tester la présence d'une valeur variable n'importe où
dans une feuille.
Si la valeur est présente alors sélectionner la cellule juste en-dessous.
Si la valeur n'est pas présente alors demander à l'utilisateur d'indiquer la
cellule où l'insérer.
Espérant avoir été clair.
Merci d'avance pour vos lumières.
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
isabelle
bonjour Zanello,
la variable ne doit pas être mit entre guillemet.
Dim mot As String mot = "zaza" Cells.Find(What:=mot, After:¬tiveCell, _ LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, MatchCase:úlse).Activate
isabelle
Bonjour,
Je cherche une solution pour sélectionner une cellule si son contenu est égal à une variable définie plus tôt. J'ai essayé d'enregistrer la fonction rechercher ce qui m'a donné ceci :
Seul problème, quand je remplace le "texte cherché" par ma variable, ça ne marche plus.
Mon but est en fait de tester la présence d'une valeur variable n'importe où dans une feuille. Si la valeur est présente alors sélectionner la cellule juste en-dessous. Si la valeur n'est pas présente alors demander à l'utilisateur d'indiquer la cellule où l'insérer.
Espérant avoir été clair. Merci d'avance pour vos lumières.
bonjour Zanello,
la variable ne doit pas être mit entre guillemet.
Dim mot As String
mot = "zaza"
Cells.Find(What:=mot, After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:úlse).Activate
isabelle
Bonjour,
Je cherche une solution pour sélectionner une cellule si son contenu est
égal à une variable définie plus tôt.
J'ai essayé d'enregistrer la fonction rechercher ce qui m'a donné ceci :
Seul problème, quand je remplace le "texte cherché" par ma variable, ça ne
marche plus.
Mon but est en fait de tester la présence d'une valeur variable n'importe où
dans une feuille.
Si la valeur est présente alors sélectionner la cellule juste en-dessous.
Si la valeur n'est pas présente alors demander à l'utilisateur d'indiquer la
cellule où l'insérer.
Espérant avoir été clair.
Merci d'avance pour vos lumières.
Dim mot As String mot = "zaza" Cells.Find(What:=mot, After:¬tiveCell, _ LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, MatchCase:úlse).Activate
isabelle
Bonjour,
Je cherche une solution pour sélectionner une cellule si son contenu est égal à une variable définie plus tôt. J'ai essayé d'enregistrer la fonction rechercher ce qui m'a donné ceci :
Seul problème, quand je remplace le "texte cherché" par ma variable, ça ne marche plus.
Mon but est en fait de tester la présence d'une valeur variable n'importe où dans une feuille. Si la valeur est présente alors sélectionner la cellule juste en-dessous. Si la valeur n'est pas présente alors demander à l'utilisateur d'indiquer la cellule où l'insérer.
Espérant avoir été clair. Merci d'avance pour vos lumières.
isabelle
re bonjour Zanello,
pour gérer l'erreur provoqué si le mot n'est pas trouver,
Dim mot As String mot = "zaza" On Error Resume Next Set trouver = Range(Cells.Find(What:=mot, After:¬tiveCell, _ LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, MatchCase:úlse).Address) If trouver = Empty Then MsgBox "non trouver": trouver.Select
isabelle
Bonjour,
Je cherche une solution pour sélectionner une cellule si son contenu est égal à une variable définie plus tôt. J'ai essayé d'enregistrer la fonction rechercher ce qui m'a donné ceci :
Seul problème, quand je remplace le "texte cherché" par ma variable, ça ne marche plus.
Mon but est en fait de tester la présence d'une valeur variable n'importe où dans une feuille. Si la valeur est présente alors sélectionner la cellule juste en-dessous. Si la valeur n'est pas présente alors demander à l'utilisateur d'indiquer la cellule où l'insérer.
Espérant avoir été clair. Merci d'avance pour vos lumières.
re bonjour Zanello,
pour gérer l'erreur provoqué si le mot n'est pas trouver,
Dim mot As String
mot = "zaza"
On Error Resume Next
Set trouver = Range(Cells.Find(What:=mot, After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:úlse).Address)
If trouver = Empty Then MsgBox "non trouver": trouver.Select
isabelle
Bonjour,
Je cherche une solution pour sélectionner une cellule si son contenu est
égal à une variable définie plus tôt.
J'ai essayé d'enregistrer la fonction rechercher ce qui m'a donné ceci :
Seul problème, quand je remplace le "texte cherché" par ma variable, ça ne
marche plus.
Mon but est en fait de tester la présence d'une valeur variable n'importe où
dans une feuille.
Si la valeur est présente alors sélectionner la cellule juste en-dessous.
Si la valeur n'est pas présente alors demander à l'utilisateur d'indiquer la
cellule où l'insérer.
Espérant avoir été clair.
Merci d'avance pour vos lumières.
pour gérer l'erreur provoqué si le mot n'est pas trouver,
Dim mot As String mot = "zaza" On Error Resume Next Set trouver = Range(Cells.Find(What:=mot, After:¬tiveCell, _ LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, MatchCase:úlse).Address) If trouver = Empty Then MsgBox "non trouver": trouver.Select
isabelle
Bonjour,
Je cherche une solution pour sélectionner une cellule si son contenu est égal à une variable définie plus tôt. J'ai essayé d'enregistrer la fonction rechercher ce qui m'a donné ceci :
Seul problème, quand je remplace le "texte cherché" par ma variable, ça ne marche plus.
Mon but est en fait de tester la présence d'une valeur variable n'importe où dans une feuille. Si la valeur est présente alors sélectionner la cellule juste en-dessous. Si la valeur n'est pas présente alors demander à l'utilisateur d'indiquer la cellule où l'insérer.
Espérant avoir été clair. Merci d'avance pour vos lumières.
isabelle
correction :
Dim mot As String mot = "zaza" On Error Resume Next Set trouver = Range(Cells.Find(What:=mot, After:¬tiveCell, _ LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, MatchCase:úlse).Address) If trouver = Empty Then MsgBox "non trouver" Else: trouver.Select End If
isabelle
Bonjour,
Je cherche une solution pour sélectionner une cellule si son contenu est égal à une variable définie plus tôt. J'ai essayé d'enregistrer la fonction rechercher ce qui m'a donné ceci :
Seul problème, quand je remplace le "texte cherché" par ma variable, ça ne marche plus.
Mon but est en fait de tester la présence d'une valeur variable n'importe où dans une feuille. Si la valeur est présente alors sélectionner la cellule juste en-dessous. Si la valeur n'est pas présente alors demander à l'utilisateur d'indiquer la cellule où l'insérer.
Espérant avoir été clair. Merci d'avance pour vos lumières.
correction :
Dim mot As String
mot = "zaza"
On Error Resume Next
Set trouver = Range(Cells.Find(What:=mot, After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:úlse).Address)
If trouver = Empty Then
MsgBox "non trouver"
Else: trouver.Select
End If
isabelle
Bonjour,
Je cherche une solution pour sélectionner une cellule si son contenu est
égal à une variable définie plus tôt.
J'ai essayé d'enregistrer la fonction rechercher ce qui m'a donné ceci :
Seul problème, quand je remplace le "texte cherché" par ma variable, ça ne
marche plus.
Mon but est en fait de tester la présence d'une valeur variable n'importe où
dans une feuille.
Si la valeur est présente alors sélectionner la cellule juste en-dessous.
Si la valeur n'est pas présente alors demander à l'utilisateur d'indiquer la
cellule où l'insérer.
Espérant avoir été clair.
Merci d'avance pour vos lumières.
Dim mot As String mot = "zaza" On Error Resume Next Set trouver = Range(Cells.Find(What:=mot, After:¬tiveCell, _ LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, MatchCase:úlse).Address) If trouver = Empty Then MsgBox "non trouver" Else: trouver.Select End If
isabelle
Bonjour,
Je cherche une solution pour sélectionner une cellule si son contenu est égal à une variable définie plus tôt. J'ai essayé d'enregistrer la fonction rechercher ce qui m'a donné ceci :
Seul problème, quand je remplace le "texte cherché" par ma variable, ça ne marche plus.
Mon but est en fait de tester la présence d'une valeur variable n'importe où dans une feuille. Si la valeur est présente alors sélectionner la cellule juste en-dessous. Si la valeur n'est pas présente alors demander à l'utilisateur d'indiquer la cellule où l'insérer.
Espérant avoir été clair. Merci d'avance pour vos lumières.
michdenis
Bonjour Zanello,
Essaie ceci :
J'ai seulement changé XlNext pour xlPrevious dans la fonction Find()
Sub Recherche()
Dim Chan_cherché As String Chan_cherché = "toto" If Chan_cherché = "" Then Exit Sub Cells.Find(What:=Chan_cherché, After:¬tiveCell, _ LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious, MatchCase:úlse).Activate
End Sub
Salutations!
"Zanello" a écrit dans le message de news:% Bonjour,
Je cherche une solution pour sélectionner une cellule si son contenu est égal à une variable définie plus tôt. J'ai essayé d'enregistrer la fonction rechercher ce qui m'a donné ceci :
Seul problème, quand je remplace le "texte cherché" par ma variable, ça ne marche plus.
Mon but est en fait de tester la présence d'une valeur variable n'importe où dans une feuille. Si la valeur est présente alors sélectionner la cellule juste en-dessous. Si la valeur n'est pas présente alors demander à l'utilisateur d'indiquer la cellule où l'insérer.
Espérant avoir été clair. Merci d'avance pour vos lumières.
Bonjour Zanello,
Essaie ceci :
J'ai seulement changé XlNext pour xlPrevious dans la fonction Find()
Sub Recherche()
Dim Chan_cherché As String
Chan_cherché = "toto"
If Chan_cherché = "" Then Exit Sub
Cells.Find(What:=Chan_cherché, After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, MatchCase:úlse).Activate
End Sub
Salutations!
"Zanello" <info@zanello.fr> a écrit dans le message de news:%23ocYKNZQEHA.2100@TK2MSFTNGP11.phx.gbl...
Bonjour,
Je cherche une solution pour sélectionner une cellule si son contenu est
égal à une variable définie plus tôt.
J'ai essayé d'enregistrer la fonction rechercher ce qui m'a donné ceci :
Seul problème, quand je remplace le "texte cherché" par ma variable, ça ne
marche plus.
Mon but est en fait de tester la présence d'une valeur variable n'importe où
dans une feuille.
Si la valeur est présente alors sélectionner la cellule juste en-dessous.
Si la valeur n'est pas présente alors demander à l'utilisateur d'indiquer la
cellule où l'insérer.
Espérant avoir été clair.
Merci d'avance pour vos lumières.
J'ai seulement changé XlNext pour xlPrevious dans la fonction Find()
Sub Recherche()
Dim Chan_cherché As String Chan_cherché = "toto" If Chan_cherché = "" Then Exit Sub Cells.Find(What:=Chan_cherché, After:¬tiveCell, _ LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious, MatchCase:úlse).Activate
End Sub
Salutations!
"Zanello" a écrit dans le message de news:% Bonjour,
Je cherche une solution pour sélectionner une cellule si son contenu est égal à une variable définie plus tôt. J'ai essayé d'enregistrer la fonction rechercher ce qui m'a donné ceci :
Seul problème, quand je remplace le "texte cherché" par ma variable, ça ne marche plus.
Mon but est en fait de tester la présence d'une valeur variable n'importe où dans une feuille. Si la valeur est présente alors sélectionner la cellule juste en-dessous. Si la valeur n'est pas présente alors demander à l'utilisateur d'indiquer la cellule où l'insérer.
Espérant avoir été clair. Merci d'avance pour vos lumières.