Je cherche a donne a la variable y la valeur:
2 si il y a le mot "Result" entre les lignes cc et ccc ( qui resultent
d'une precedente recherche)
1 s'il n' y a pas le mot result .
Voila ce que j'ai ecrit mais ca ne marche pas:
Dim y as integer
(z n'est pas declaree)
y = 1
With Worksheets("INCOME").Range(Cells(cc.Row), Cells(ccc.Row))
Set z = .Find(Result, LookIn:=xlValues)
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
Bonsoir. Si cc et ccc représentent des numéros de ligne, il faut mettre : With Worksheets("INCOME").Range(cc & ":" & ccc) Cordialement. Daniel "AlbatroZ" a écrit dans le message de news:
Salut tout le monde:
Je cherche a donne a la variable y la valeur: 2 si il y a le mot "Result" entre les lignes cc et ccc ( qui resultent d'une precedente recherche) 1 s'il n' y a pas le mot result .
Voila ce que j'ai ecrit mais ca ne marche pas:
Dim y as integer (z n'est pas declaree)
y = 1
With Worksheets("INCOME").Range(Cells(cc.Row), Cells(ccc.Row)) Set z = .Find(Result, LookIn:=xlValues)
If z Is Nothing Then y = 2 End If
End With
Merci pour votre aide
Bonsoir.
Si cc et ccc représentent des numéros de ligne, il faut mettre :
With Worksheets("INCOME").Range(cc & ":" & ccc)
Cordialement.
Daniel
"AlbatroZ" <pierre_even@laposte.net> a écrit dans le message de news:
1164919852.629331.299210@j72g2000cwa.googlegroups.com...
Salut tout le monde:
Je cherche a donne a la variable y la valeur:
2 si il y a le mot "Result" entre les lignes cc et ccc ( qui resultent
d'une precedente recherche)
1 s'il n' y a pas le mot result .
Voila ce que j'ai ecrit mais ca ne marche pas:
Dim y as integer
(z n'est pas declaree)
y = 1
With Worksheets("INCOME").Range(Cells(cc.Row), Cells(ccc.Row))
Set z = .Find(Result, LookIn:=xlValues)
Bonsoir. Si cc et ccc représentent des numéros de ligne, il faut mettre : With Worksheets("INCOME").Range(cc & ":" & ccc) Cordialement. Daniel "AlbatroZ" a écrit dans le message de news:
Salut tout le monde:
Je cherche a donne a la variable y la valeur: 2 si il y a le mot "Result" entre les lignes cc et ccc ( qui resultent d'une precedente recherche) 1 s'il n' y a pas le mot result .
Voila ce que j'ai ecrit mais ca ne marche pas:
Dim y as integer (z n'est pas declaree)
y = 1
With Worksheets("INCOME").Range(Cells(cc.Row), Cells(ccc.Row)) Set z = .Find(Result, LookIn:=xlValues)
If z Is Nothing Then y = 2 End If
End With
Merci pour votre aide
Fabien
Bonsoir,
Pour ma part j'ai supposé que cc et ccc étaient de type Range. Avant l'instruction With, il faut s'assurer que l'on se trouve dans le bon onglet , "TEST" dans mon exemple. Ensuite on sélectionne la zone de recherche (il y a plus élégant mais ça marche) [...] ActiveWorkbook.Worksheets("TEST").Range(Cells(cc.Row, 1), Cells(ccc.Row, 256)).Select With Selection [....]
la suite du code est inchangée.
Cordialement,
Fabien --------------------------
-------------------------- "AlbatroZ" a écrit dans le message de news:
Salut tout le monde:
Je cherche a donne a la variable y la valeur: 2 si il y a le mot "Result" entre les lignes cc et ccc ( qui resultent d'une precedente recherche) 1 s'il n' y a pas le mot result .
Voila ce que j'ai ecrit mais ca ne marche pas:
Dim y as integer (z n'est pas declaree)
y = 1
With Worksheets("INCOME").Range(Cells(cc.Row), Cells(ccc.Row)) Set z = .Find(Result, LookIn:=xlValues)
If z Is Nothing Then y = 2 End If
End With
Merci pour votre aide
Bonsoir,
Pour ma part j'ai supposé que cc et ccc étaient de type Range.
Avant l'instruction With, il faut s'assurer que l'on se trouve dans le bon
onglet , "TEST" dans mon exemple.
Ensuite on sélectionne la zone de recherche (il y a plus élégant mais ça
marche)
[...]
ActiveWorkbook.Worksheets("TEST").Range(Cells(cc.Row, 1), Cells(ccc.Row,
256)).Select
With Selection
[....]
la suite du code est inchangée.
Cordialement,
Fabien
--------------------------
--------------------------
"AlbatroZ" <pierre_even@laposte.net> a écrit dans le message de news:
1164919852.629331.299210@j72g2000cwa.googlegroups.com...
Salut tout le monde:
Je cherche a donne a la variable y la valeur:
2 si il y a le mot "Result" entre les lignes cc et ccc ( qui resultent
d'une precedente recherche)
1 s'il n' y a pas le mot result .
Voila ce que j'ai ecrit mais ca ne marche pas:
Dim y as integer
(z n'est pas declaree)
y = 1
With Worksheets("INCOME").Range(Cells(cc.Row), Cells(ccc.Row))
Set z = .Find(Result, LookIn:=xlValues)
Pour ma part j'ai supposé que cc et ccc étaient de type Range. Avant l'instruction With, il faut s'assurer que l'on se trouve dans le bon onglet , "TEST" dans mon exemple. Ensuite on sélectionne la zone de recherche (il y a plus élégant mais ça marche) [...] ActiveWorkbook.Worksheets("TEST").Range(Cells(cc.Row, 1), Cells(ccc.Row, 256)).Select With Selection [....]
la suite du code est inchangée.
Cordialement,
Fabien --------------------------
-------------------------- "AlbatroZ" a écrit dans le message de news:
Salut tout le monde:
Je cherche a donne a la variable y la valeur: 2 si il y a le mot "Result" entre les lignes cc et ccc ( qui resultent d'une precedente recherche) 1 s'il n' y a pas le mot result .
Voila ce que j'ai ecrit mais ca ne marche pas:
Dim y as integer (z n'est pas declaree)
y = 1
With Worksheets("INCOME").Range(Cells(cc.Row), Cells(ccc.Row)) Set z = .Find(Result, LookIn:=xlValues)
