Problème de syntaxe sur une macro

Version imprimable

15/12/2010, 10h17
PeaceMaker

Problème de syntaxe sur une macro
Bonjour à tous,

je cherche à écrire une macro toute simple, qui parcourt chaque ligne de la feuille et qui me sélectionne la cellule B de la ligne qui contiendra en B le texte requis.

Voici la macro que j'ai construite :
Code:

1 2 3 4 Dim i As Integer For i = 0 To 1500 If Range("B" & i).Value = Garage Then Range("B" & i).Select Next i
Ici, j'ai mis i pour 0 à 1500 parce que le nombre de lignes que j'utilise est dans cette plage. Et la condition que je cherche est le texte "Garage" dans ma colonne B.

J'ai donc 2 problèmes :
1. je ne suis pas sur du code .Value étant donné le contenu est du texte.
2. Ceci dit, j'ai fait le test avec une condition numérique pour "stériliser" ce doute et la macro ne marchait toujours pas. Il y a donc une autre erreur dans ma macro.

Il me renvoie une erreur du type :
la méthode Range de l'objet Global a échoué

Merci d'avance pour votre aide!

bonjour,

et en essayant comme ceci?

Code:

1
2
3
4
5
 
If sheets("machite").Range("B" & i).Value = Garage Then 
sheets("machite").select
Range("B" & i).Select
end if

15/12/2010, 10h40
PeaceMaker
J'ai testé ta solution.
Cela donne ça si je ne me suis pas trompé
Code:

1 2 3 4 5 6 7 Dim i As Integer For i = 0 To 1500 If Sheets("SAISIE").Range("B" & i).Value = Garage Then Sheets("SAISIE").Select Range("B" & i).Select End If Next i
et cela me renvoie l'erreur 1004

Merci bcp pour ta réponse rapide Mayekeul!
15/12/2010, 11h00
Didier Gonard

Citation:

Ici, j'ai mis i pour 0 à 1500 parce que le nombre de lignes que j'utilise est dans cette plage.

Bonjour,

Tu as une ligne qui porte le N° 0 dans ta Feuille Excel ? :(

cordialement,

Didier
15/12/2010, 22h45
PeaceMaker

Entièrement raison Ormonth.
J'ai donc corriger, mais la cette fois quand je lance la macro, ca plante...

J'ai un message d'erreur "Excel a rencontré un problème et a cessé de fonctionner". Plantage total et redémarrage d'Excel.

J'avoue que je n'y comprends plus rien là....
15/12/2010, 23h01
pgz

Bonsoir.

Si tu cherches le texte "Garage" la syntaxe devrait être

Code:

If Sheets("SAISIE").Range("B" & i).Value = "Garage" Then

Ensuite, c'est bien d'avoir ajouter Sheets("SAISIE"), mais tu pourrais être plus précis

Code:

If ThisWorkbook.WorkSheets("SAISIE").Range("B" & i).Value = "Garage" Then

Puis, quand tu as trouvé la valeur, tu devrais ajouter

Code:

Exit For

ENfin, tout cela se fait sans boucle avec la méthode Find.

En espérant que cela t'aide,

Cordialement,

PGZ
30/12/2010, 17h29
Invité

Bonsoir,

La réponse de pgz vous a-t-elle apporté une solution ou une partie de cette solution ?

heuh!!!

bonjour

si tu a qu'une seule occurrence a chercher

Code:

1
2
3
4
5
6
7
 
Sub recherche_le_mot_garage()
With Worksheets("SAISIE").Range("b1:b1500")
    Set c = .Find("garage", LookIn:=xlValues)
    If Not c Is Nothing Then
c.Select
End If:End With:End Sub

au plaisir

Bonsoir,

Teste avec ce qui suit et adapte. La proc inscrit l'adresse des cellules où est trouvé le mot "garage" dans la fenêtre d'exécution (Debug.Print Cel.Address) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Private Sub Chercher()
 
Dim Plage As Range
Dim Cel As Range
Dim Adr As String
 
    Set Plage = Range([B1], [B65536].End(xlUp))
 
    Set Cel = Plage.Find("Garage", , xlValues)
    If Not Cel Is Nothing Then
        Adr = Cel.Address
        Do
 
            Debug.Print Cel.Address
 
            Set Cel = Plage.FindNext(Cel)
        Loop While Adr <> Cel.Address
    Else
        MsgBox "Mot 'Garage' non trouvé !"
    End If
 
    Set Cel = Nothing
    Set Plage = Nothing
 
End Sub

Hervé.