Discussion :

[RICO_85]

BONJOUR
Je débute en vba, j'ai fait ce code qui cherche un mot dans une une colonne ( log, colonne I), et qui me l'affiche sur une autre page ( F1 )
Le problème c'est qu'il m'affiche une erreur 1004
Si vous avez une idée du problème
Merci
A+

Voici le code

Code :

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

1
2
3
4
5
6
7
8
9
Sub log()
 
TEXTE = Sheets("log").Range("C:C")
For J = 3 To 10
Set CELluletrouve = Sheets("LOG").Range("I" & J).Find("FUEL") 'cherche les log Fuel
Sheets("F1").Range("A" & J) = CELluletrouve 'copie de la variable dans la colonne A
Sheets("F1").Range("G" & J) = J 'affichage du compteur en G
Next J
End Sub

[groslou2]

Pas forcément besoin d'une macro pour faire ça.
Tu peux chercher du côté de la fonction EQUIV d'Excel (cf aide d'Excel) pour ton compteur.

[casefayere]

Bonsoir,

Je penses, en espérant que tes variables soient bien déclarées, que ta recherche provoque une erreur car "FUEL" n'existe pas :

transformes ton code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub log()
 
TEXTE = Sheets("log").Range("C:C")
For J = 3 To 10
   Set CELluletrouve = Sheets("LOG").Range("I" & J).Find("FUEL") 'cherche les log Fuel
   If Not CELluletrouve Is Nothing Then
      Sheets("F1").Range("A" & J) = CELluletrouve 'copie de la variable dans la colonne A
      Sheets("F1").Range("G" & J) = J 'affichage du compteur en G
   End If
Next J
End Sub

[alsimbad]

c'est parce que tu as le nom de la feuille qui bloque, mais je n'ai pas approfondi le pourquoi

Code :

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

1
2
 
Set CELluletrouve = Range("i1:i10").Find("FUEL") 'cherche les log Fuel

tu remarqueras la forme range (i1:i10) qui t'evite de faire une boucle inutile. le mot est directement dans la plage

si tu dois avoir plusieur occurences il existe une forme de boucle tres rapide avec find mais je l'ai pas sous la main, mon aide fonctionne mal.
je peux la trouver si tu as besoin. tu dis

bon, c'est la boucle de mercaatog dont je parlais

[mercatog]

Bonjour
Étrange quand même cette recherche dans une seule cellule avec la méthode Find

Code :

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

Set CELluletrouve = Sheets("LOG").Range("I" & J).Find("FUEL") 'cherche les log Fuel

Si tu veux boucler sur la colonne I de la feuille LOG et récupérer les données en feuille F1, ci joint code (presque issu de l'aide sur Find)

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
Sub log()
Dim c As Range
Dim PremTrouv As String
Dim j As Long
 
With Sheets("LOG").Range("I:I")
    Set c = .Find("FUEL", LookIn:=xlValues, LookAt:=xlPart)          'Ou LookAt:=xlwhole
    If Not c Is Nothing Then
        PremTrouv = c.Address
        Do
            j = j + 1
            With Sheets("F1")
                .Range("A" & j) = c.Value                            'copie de la variable dans la colonne A
                .Range("G" & j) = j                                  'affichage du compteur en G
            End With
            Set c = .FindNext(c)
        Loop Until c.Address = PremTrouv Or c Is Nothing
        Set c = Nothing
    End If
End With
End Sub

Edit: fatigué aussi

[casefayere]

Bonsoir mercatog,

Étrange quand même cette recherche dans une seule cellule avec la méthode Find

aie ! je n'ai meme pas fait gaffe à la plage de recherche, encore trop vite...

Bonne soirée