Discussion :

[mloic38]

salut la communauté

j'ai un petit problème en fait je cherche à trouvé une chaîne de caractère dans une colonne d'une autre feuille
voilà mon programme

Code :

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

1
2
3
4
5
6
7
8
9
10
For l = 5 To 2000
If Worksheets(2).Cells(l, 51).Value = "y" Or Worksheets(2).Cells(l, 51).Value = "Y" Then
    Act = Worksheets(1).Cells(l, 13).Value
Set cherche = Worksheets(1).Columns(13).Cells.Find(what:=Worksheets(2).Cells(l, 13).Value)
    If cherche Is Nothing Then
    Else
    Worksheets(1).Cells(ligne1, 51).Value = "y"
    End If
 
    End If

mais quand je le lance ça me met erreur '1004' erreur définie par l'application ou par l'objet.

Je ne comprends pas mon erreur

merci d'avance pour votre aide

[parmi]

Act = Worksheets(1).Cells(l, 13).Value
Set cherche = Worksheets(1).Columns(13).Cells.Find(what:=Worksheets(2).Cells(l, 13).Value)

Essaie en enlevant Cells et en spécifiant explicitement que tu recherches dans la valeur des cellules (xlValues) et non dans les formules, ainsi que dans une partie du texte (xlPart) et non pas la totalité

Code :

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

Set cherche = Worksheets(1).Columns(13).Find(what:=Worksheets(2).Cells(l, 13).Value, LookIn:=xlValues, LookAt:=xlPart)

Autrement, si ça ne fonctionne toujours pas, sur quelle ligne apparaît l'erreur ?
Comment est déclaré Cherche ? qui devrait être As Range...

If Worksheets(2).Cells(l, 51).Value = "y" Or Worksheets(2).Cells(l, 51).Value = "Y" Then

Tu pourrais simplifier en forçant la casse de vérification

Code :

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

If LCase(Worksheets(2).Cells(l, 51).Value) = "y" Then

[mloic38]

merci pour tes réponses je vais essayer tout ça

[Thautheme]

Bonjour le fil, bonjour le forum,

Aucune variable n'est déclarée dans ton code ! La variable Act est définit puis non utilisée et la variable Ligne1 n'est définie nulle part... Peut-être que c'est fait dans le code complet mais le bout de code que tu fournis est incohérent.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim l As Integer
Dim Ligne1 As Integer
dim Act as ...
Dim cherche As Range
 
For l = 5 To 2000
Ligne1 = ...
If UCase(Worksheets(2).Cells(l, 51).Value) = "Y" Then
    Act = Worksheets(1).Cells(l, 13).Value
    Set cherche = Worksheets(1).Columns(13).Cells.Find(what:=Worksheets(2).Cells(l, 13).Value)
    If Not cherche Is Nothing Then Worksheets(1).Cells(Ligne1, 51).Value = "y"
End If