erreur d'execution '1004' Erreur définie par l'application o

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
b
belka2137
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 11 juillet 2017
Version d'Excel : 2016

Message par belka2137 » 11 juillet 2017, 16:46

Salut à tous, je suis entrain de faire un code VBA qui retrouve les mots placés dans une liste dans les messages placés dans une deuxième liste. Mais je rencontre un problème avec cette erreur 1004, j'ai essaie de voir sur internet mais j'ai pas trouvé une solution à mon problème qui est situé au niveau de la deuxième boucle for:
Option Explicit

Sub Cherche()
Dim Wb As Workbook
Dim Sh As Worksheet
Dim Cell, Cell2 As Object

Set Wb = ThisWorkbook
    
   
    For Each Cell In Wb.Sheets("Feuil2").Range("List[PRODUCTS]").Cells
   
        For Each Cell2 In Wb.Sheets("Feuille1").Range("Comms[[Message]:[Réponse]").Cells
       'Le problème est à la ligne precedente 
            If CBool(InStr(1, LCase(Cell2.Text), LCase(Cell.Text), vbTextCompare)) Then
          
                Wb.Sheets("Feuille1").Range("Comms[Products Found]").Cells(Cell2.Row - 1).FormulaR1C1 = _
                Wb.Sheets("Feuille1").Range("Comms[Products Found]").Cells(Cell2.Row - 1).Text & Cell.Text & ", "
               
            End If
        Next Cell2
   Next Cell ' Test next Product Name

Set Wb = Nothing ' Clean object when done

End Sub

Merci de votre aide
Avatar du membre
Zohnya
Membre habitué
Membre habitué
Messages : 81
Inscrit le : 7 juillet 2016
Version d'Excel : 2016

Message par Zohnya » 11 juillet 2017, 16:52

Salut :)

Es-tu sûr du nom de tes feuilles ? tu as "Feuil2" et "Feuille1" ça ne serait pas plutôt "Feuil1" ?
Cordialement :)

Zoh'
b
belka2137
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 11 juillet 2017
Version d'Excel : 2016

Message par belka2137 » 11 juillet 2017, 16:54

Oui je suis sur, j'ai même refait un autre fichier ou j'ai laisse les noms par défaut (en changeant ca sur le code aussi) toujours le meme problème :(
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'696
Appréciations reçues : 699
Inscrit le : 27 août 2012
Version d'Excel : 365 Personnel

Message par Jean-Eric » 11 juillet 2017, 20:25

Bonjour,
Merci de joindre un fichier à ta demande.
Cdlt.
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
b
belka2137
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 11 juillet 2017
Version d'Excel : 2016

Message par belka2137 » 12 juillet 2017, 13:11

Jean-Eric a écrit :Bonjour,
Merci de joindre un fichier à ta demande.
Cdlt.
Voila le fichier en question
Excel.xlsm
(75.21 Kio) Téléchargé 25 fois
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message