Discussion :

[PeaceMaker]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[mayekeul]

bonjour,

et en essayant comme ceci?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[PeaceMaker]

J'ai testé ta solution.
Cela donne ça si je ne me suis pas trompé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[Didier Gonard]

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

[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à....

[pgz]

Bonsoir.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Exit For

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

En espérant que cela t'aide,

Cordialement,

PGZ

[Invité]

Bonsoir,

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

[patricktoulon]

bonjour

si tu a qu'une seule occurrence a chercher

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Theze]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.