Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Autres excel erreur 1004 erreur définie par l'application ou par l'objet

tamatave33

XLDnaute Occasionnel
Bonjour,

Dans la boucle suivante :

Dim Nom As String, i As Integer

For i = 135 To 11 Step -1
Nom = .Cells(i, 3) & " " & Cells(i, 4).Value
If Nom = Range("$M$6") Then Range(Cells(l, 3), Cells(l, 4)).Interior.Pattern = xlNone
End If
Next i

j'ai le message d'erreur : excel erreur 1004 erreur définie par l'application ou par l'objet.
la ligne
If Nom = Range("$M$6") Then Range(Cells(l, 3), Cells(l, 4)).Interior.Pattern = xlNone
se colorie en jaune au niveau de : Range(Cells(l, 3), Cells(l, 4)).Interior.Pattern = xlNone

Merci pour votre aide.
 

Paf

XLDnaute Barbatruc
Bonjour,

Tel qu'il est écrit, ce code devrait renvoyer plusieurs erreurs:
.Cells(i, 3) => le point "rattache" à un "With Quelque chose" qui ne figure pas dans le code
Range(Cells(l, 3), Cells(l, 4)) => utilisation de la variable l (et pas i) non déclarée et non initialisée
Structure du test If => tel qu'il est écrit il ne faut pas de End If

A+
 

tamatave33

XLDnaute Occasionnel
Bonjour Paf,

Merci pour ta réponse.
Effectivement j'ai fait un copier/coller d'un autre code sans faire attention que ce n'était pas la bonne variable.
Le With était plus haut, je ne l'ai pas recopié dans mon post.
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…