J'avais enlevé les guillemets.
En fait j'ai ça :
Dim Chan_cherché As String
Chan_cherché = Worksheets("list_chan_v").Range("A1").End(xlDown)
If Chan_cherché = "" Then Exit Sub
Cells.Find(What:=Chan_cherché, After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:úlse).Activate
Autrement dit, la variable chan_cherché correspond à la dernière cellule de
la colonne A de la feuille list_chan_v.
Je précise que pour tests je prends des valeurs dont je suis sûr qu'elles
existent.
Avec le texte en dur, pas de problème.
Avec la variable, sans guillemets, ça ne marche pas...
De: "isabelle"
Objet: Re: Sélection d'une cellule en fonction du contenu
Date: lundi 24 mai 2004 15:46
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 :
Cells.Find(What:="texte cherché", After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:úlse).Activate
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
lacellule où l'insérer.
Espérant avoir été clair.
Merci d'avance pour vos lumières.
J'avais enlevé les guillemets.
En fait j'ai ça :
Dim Chan_cherché As String
Chan_cherché = Worksheets("list_chan_v").Range("A1").End(xlDown)
If Chan_cherché = "" Then Exit Sub
Cells.Find(What:=Chan_cherché, After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:úlse).Activate
Autrement dit, la variable chan_cherché correspond à la dernière cellule de
la colonne A de la feuille list_chan_v.
Je précise que pour tests je prends des valeurs dont je suis sûr qu'elles
existent.
Avec le texte en dur, pas de problème.
Avec la variable, sans guillemets, ça ne marche pas...
De: "isabelle" <as.isabellevIE@videotron.ca>
Objet: Re: Sélection d'une cellule en fonction du contenu
Date: lundi 24 mai 2004 15:46
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 :
Cells.Find(What:="texte cherché", After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:úlse).Activate
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'avais enlevé les guillemets.
En fait j'ai ça :
Dim Chan_cherché As String
Chan_cherché = Worksheets("list_chan_v").Range("A1").End(xlDown)
If Chan_cherché = "" Then Exit Sub
Cells.Find(What:=Chan_cherché, After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:úlse).Activate
Autrement dit, la variable chan_cherché correspond à la dernière cellule de
la colonne A de la feuille list_chan_v.
Je précise que pour tests je prends des valeurs dont je suis sûr qu'elles
existent.
Avec le texte en dur, pas de problème.
Avec la variable, sans guillemets, ça ne marche pas...
De: "isabelle"
Objet: Re: Sélection d'une cellule en fonction du contenu
Date: lundi 24 mai 2004 15:46
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 :
Cells.Find(What:="texte cherché", After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:úlse).Activate
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
lacellule où l'insérer.
Espérant avoir été clair.
Merci d'avance pour vos lumières.
j'essaie de reproduire le problème mais sans succès, obtient tu un
message d'erreur ?
isabelle
J'avais enlevé les guillemets.
En fait j'ai ça :
Dim Chan_cherché As String
Chan_cherché = Worksheets("list_chan_v").Range("A1").End(xlDown)
If Chan_cherché = "" Then Exit Sub
Cells.Find(What:=Chan_cherché, After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:úlse).Activate
Autrement dit, la variable chan_cherché correspond à la dernière cellule
de
la colonne A de la feuille list_chan_v.
Je précise que pour tests je prends des valeurs dont je suis sûr
qu'elles
existent.
Avec le texte en dur, pas de problème.
Avec la variable, sans guillemets, ça ne marche pas...
De: "isabelle"
Objet: Re: Sélection d'une cellule en fonction du contenu
Date: lundi 24 mai 2004 15:46
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
:
Cells.Find(What:="texte cherché", After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:úlse).Activate
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
lacellule où l'insérer.
Espérant avoir été clair.
Merci d'avance pour vos lumières.
j'essaie de reproduire le problème mais sans succès, obtient tu un
message d'erreur ?
isabelle
J'avais enlevé les guillemets.
En fait j'ai ça :
Dim Chan_cherché As String
Chan_cherché = Worksheets("list_chan_v").Range("A1").End(xlDown)
If Chan_cherché = "" Then Exit Sub
Cells.Find(What:=Chan_cherché, After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:úlse).Activate
Autrement dit, la variable chan_cherché correspond à la dernière cellule
de
la colonne A de la feuille list_chan_v.
Je précise que pour tests je prends des valeurs dont je suis sûr
qu'elles
existent.
Avec le texte en dur, pas de problème.
Avec la variable, sans guillemets, ça ne marche pas...
De: "isabelle" <as.isabellevIE@videotron.ca>
Objet: Re: Sélection d'une cellule en fonction du contenu
Date: lundi 24 mai 2004 15:46
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
:
Cells.Find(What:="texte cherché", After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:úlse).Activate
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'essaie de reproduire le problème mais sans succès, obtient tu un
message d'erreur ?
isabelle
J'avais enlevé les guillemets.
En fait j'ai ça :
Dim Chan_cherché As String
Chan_cherché = Worksheets("list_chan_v").Range("A1").End(xlDown)
If Chan_cherché = "" Then Exit Sub
Cells.Find(What:=Chan_cherché, After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:úlse).Activate
Autrement dit, la variable chan_cherché correspond à la dernière cellule
de
la colonne A de la feuille list_chan_v.
Je précise que pour tests je prends des valeurs dont je suis sûr
qu'elles
existent.
Avec le texte en dur, pas de problème.
Avec la variable, sans guillemets, ça ne marche pas...
De: "isabelle"
Objet: Re: Sélection d'une cellule en fonction du contenu
Date: lundi 24 mai 2004 15:46
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
:
Cells.Find(What:="texte cherché", After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:úlse).Activate
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
lacellule où l'insérer.
Espérant avoir été clair.
Merci d'avance pour vos lumières.
Oui effectivement, j'aurais pu le dire avant !!
Erreur d'éxécution 91
Variable objet ou variable de bloc With non définie
Si je clique sur débogage il me met en jaune le cells.find...
"isabelle" a écrit dans le message de news:j'essaie de reproduire le problème mais sans succès, obtient tu un
message d'erreur ?
isabelle
J'avais enlevé les guillemets.
En fait j'ai ça :
Dim Chan_cherché As String
Chan_cherché = Worksheets("list_chan_v").Range("A1").End(xlDown)
If Chan_cherché = "" Then Exit Sub
Cells.Find(What:=Chan_cherché, After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:úlse).Activate
Autrement dit, la variable chan_cherché correspond à la dernière cellule
dela colonne A de la feuille list_chan_v.
Je précise que pour tests je prends des valeurs dont je suis sûr
qu'ellesexistent.
Avec le texte en dur, pas de problème.
Avec la variable, sans guillemets, ça ne marche pas...
De: "isabelle"
Objet: Re: Sélection d'une cellule en fonction du contenu
Date: lundi 24 mai 2004 15:46
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
:
Cells.Find(What:="texte cherché", After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:úlse).Activate
Seul problème, quand je remplace le "texte cherché" par ma variable,
ça nemarche plus.
Mon but est en fait de tester la présence d'une valeur variable
n'importeoù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'indiquerlacellule où l'insérer.
Espérant avoir été clair.
Merci d'avance pour vos lumières.
Oui effectivement, j'aurais pu le dire avant !!
Erreur d'éxécution 91
Variable objet ou variable de bloc With non définie
Si je clique sur débogage il me met en jaune le cells.find...
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de news:
40B20B26.73D50711@videotron.ca...
j'essaie de reproduire le problème mais sans succès, obtient tu un
message d'erreur ?
isabelle
J'avais enlevé les guillemets.
En fait j'ai ça :
Dim Chan_cherché As String
Chan_cherché = Worksheets("list_chan_v").Range("A1").End(xlDown)
If Chan_cherché = "" Then Exit Sub
Cells.Find(What:=Chan_cherché, After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:úlse).Activate
Autrement dit, la variable chan_cherché correspond à la dernière cellule
de
la colonne A de la feuille list_chan_v.
Je précise que pour tests je prends des valeurs dont je suis sûr
qu'elles
existent.
Avec le texte en dur, pas de problème.
Avec la variable, sans guillemets, ça ne marche pas...
De: "isabelle" <as.isabellevIE@videotron.ca>
Objet: Re: Sélection d'une cellule en fonction du contenu
Date: lundi 24 mai 2004 15:46
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
:
Cells.Find(What:="texte cherché", After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:úlse).Activate
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.
Oui effectivement, j'aurais pu le dire avant !!
Erreur d'éxécution 91
Variable objet ou variable de bloc With non définie
Si je clique sur débogage il me met en jaune le cells.find...
"isabelle" a écrit dans le message de news:j'essaie de reproduire le problème mais sans succès, obtient tu un
message d'erreur ?
isabelle
J'avais enlevé les guillemets.
En fait j'ai ça :
Dim Chan_cherché As String
Chan_cherché = Worksheets("list_chan_v").Range("A1").End(xlDown)
If Chan_cherché = "" Then Exit Sub
Cells.Find(What:=Chan_cherché, After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:úlse).Activate
Autrement dit, la variable chan_cherché correspond à la dernière cellule
dela colonne A de la feuille list_chan_v.
Je précise que pour tests je prends des valeurs dont je suis sûr
qu'ellesexistent.
Avec le texte en dur, pas de problème.
Avec la variable, sans guillemets, ça ne marche pas...
De: "isabelle"
Objet: Re: Sélection d'une cellule en fonction du contenu
Date: lundi 24 mai 2004 15:46
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
:
Cells.Find(What:="texte cherché", After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:úlse).Activate
Seul problème, quand je remplace le "texte cherché" par ma variable,
ça nemarche plus.
Mon but est en fait de tester la présence d'une valeur variable
n'importeoù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'indiquerlacellule où l'insérer.
Espérant avoir été clair.
Merci d'avance pour vos lumières.
si tu fait le test suivant, en choisissant une mot présent sur la
feuille. est ce que cela fonctionne ?
Sub test()
Dim Chan_cherché As String
Chan_cherché = "zaza" '<---- à adapter
Cells.Find(What:=Chan_cherché, After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:úlse).Activate
End Sub
isabelle
Oui effectivement, j'aurais pu le dire avant !!
Erreur d'éxécution 91
Variable objet ou variable de bloc With non définie
Si je clique sur débogage il me met en jaune le cells.find...
"isabelle" a écrit dans le message de
news:
j'essaie de reproduire le problème mais sans succès, obtient tu un
message d'erreur ?
isabelle
J'avais enlevé les guillemets.
En fait j'ai ça :
Dim Chan_cherché As String
Chan_cherché = Worksheets("list_chan_v").Range("A1").End(xlDown)
If Chan_cherché = "" Then Exit Sub
Cells.Find(What:=Chan_cherché, After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:úlse).Activate
Autrement dit, la variable chan_cherché correspond à la dernière
cellule
dela colonne A de la feuille list_chan_v.
Je précise que pour tests je prends des valeurs dont je suis sûr
qu'ellesexistent.
Avec le texte en dur, pas de problème.
Avec la variable, sans guillemets, ça ne marche pas...
De: "isabelle"
Objet: Re: Sélection d'une cellule en fonction du contenu
Date: lundi 24 mai 2004 15:46
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
:
Cells.Find(What:="texte cherché", After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows,
_
SearchDirection:=xlNext, MatchCase:úlse).Activate
Seul problème, quand je remplace le "texte cherché" par ma
variable,
ça nemarche plus.
Mon but est en fait de tester la présence d'une valeur variable
n'importeoù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'indiquerlacellule où l'insérer.
Espérant avoir été clair.
Merci d'avance pour vos lumières.
si tu fait le test suivant, en choisissant une mot présent sur la
feuille. est ce que cela fonctionne ?
Sub test()
Dim Chan_cherché As String
Chan_cherché = "zaza" '<---- à adapter
Cells.Find(What:=Chan_cherché, After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:úlse).Activate
End Sub
isabelle
Oui effectivement, j'aurais pu le dire avant !!
Erreur d'éxécution 91
Variable objet ou variable de bloc With non définie
Si je clique sur débogage il me met en jaune le cells.find...
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:
40B20B26.73D50711@videotron.ca...
j'essaie de reproduire le problème mais sans succès, obtient tu un
message d'erreur ?
isabelle
J'avais enlevé les guillemets.
En fait j'ai ça :
Dim Chan_cherché As String
Chan_cherché = Worksheets("list_chan_v").Range("A1").End(xlDown)
If Chan_cherché = "" Then Exit Sub
Cells.Find(What:=Chan_cherché, After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:úlse).Activate
Autrement dit, la variable chan_cherché correspond à la dernière
cellule
de
la colonne A de la feuille list_chan_v.
Je précise que pour tests je prends des valeurs dont je suis sûr
qu'elles
existent.
Avec le texte en dur, pas de problème.
Avec la variable, sans guillemets, ça ne marche pas...
De: "isabelle" <as.isabellevIE@videotron.ca>
Objet: Re: Sélection d'une cellule en fonction du contenu
Date: lundi 24 mai 2004 15:46
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
:
Cells.Find(What:="texte cherché", After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows,
_
SearchDirection:=xlNext, MatchCase:úlse).Activate
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.
si tu fait le test suivant, en choisissant une mot présent sur la
feuille. est ce que cela fonctionne ?
Sub test()
Dim Chan_cherché As String
Chan_cherché = "zaza" '<---- à adapter
Cells.Find(What:=Chan_cherché, After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:úlse).Activate
End Sub
isabelle
Oui effectivement, j'aurais pu le dire avant !!
Erreur d'éxécution 91
Variable objet ou variable de bloc With non définie
Si je clique sur débogage il me met en jaune le cells.find...
"isabelle" a écrit dans le message de
news:
j'essaie de reproduire le problème mais sans succès, obtient tu un
message d'erreur ?
isabelle
J'avais enlevé les guillemets.
En fait j'ai ça :
Dim Chan_cherché As String
Chan_cherché = Worksheets("list_chan_v").Range("A1").End(xlDown)
If Chan_cherché = "" Then Exit Sub
Cells.Find(What:=Chan_cherché, After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:úlse).Activate
Autrement dit, la variable chan_cherché correspond à la dernière
cellule
dela colonne A de la feuille list_chan_v.
Je précise que pour tests je prends des valeurs dont je suis sûr
qu'ellesexistent.
Avec le texte en dur, pas de problème.
Avec la variable, sans guillemets, ça ne marche pas...
De: "isabelle"
Objet: Re: Sélection d'une cellule en fonction du contenu
Date: lundi 24 mai 2004 15:46
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
:
Cells.Find(What:="texte cherché", After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows,
_
SearchDirection:=xlNext, MatchCase:úlse).Activate
Seul problème, quand je remplace le "texte cherché" par ma
variable,
ça nemarche plus.
Mon but est en fait de tester la présence d'une valeur variable
n'importeoù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'indiquerlacellule où l'insérer.
Espérant avoir été clair.
Merci d'avance pour vos lumières.
C'est exactement pareil
D'ailleurs ma variable prend bien la bonne valeur
Je ne sais pas si c'est un problème de syntaxe ou si tout simplement ce
n'est pas possible avec find
"isabelle" a écrit dans le message de news:si tu fait le test suivant, en choisissant une mot présent sur la
feuille. est ce que cela fonctionne ?
Sub test()
Dim Chan_cherché As String
Chan_cherché = "zaza" '<---- à adapter
Cells.Find(What:=Chan_cherché, After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:úlse).Activate
End Sub
isabelle
Oui effectivement, j'aurais pu le dire avant !!
Erreur d'éxécution 91
Variable objet ou variable de bloc With non définie
Si je clique sur débogage il me met en jaune le cells.find...
"isabelle" a écrit dans le message de
news:j'essaie de reproduire le problème mais sans succès, obtient tu un
message d'erreur ?
isabelle
J'avais enlevé les guillemets.
En fait j'ai ça :
Dim Chan_cherché As String
Chan_cherché Worksheets("list_chan_v").Range("A1").End(xlDown)
If Chan_cherché = "" Then Exit Sub
Cells.Find(What:=Chan_cherché, After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows,
_
SearchDirection:=xlNext, MatchCase:úlse).Activate
Autrement dit, la variable chan_cherché correspond à la dernière
celluledela colonne A de la feuille list_chan_v.
Je précise que pour tests je prends des valeurs dont je suis sûr
qu'ellesexistent.
Avec le texte en dur, pas de problème.
Avec la variable, sans guillemets, ça ne marche pas...
De: "isabelle"
Objet: Re: Sélection d'une cellule en fonction du contenu
Date: lundi 24 mai 2004 15:46
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
contenuestégal à une variable définie plus tôt.
J'ai essayé d'enregistrer la fonction rechercher ce qui m'a
donné
ceci:
Cells.Find(What:="texte cherché", After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlWhole,
SearchOrder:=xlByRows,
_SearchDirection:=xlNext, MatchCase:úlse).Activate
Seul problème, quand je remplace le "texte cherché" par ma
variable,ça nemarche plus.
Mon but est en fait de tester la présence d'une valeur variable
n'importeoù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'indiquerlacellule où l'insérer.
Espérant avoir été clair.
Merci d'avance pour vos lumières.
C'est exactement pareil
D'ailleurs ma variable prend bien la bonne valeur
Je ne sais pas si c'est un problème de syntaxe ou si tout simplement ce
n'est pas possible avec find
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de news:
40B213BC.C3FEA0E5@videotron.ca...
si tu fait le test suivant, en choisissant une mot présent sur la
feuille. est ce que cela fonctionne ?
Sub test()
Dim Chan_cherché As String
Chan_cherché = "zaza" '<---- à adapter
Cells.Find(What:=Chan_cherché, After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:úlse).Activate
End Sub
isabelle
Oui effectivement, j'aurais pu le dire avant !!
Erreur d'éxécution 91
Variable objet ou variable de bloc With non définie
Si je clique sur débogage il me met en jaune le cells.find...
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:
40B20B26.73D50711@videotron.ca...
j'essaie de reproduire le problème mais sans succès, obtient tu un
message d'erreur ?
isabelle
J'avais enlevé les guillemets.
En fait j'ai ça :
Dim Chan_cherché As String
Chan_cherché Worksheets("list_chan_v").Range("A1").End(xlDown)
If Chan_cherché = "" Then Exit Sub
Cells.Find(What:=Chan_cherché, After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows,
_
SearchDirection:=xlNext, MatchCase:úlse).Activate
Autrement dit, la variable chan_cherché correspond à la dernière
cellule
de
la colonne A de la feuille list_chan_v.
Je précise que pour tests je prends des valeurs dont je suis sûr
qu'elles
existent.
Avec le texte en dur, pas de problème.
Avec la variable, sans guillemets, ça ne marche pas...
De: "isabelle" <as.isabellevIE@videotron.ca>
Objet: Re: Sélection d'une cellule en fonction du contenu
Date: lundi 24 mai 2004 15:46
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
:
Cells.Find(What:="texte cherché", After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlWhole,
SearchOrder:=xlByRows,
_
SearchDirection:=xlNext, MatchCase:úlse).Activate
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.
C'est exactement pareil
D'ailleurs ma variable prend bien la bonne valeur
Je ne sais pas si c'est un problème de syntaxe ou si tout simplement ce
n'est pas possible avec find
"isabelle" a écrit dans le message de news:si tu fait le test suivant, en choisissant une mot présent sur la
feuille. est ce que cela fonctionne ?
Sub test()
Dim Chan_cherché As String
Chan_cherché = "zaza" '<---- à adapter
Cells.Find(What:=Chan_cherché, After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:úlse).Activate
End Sub
isabelle
Oui effectivement, j'aurais pu le dire avant !!
Erreur d'éxécution 91
Variable objet ou variable de bloc With non définie
Si je clique sur débogage il me met en jaune le cells.find...
"isabelle" a écrit dans le message de
news:j'essaie de reproduire le problème mais sans succès, obtient tu un
message d'erreur ?
isabelle
J'avais enlevé les guillemets.
En fait j'ai ça :
Dim Chan_cherché As String
Chan_cherché Worksheets("list_chan_v").Range("A1").End(xlDown)
If Chan_cherché = "" Then Exit Sub
Cells.Find(What:=Chan_cherché, After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows,
_
SearchDirection:=xlNext, MatchCase:úlse).Activate
Autrement dit, la variable chan_cherché correspond à la dernière
celluledela colonne A de la feuille list_chan_v.
Je précise que pour tests je prends des valeurs dont je suis sûr
qu'ellesexistent.
Avec le texte en dur, pas de problème.
Avec la variable, sans guillemets, ça ne marche pas...
De: "isabelle"
Objet: Re: Sélection d'une cellule en fonction du contenu
Date: lundi 24 mai 2004 15:46
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
contenuestégal à une variable définie plus tôt.
J'ai essayé d'enregistrer la fonction rechercher ce qui m'a
donné
ceci:
Cells.Find(What:="texte cherché", After:¬tiveCell, _
LookIn:=xlValues, LookAt:=xlWhole,
SearchOrder:=xlByRows,
_SearchDirection:=xlNext, MatchCase:úlse).Activate
Seul problème, quand je remplace le "texte cherché" par ma
variable,ça nemarche plus.
Mon but est en fait de tester la présence d'une valeur variable
n'importeoù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'indiquerlacellule où l'insérer.
Espérant avoir été clair.
Merci d'avance pour vos lumières.