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
Yvan
Bonjour FB
Tu as peut-être un problème de syntaxe. Essaies çà:
Sub TestFind() Dim c As Range If Intersect(Range("A1:A50"), ActiveCell) Is Nothing Then Range("A1").Activate Set c = Range("A1:A50").Find(What:="xxx", after:¬tiveCell) If c Is Nothing Then MsgBox ("Pas de xxx dans la plage A1:A50") Else c.Select End If End Sub
Je n'ai pas Excel97 sous la main, mais çà devrait marcher.
Yvan
"FB" a écrit dans le message de news:
Bonjour à tous
lorsque j'utilise le find (what:="mot") avec excel 97, il me met une erreur comme quoi il ne connait pas l'instruction!!!! que faire????
merci d'avance à toute les personnes qui s'interesse à mon problème
Bonjour FB
Tu as peut-être un problème de syntaxe. Essaies çà:
Sub TestFind()
Dim c As Range
If Intersect(Range("A1:A50"), ActiveCell) Is Nothing Then
Range("A1").Activate
Set c = Range("A1:A50").Find(What:="xxx", after:¬tiveCell)
If c Is Nothing Then
MsgBox ("Pas de xxx dans la plage A1:A50")
Else
c.Select
End If
End Sub
Je n'ai pas Excel97 sous la main, mais çà devrait marcher.
Yvan
"FB" <FB@discussions.microsoft.com> a écrit dans le message de news:
CFB29B9C-5F42-4D7C-9C28-78768FAD90C6@microsoft.com...
Bonjour à tous
lorsque j'utilise le find (what:="mot") avec excel 97, il me met une
erreur
comme quoi il ne connait pas l'instruction!!!!
que faire????
merci d'avance à toute les personnes qui s'interesse à mon problème
Tu as peut-être un problème de syntaxe. Essaies çà:
Sub TestFind() Dim c As Range If Intersect(Range("A1:A50"), ActiveCell) Is Nothing Then Range("A1").Activate Set c = Range("A1:A50").Find(What:="xxx", after:¬tiveCell) If c Is Nothing Then MsgBox ("Pas de xxx dans la plage A1:A50") Else c.Select End If End Sub
Je n'ai pas Excel97 sous la main, mais çà devrait marcher.
Yvan
"FB" a écrit dans le message de news:
Bonjour à tous
lorsque j'utilise le find (what:="mot") avec excel 97, il me met une erreur comme quoi il ne connait pas l'instruction!!!! que faire????
merci d'avance à toute les personnes qui s'interesse à mon problème
Jacky
Bonjour à tous
Je n'ai pas Excel97 sous la main, mais çà devrait marcher.
Je confirme, à part l'oubli d'un "End If" en fin de code, cela fonctionne sous xl97
JJ
"Yvan" <yvan.echange(enlever ceci)@free.fr> a écrit dans le message de news:
Bonjour FB
Tu as peut-être un problème de syntaxe. Essaies çà:
Sub TestFind() Dim c As Range If Intersect(Range("A1:A50"), ActiveCell) Is Nothing Then Range("A1").Activate Set c = Range("A1:A50").Find(What:="xxx", after:¬tiveCell) If c Is Nothing Then MsgBox ("Pas de xxx dans la plage A1:A50") Else c.Select End If End Sub
Je n'ai pas Excel97 sous la main, mais çà devrait marcher.
Yvan
"FB" a écrit dans le message de news:
Bonjour à tous
lorsque j'utilise le find (what:="mot") avec excel 97, il me met une erreur comme quoi il ne connait pas l'instruction!!!! que faire????
merci d'avance à toute les personnes qui s'interesse à mon problème
Bonjour à tous
Je n'ai pas Excel97 sous la main, mais çà devrait marcher.
Je confirme, à part l'oubli d'un "End If" en fin de code, cela fonctionne
sous xl97
JJ
"Yvan" <yvan.echange(enlever ceci)@free.fr> a écrit dans le message de
news:eYlpELGtFHA.2880@TK2MSFTNGP12.phx.gbl...
Bonjour FB
Tu as peut-être un problème de syntaxe. Essaies çà:
Sub TestFind()
Dim c As Range
If Intersect(Range("A1:A50"), ActiveCell) Is Nothing Then
Range("A1").Activate
Set c = Range("A1:A50").Find(What:="xxx", after:¬tiveCell)
If c Is Nothing Then
MsgBox ("Pas de xxx dans la plage A1:A50")
Else
c.Select
End If
End Sub
Je n'ai pas Excel97 sous la main, mais çà devrait marcher.
Yvan
"FB" <FB@discussions.microsoft.com> a écrit dans le message de news:
CFB29B9C-5F42-4D7C-9C28-78768FAD90C6@microsoft.com...
Bonjour à tous
lorsque j'utilise le find (what:="mot") avec excel 97, il me met une
erreur
comme quoi il ne connait pas l'instruction!!!!
que faire????
merci d'avance à toute les personnes qui s'interesse à mon problème
Je n'ai pas Excel97 sous la main, mais çà devrait marcher.
Je confirme, à part l'oubli d'un "End If" en fin de code, cela fonctionne sous xl97
JJ
"Yvan" <yvan.echange(enlever ceci)@free.fr> a écrit dans le message de news:
Bonjour FB
Tu as peut-être un problème de syntaxe. Essaies çà:
Sub TestFind() Dim c As Range If Intersect(Range("A1:A50"), ActiveCell) Is Nothing Then Range("A1").Activate Set c = Range("A1:A50").Find(What:="xxx", after:¬tiveCell) If c Is Nothing Then MsgBox ("Pas de xxx dans la plage A1:A50") Else c.Select End If End Sub
Je n'ai pas Excel97 sous la main, mais çà devrait marcher.
Yvan
"FB" a écrit dans le message de news:
Bonjour à tous
lorsque j'utilise le find (what:="mot") avec excel 97, il me met une erreur comme quoi il ne connait pas l'instruction!!!! que faire????
merci d'avance à toute les personnes qui s'interesse à mon problème
Yvan
Merci Jacky.
En fait, il ne manquait pas de End If.
C'est parce que Range("A1).Activate, qui est en principe sur la même ligne que "If Intersect ...." a été renvoyé à la ligne à l'envoi du message.
@+
Yvan
"Jacky" a écrit dans le message de news: %
Bonjour à tous
Je n'ai pas Excel97 sous la main, mais çà devrait marcher.
Je confirme, à part l'oubli d'un "End If" en fin de code, cela fonctionne sous xl97
JJ
"Yvan" <yvan.echange(enlever ceci)@free.fr> a écrit dans le message de news:
Bonjour FB
Tu as peut-être un problème de syntaxe. Essaies çà:
Sub TestFind() Dim c As Range If Intersect(Range("A1:A50"), ActiveCell) Is Nothing Then Range("A1").Activate Set c = Range("A1:A50").Find(What:="xxx", after:¬tiveCell) If c Is Nothing Then MsgBox ("Pas de xxx dans la plage A1:A50") Else c.Select End If End Sub
Je n'ai pas Excel97 sous la main, mais çà devrait marcher.
Yvan
"FB" a écrit dans le message de news:
Bonjour à tous
lorsque j'utilise le find (what:="mot") avec excel 97, il me met une erreur comme quoi il ne connait pas l'instruction!!!! que faire????
merci d'avance à toute les personnes qui s'interesse à mon problème
Merci Jacky.
En fait, il ne manquait pas de End If.
C'est parce que Range("A1).Activate, qui est en principe sur la même ligne
que "If Intersect ...." a été renvoyé à la ligne à l'envoi du message.
@+
Yvan
"Jacky" <nospam@bidon.fr> a écrit dans le message de news:
%23o8F35GtFHA.2072@TK2MSFTNGP14.phx.gbl...
Bonjour à tous
Je n'ai pas Excel97 sous la main, mais çà devrait marcher.
Je confirme, à part l'oubli d'un "End If" en fin de code, cela fonctionne
sous xl97
JJ
"Yvan" <yvan.echange(enlever ceci)@free.fr> a écrit dans le message de
news:eYlpELGtFHA.2880@TK2MSFTNGP12.phx.gbl...
Bonjour FB
Tu as peut-être un problème de syntaxe. Essaies çà:
Sub TestFind()
Dim c As Range
If Intersect(Range("A1:A50"), ActiveCell) Is Nothing Then
Range("A1").Activate
Set c = Range("A1:A50").Find(What:="xxx", after:¬tiveCell)
If c Is Nothing Then
MsgBox ("Pas de xxx dans la plage A1:A50")
Else
c.Select
End If
End Sub
Je n'ai pas Excel97 sous la main, mais çà devrait marcher.
Yvan
"FB" <FB@discussions.microsoft.com> a écrit dans le message de news:
CFB29B9C-5F42-4D7C-9C28-78768FAD90C6@microsoft.com...
Bonjour à tous
lorsque j'utilise le find (what:="mot") avec excel 97, il me met une
erreur
comme quoi il ne connait pas l'instruction!!!!
que faire????
merci d'avance à toute les personnes qui s'interesse à mon problème
C'est parce que Range("A1).Activate, qui est en principe sur la même ligne que "If Intersect ...." a été renvoyé à la ligne à l'envoi du message.
@+
Yvan
"Jacky" a écrit dans le message de news: %
Bonjour à tous
Je n'ai pas Excel97 sous la main, mais çà devrait marcher.
Je confirme, à part l'oubli d'un "End If" en fin de code, cela fonctionne sous xl97
JJ
"Yvan" <yvan.echange(enlever ceci)@free.fr> a écrit dans le message de news:
Bonjour FB
Tu as peut-être un problème de syntaxe. Essaies çà:
Sub TestFind() Dim c As Range If Intersect(Range("A1:A50"), ActiveCell) Is Nothing Then Range("A1").Activate Set c = Range("A1:A50").Find(What:="xxx", after:¬tiveCell) If c Is Nothing Then MsgBox ("Pas de xxx dans la plage A1:A50") Else c.Select End If End Sub
Je n'ai pas Excel97 sous la main, mais çà devrait marcher.
Yvan
"FB" a écrit dans le message de news:
Bonjour à tous
lorsque j'utilise le find (what:="mot") avec excel 97, il me met une erreur comme quoi il ne connait pas l'instruction!!!! que faire????
merci d'avance à toute les personnes qui s'interesse à mon problème
FB
bjr yvan
le prob que j'ai c'est avec Cells.find(what:="mot") est ce que cette syntaxe est correct pour excel 97 ?????
Encore mreci
Merci Jacky.
En fait, il ne manquait pas de End If.
C'est parce que Range("A1).Activate, qui est en principe sur la même ligne que "If Intersect ...." a été renvoyé à la ligne à l'envoi du message.
@+
Yvan
"Jacky" a écrit dans le message de news: %
Bonjour à tous
Je n'ai pas Excel97 sous la main, mais çà devrait marcher.
Je confirme, à part l'oubli d'un "End If" en fin de code, cela fonctionne sous xl97
JJ
"Yvan" <yvan.echange(enlever ceci)@free.fr> a écrit dans le message de news:
Bonjour FB
Tu as peut-être un problème de syntaxe. Essaies çà:
Sub TestFind() Dim c As Range If Intersect(Range("A1:A50"), ActiveCell) Is Nothing Then Range("A1").Activate Set c = Range("A1:A50").Find(What:="xxx", after:¬tiveCell) If c Is Nothing Then MsgBox ("Pas de xxx dans la plage A1:A50") Else c.Select End If End Sub
Je n'ai pas Excel97 sous la main, mais çà devrait marcher.
Yvan
"FB" a écrit dans le message de news:
Bonjour à tous
lorsque j'utilise le find (what:="mot") avec excel 97, il me met une erreur comme quoi il ne connait pas l'instruction!!!! que faire????
merci d'avance à toute les personnes qui s'interesse à mon problème
bjr yvan
le prob que j'ai c'est avec Cells.find(what:="mot")
est ce que cette syntaxe est correct pour excel 97 ?????
Encore mreci
Merci Jacky.
En fait, il ne manquait pas de End If.
C'est parce que Range("A1).Activate, qui est en principe sur la même ligne
que "If Intersect ...." a été renvoyé à la ligne à l'envoi du message.
@+
Yvan
"Jacky" <nospam@bidon.fr> a écrit dans le message de news:
%23o8F35GtFHA.2072@TK2MSFTNGP14.phx.gbl...
Bonjour à tous
Je n'ai pas Excel97 sous la main, mais çà devrait marcher.
Je confirme, à part l'oubli d'un "End If" en fin de code, cela fonctionne
sous xl97
JJ
"Yvan" <yvan.echange(enlever ceci)@free.fr> a écrit dans le message de
news:eYlpELGtFHA.2880@TK2MSFTNGP12.phx.gbl...
Bonjour FB
Tu as peut-être un problème de syntaxe. Essaies çà:
Sub TestFind()
Dim c As Range
If Intersect(Range("A1:A50"), ActiveCell) Is Nothing Then
Range("A1").Activate
Set c = Range("A1:A50").Find(What:="xxx", after:¬tiveCell)
If c Is Nothing Then
MsgBox ("Pas de xxx dans la plage A1:A50")
Else
c.Select
End If
End Sub
Je n'ai pas Excel97 sous la main, mais çà devrait marcher.
Yvan
"FB" <FB@discussions.microsoft.com> a écrit dans le message de news:
CFB29B9C-5F42-4D7C-9C28-78768FAD90C6@microsoft.com...
Bonjour à tous
lorsque j'utilise le find (what:="mot") avec excel 97, il me met une
erreur
comme quoi il ne connait pas l'instruction!!!!
que faire????
merci d'avance à toute les personnes qui s'interesse à mon problème
le prob que j'ai c'est avec Cells.find(what:="mot") est ce que cette syntaxe est correct pour excel 97 ?????
Encore mreci
Merci Jacky.
En fait, il ne manquait pas de End If.
C'est parce que Range("A1).Activate, qui est en principe sur la même ligne que "If Intersect ...." a été renvoyé à la ligne à l'envoi du message.
@+
Yvan
"Jacky" a écrit dans le message de news: %
Bonjour à tous
Je n'ai pas Excel97 sous la main, mais çà devrait marcher.
Je confirme, à part l'oubli d'un "End If" en fin de code, cela fonctionne sous xl97
JJ
"Yvan" <yvan.echange(enlever ceci)@free.fr> a écrit dans le message de news:
Bonjour FB
Tu as peut-être un problème de syntaxe. Essaies çà:
Sub TestFind() Dim c As Range If Intersect(Range("A1:A50"), ActiveCell) Is Nothing Then Range("A1").Activate Set c = Range("A1:A50").Find(What:="xxx", after:¬tiveCell) If c Is Nothing Then MsgBox ("Pas de xxx dans la plage A1:A50") Else c.Select End If End Sub
Je n'ai pas Excel97 sous la main, mais çà devrait marcher.
Yvan
"FB" a écrit dans le message de news:
Bonjour à tous
lorsque j'utilise le find (what:="mot") avec excel 97, il me met une erreur comme quoi il ne connait pas l'instruction!!!! que faire????
merci d'avance à toute les personnes qui s'interesse à mon problème
Jacky
Re... Si "mot" est une variable la syntaxe serait: Find(What:=mot)
Salutations JJ
"FB" a écrit dans le message de news:
bjr yvan
le prob que j'ai c'est avec Cells.find(what:="mot") est ce que cette syntaxe est correct pour excel 97 ?????
Encore mreci
Merci Jacky.
En fait, il ne manquait pas de End If.
C'est parce que Range("A1).Activate, qui est en principe sur la même ligne
que "If Intersect ...." a été renvoyé à la ligne à l'envoi du message.
@+
Yvan
"Jacky" a écrit dans le message de news: %
Bonjour à tous
Je n'ai pas Excel97 sous la main, mais çà devrait marcher.
Je confirme, à part l'oubli d'un "End If" en fin de code, cela fonctionne
sous xl97
JJ
"Yvan" <yvan.echange(enlever ceci)@free.fr> a écrit dans le message de news:
Bonjour FB
Tu as peut-être un problème de syntaxe. Essaies çà:
Sub TestFind() Dim c As Range If Intersect(Range("A1:A50"), ActiveCell) Is Nothing Then Range("A1").Activate Set c = Range("A1:A50").Find(What:="xxx", after:¬tiveCell) If c Is Nothing Then MsgBox ("Pas de xxx dans la plage A1:A50") Else c.Select End If End Sub
Je n'ai pas Excel97 sous la main, mais çà devrait marcher.
Yvan
"FB" a écrit dans le message de news:
Bonjour à tous
lorsque j'utilise le find (what:="mot") avec excel 97, il me met une
erreur comme quoi il ne connait pas l'instruction!!!! que faire????
merci d'avance à toute les personnes qui s'interesse à mon problème
Re...
Si "mot" est une variable la syntaxe serait:
Find(What:=mot)
Salutations
JJ
"FB" <FB@discussions.microsoft.com> a écrit dans le message de
news:727E73C2-A8A9-4701-BFF2-9FA02515C462@microsoft.com...
bjr yvan
le prob que j'ai c'est avec Cells.find(what:="mot")
est ce que cette syntaxe est correct pour excel 97 ?????
Encore mreci
Merci Jacky.
En fait, il ne manquait pas de End If.
C'est parce que Range("A1).Activate, qui est en principe sur la même
ligne
que "If Intersect ...." a été renvoyé à la ligne à l'envoi du message.
@+
Yvan
"Jacky" <nospam@bidon.fr> a écrit dans le message de news:
%23o8F35GtFHA.2072@TK2MSFTNGP14.phx.gbl...
Bonjour à tous
Je n'ai pas Excel97 sous la main, mais çà devrait marcher.
Je confirme, à part l'oubli d'un "End If" en fin de code, cela
fonctionne
sous xl97
JJ
"Yvan" <yvan.echange(enlever ceci)@free.fr> a écrit dans le message de
news:eYlpELGtFHA.2880@TK2MSFTNGP12.phx.gbl...
Bonjour FB
Tu as peut-être un problème de syntaxe. Essaies çà:
Sub TestFind()
Dim c As Range
If Intersect(Range("A1:A50"), ActiveCell) Is Nothing Then
Range("A1").Activate
Set c = Range("A1:A50").Find(What:="xxx", after:¬tiveCell)
If c Is Nothing Then
MsgBox ("Pas de xxx dans la plage A1:A50")
Else
c.Select
End If
End Sub
Je n'ai pas Excel97 sous la main, mais çà devrait marcher.
Yvan
"FB" <FB@discussions.microsoft.com> a écrit dans le message de news:
CFB29B9C-5F42-4D7C-9C28-78768FAD90C6@microsoft.com...
Bonjour à tous
lorsque j'utilise le find (what:="mot") avec excel 97, il me met
une
erreur
comme quoi il ne connait pas l'instruction!!!!
que faire????
merci d'avance à toute les personnes qui s'interesse à mon problème
Re... Si "mot" est une variable la syntaxe serait: Find(What:=mot)
Salutations JJ
"FB" a écrit dans le message de news:
bjr yvan
le prob que j'ai c'est avec Cells.find(what:="mot") est ce que cette syntaxe est correct pour excel 97 ?????
Encore mreci
Merci Jacky.
En fait, il ne manquait pas de End If.
C'est parce que Range("A1).Activate, qui est en principe sur la même ligne
que "If Intersect ...." a été renvoyé à la ligne à l'envoi du message.
@+
Yvan
"Jacky" a écrit dans le message de news: %
Bonjour à tous
Je n'ai pas Excel97 sous la main, mais çà devrait marcher.
Je confirme, à part l'oubli d'un "End If" en fin de code, cela fonctionne
sous xl97
JJ
"Yvan" <yvan.echange(enlever ceci)@free.fr> a écrit dans le message de news:
Bonjour FB
Tu as peut-être un problème de syntaxe. Essaies çà:
Sub TestFind() Dim c As Range If Intersect(Range("A1:A50"), ActiveCell) Is Nothing Then Range("A1").Activate Set c = Range("A1:A50").Find(What:="xxx", after:¬tiveCell) If c Is Nothing Then MsgBox ("Pas de xxx dans la plage A1:A50") Else c.Select End If End Sub
Je n'ai pas Excel97 sous la main, mais çà devrait marcher.
Yvan
"FB" a écrit dans le message de news:
Bonjour à tous
lorsque j'utilise le find (what:="mot") avec excel 97, il me met une
erreur comme quoi il ne connait pas l'instruction!!!! que faire????
merci d'avance à toute les personnes qui s'interesse à mon problème
Yvan
Re-bonjour FB
le prob que j'ai c'est avec Cells.find(what:="mot") est ce que cette syntaxe est correct pour excel 97 ?????
La syntaxe est correcte. Elle te permet de trouver les trois lettres m o t consécutives dans une cellule de l'objet cells, qui représente l'ensemble des cellules de la feuille active. Maintenant, ton utilisation de find n'est peut-être pas adaptée.
As-tu essayé l'exemple que je t'ai proposé, validé par Jacky sur Excel97? (attention au pb signalé par Jacky sur la ligne Intersect. Voir nos messages précédents sur ton fil).
Normalement çà devrait aussi fonctionner chez toi. Si ce n'était pas le cas, dis-nous ce qui coince et où çà coince. On devrait pouvoir s'en sortir!
@+
Yvan
Re-bonjour FB
le prob que j'ai c'est avec Cells.find(what:="mot")
est ce que cette syntaxe est correct pour excel 97 ?????
La syntaxe est correcte. Elle te permet de trouver les trois lettres m o t
consécutives dans une cellule de l'objet cells, qui représente l'ensemble
des cellules de la feuille active. Maintenant, ton utilisation de find n'est
peut-être pas adaptée.
As-tu essayé l'exemple que je t'ai proposé, validé par Jacky sur Excel97?
(attention au pb signalé par Jacky sur la ligne Intersect. Voir nos messages
précédents sur ton fil).
Normalement çà devrait aussi fonctionner chez toi. Si ce n'était pas le cas,
dis-nous ce qui coince et où çà coince. On devrait pouvoir s'en sortir!
le prob que j'ai c'est avec Cells.find(what:="mot") est ce que cette syntaxe est correct pour excel 97 ?????
La syntaxe est correcte. Elle te permet de trouver les trois lettres m o t consécutives dans une cellule de l'objet cells, qui représente l'ensemble des cellules de la feuille active. Maintenant, ton utilisation de find n'est peut-être pas adaptée.
As-tu essayé l'exemple que je t'ai proposé, validé par Jacky sur Excel97? (attention au pb signalé par Jacky sur la ligne Intersect. Voir nos messages précédents sur ton fil).
Normalement çà devrait aussi fonctionner chez toi. Si ce n'était pas le cas, dis-nous ce qui coince et où çà coince. On devrait pouvoir s'en sortir!
@+
Yvan
FB
oki
je pense que j'ai réussi..... il suffisait de rajouté un "range" pour avoir une sélection active dans la feuille !!!! (c'était compliqué pour moi parce que je n'avais pas excel97. je faisais cette macro pour quelqu'un d'autre. Mais maintenant j'ai remis la main sur un Excel 97 .... c'est bcp plus facile comme ca)
un grand merci ... voici ma syntaxe
mot = InputBox("Mot à rechercher ?") feuille = 1 Sheets(feuille).Select Range("a1").Activate Set trouvé1 = Cells.Find(What:="colone2") If Not trouvé1 Is Nothing Then trouvé1.Activate End If
Re-bonjour FB
le prob que j'ai c'est avec Cells.find(what:="mot") est ce que cette syntaxe est correct pour excel 97 ?????
La syntaxe est correcte. Elle te permet de trouver les trois lettres m o t consécutives dans une cellule de l'objet cells, qui représente l'ensemble des cellules de la feuille active. Maintenant, ton utilisation de find n'est peut-être pas adaptée.
As-tu essayé l'exemple que je t'ai proposé, validé par Jacky sur Excel97? (attention au pb signalé par Jacky sur la ligne Intersect. Voir nos messages précédents sur ton fil).
Normalement çà devrait aussi fonctionner chez toi. Si ce n'était pas le cas, dis-nous ce qui coince et où çà coince. On devrait pouvoir s'en sortir!
@+
Yvan
oki
je pense que j'ai réussi..... il suffisait de rajouté un "range" pour avoir
une sélection active dans la feuille !!!!
(c'était compliqué pour moi parce que je n'avais pas excel97. je faisais
cette macro pour quelqu'un d'autre. Mais maintenant j'ai remis la main sur
un Excel 97 .... c'est bcp plus facile comme ca)
un grand merci ...
voici ma syntaxe
mot = InputBox("Mot à rechercher ?")
feuille = 1
Sheets(feuille).Select
Range("a1").Activate
Set trouvé1 = Cells.Find(What:="colone2")
If Not trouvé1 Is Nothing Then
trouvé1.Activate
End If
Re-bonjour FB
le prob que j'ai c'est avec Cells.find(what:="mot")
est ce que cette syntaxe est correct pour excel 97 ?????
La syntaxe est correcte. Elle te permet de trouver les trois lettres m o t
consécutives dans une cellule de l'objet cells, qui représente l'ensemble
des cellules de la feuille active. Maintenant, ton utilisation de find n'est
peut-être pas adaptée.
As-tu essayé l'exemple que je t'ai proposé, validé par Jacky sur Excel97?
(attention au pb signalé par Jacky sur la ligne Intersect. Voir nos messages
précédents sur ton fil).
Normalement çà devrait aussi fonctionner chez toi. Si ce n'était pas le cas,
dis-nous ce qui coince et où çà coince. On devrait pouvoir s'en sortir!
je pense que j'ai réussi..... il suffisait de rajouté un "range" pour avoir une sélection active dans la feuille !!!! (c'était compliqué pour moi parce que je n'avais pas excel97. je faisais cette macro pour quelqu'un d'autre. Mais maintenant j'ai remis la main sur un Excel 97 .... c'est bcp plus facile comme ca)
un grand merci ... voici ma syntaxe
mot = InputBox("Mot à rechercher ?") feuille = 1 Sheets(feuille).Select Range("a1").Activate Set trouvé1 = Cells.Find(What:="colone2") If Not trouvé1 Is Nothing Then trouvé1.Activate End If
Re-bonjour FB
le prob que j'ai c'est avec Cells.find(what:="mot") est ce que cette syntaxe est correct pour excel 97 ?????
La syntaxe est correcte. Elle te permet de trouver les trois lettres m o t consécutives dans une cellule de l'objet cells, qui représente l'ensemble des cellules de la feuille active. Maintenant, ton utilisation de find n'est peut-être pas adaptée.
As-tu essayé l'exemple que je t'ai proposé, validé par Jacky sur Excel97? (attention au pb signalé par Jacky sur la ligne Intersect. Voir nos messages précédents sur ton fil).
Normalement çà devrait aussi fonctionner chez toi. Si ce n'était pas le cas, dis-nous ce qui coince et où çà coince. On devrait pouvoir s'en sortir!
