PASCAL84810
XLDnaute Junior
Bonjour,
J’utilise un fichier comprenant sur une feuille Excel des références d'emplacements de stockage dans la colonne A, une référence dans la colonne b, une quantité dans la colonne c. Dans le même emplacement je peux avoir plusieurs références : voir exemple en pièce jointe. ce fichier est mis a jour tout les jours et comprend 8000 lignes. Pour une meilleur lecture, je voudrais colorer un emplacement sur deux sur une, ou idéalement, les trois colonnes : comme dans la pièce jointe.
J'ai essayé de faire ce programme mais je n’arrive pas à paramétrer pour que cela fonctionne.
Je sais utiliser des macros faites par d’autre et modifier les paramètres de colonnes ou cellule pour les adapter à mon cas, mais Je n’ai pas l’habitude et ceci est mon premier essais de programmation.
Sub colorer()
Dim d As Integer,
Sheets("feuil1").Activate
For d = 5 To 40
Cells(d, 1).Select
If Cells(d, 1).Value = Cells(d - 1, 1).Value Then
Cells(d - 1, 1).Interior.ColorIndex = 4
ElseIf Cells (d, 1).Value <> Cells(i - 1, 1).Value Then
Cells(d+1, 1).Interior.ColorIndex = 4
Else
End If
Next
End Sub
merci pour votre aide
cordialement
J’utilise un fichier comprenant sur une feuille Excel des références d'emplacements de stockage dans la colonne A, une référence dans la colonne b, une quantité dans la colonne c. Dans le même emplacement je peux avoir plusieurs références : voir exemple en pièce jointe. ce fichier est mis a jour tout les jours et comprend 8000 lignes. Pour une meilleur lecture, je voudrais colorer un emplacement sur deux sur une, ou idéalement, les trois colonnes : comme dans la pièce jointe.
J'ai essayé de faire ce programme mais je n’arrive pas à paramétrer pour que cela fonctionne.
Je sais utiliser des macros faites par d’autre et modifier les paramètres de colonnes ou cellule pour les adapter à mon cas, mais Je n’ai pas l’habitude et ceci est mon premier essais de programmation.
Sub colorer()
Dim d As Integer,
Sheets("feuil1").Activate
For d = 5 To 40
Cells(d, 1).Select
If Cells(d, 1).Value = Cells(d - 1, 1).Value Then
Cells(d - 1, 1).Interior.ColorIndex = 4
ElseIf Cells (d, 1).Value <> Cells(i - 1, 1).Value Then
Cells(d+1, 1).Interior.ColorIndex = 4
Else
End If
Next
End Sub
merci pour votre aide
cordialement