Macro excel bug
tigrou
-
tigrou -
tigrou -
Bonjour,
J'ai une erreur 1004 avec "method 'Range' of object '_Global' failed" qui pointe sur mon premier IF, ce code est cence deplacer 2 colonne de charactere en 'y' ajoutant c pour une et 'j' pour l autre, et ensuite les conparer avec une autre et changer la couleur de la cellule. En gros une boucle et plusieur IF...
For a = 2 To 550
If Range("AD" & i).Value <> "" Then
Range("AF" & i).Value = c & Range("AD" & i).Value
Range("AG" & i).Value = j & Range("AE" & i).Value
If Range("A" & a).Value = Range("U" & a).Value Then
If InStr(Range("Y" & a).Value, Range("AF" & a).Value) Then
Range("Y" & i).Interior.ColorIndex = 4
End If
If InStr(Range("Y" & a).Value, Range("AG" & a).Value) Then
Range("Y" & i).Interior.ColorIndex = 4
Else
Range("Y" & i).Interior.ColorIndex = 3
End If
End If
End If
Next a
Merci d avance
J'ai une erreur 1004 avec "method 'Range' of object '_Global' failed" qui pointe sur mon premier IF, ce code est cence deplacer 2 colonne de charactere en 'y' ajoutant c pour une et 'j' pour l autre, et ensuite les conparer avec une autre et changer la couleur de la cellule. En gros une boucle et plusieur IF...
For a = 2 To 550
If Range("AD" & i).Value <> "" Then
Range("AF" & i).Value = c & Range("AD" & i).Value
Range("AG" & i).Value = j & Range("AE" & i).Value
If Range("A" & a).Value = Range("U" & a).Value Then
If InStr(Range("Y" & a).Value, Range("AF" & a).Value) Then
Range("Y" & i).Interior.ColorIndex = 4
End If
If InStr(Range("Y" & a).Value, Range("AG" & a).Value) Then
Range("Y" & i).Interior.ColorIndex = 4
Else
Range("Y" & i).Interior.ColorIndex = 3
End If
End If
End If
Next a
Merci d avance
A voir également:
- Macro excel bug
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
bonne journee a tous