[VBA] PB macro : changement couleur cellule
Dede
-
pou pouille Messages postés 212 Statut Membre -
pou pouille Messages postés 212 Statut Membre -
Bonjour,
j'essaye de réaliser une macro (sur feuille de préférence "Microsoft Excel] Objects") me permettant d'ajouter une ligne puis de changer la couleur d'une case la ligne en fonction de la ligne du dessous.
Mon but final étant qu'appyer sur le bouton rajoute une ligne sur le haut de mon tableau à deux couleur (une ligne sur deux).
Malheureusement, cela ne marche pas et lorsque ça marche pour une ligne, ça ne marche pas pour la suivante...
Pourriez vous m'aidez s'il vous plait ?
Voici ma macro actuelle :
____________________________________
Private Sub Test_Click()
Cells(7, 1).EntireRow.Insert
If Range("D8").Interior.Color = RGB (250, 250, 250) Then
Range("D7").Interior.Color = RGB (0, 0, 0)
Else
Range("D7").Interior.Color = RGB (250, 250, 250)
End If
End Sub
____________________________________
Merci d'avance !
j'essaye de réaliser une macro (sur feuille de préférence "Microsoft Excel] Objects") me permettant d'ajouter une ligne puis de changer la couleur d'une case la ligne en fonction de la ligne du dessous.
Mon but final étant qu'appyer sur le bouton rajoute une ligne sur le haut de mon tableau à deux couleur (une ligne sur deux).
Malheureusement, cela ne marche pas et lorsque ça marche pour une ligne, ça ne marche pas pour la suivante...
Pourriez vous m'aidez s'il vous plait ?
Voici ma macro actuelle :
____________________________________
Private Sub Test_Click()
Cells(7, 1).EntireRow.Insert
If Range("D8").Interior.Color = RGB (250, 250, 250) Then
Range("D7").Interior.Color = RGB (0, 0, 0)
Else
Range("D7").Interior.Color = RGB (250, 250, 250)
End If
End Sub
____________________________________
Merci d'avance !
A voir également:
- [VBA] PB macro : changement couleur cellule
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Excel compter cellule couleur sans vba - Guide
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
3 réponses
bonjour,
j'ai essayer de chercher, voila ce que j'ai j'ai modifier: premièrement je fais le teste, ensuite on change la couleur puis on insère la ligne, ca fonctionne avec l'alternance des couleurs rouge et noir ( 255 et 0) à changer suivant les couleurs souhaitées.
j'ai essayer de chercher, voila ce que j'ai j'ai modifier: premièrement je fais le teste, ensuite on change la couleur puis on insère la ligne, ca fonctionne avec l'alternance des couleurs rouge et noir ( 255 et 0) à changer suivant les couleurs souhaitées.
Sub Test_Click()
If Range("D8").Interior.Color = 255 Then
Range("D7").Interior.Color = 0
Else
Range("D7").Interior.Color = 250
End If
Cells(7, 1).EntireRow.Insert
End Sub
Merci pour votre réponse aussi rapide.
J'ai utilisé votre macro et effectivement ça marche. Mais, malheureusment, ça ne marche qu'avec ces couleurs...
Je peux modifier le noir, mais pas le rouge...
D'autre part, je ne comprends pas le 255 et le 250. Pourquoi sont-il différents ?
Merci aux personnes qui pourront m'apporter leur éclairage (le rouge est un peu trop rouge :D)
J'ai utilisé votre macro et effectivement ça marche. Mais, malheureusment, ça ne marche qu'avec ces couleurs...
Je peux modifier le noir, mais pas le rouge...
D'autre part, je ne comprends pas le 255 et le 250. Pourquoi sont-il différents ?
Merci aux personnes qui pourront m'apporter leur éclairage (le rouge est un peu trop rouge :D)
je ne sais pas non plus pourquoi , mais lorsque que j'affecte le 250 à la couleur de cellule, au test suivant la valeur est de 255, je ne sais pas d'ou cela peut-il provenir, sinon pour les couleur des cellules:5 et 6 peuvent faire bleu et rouge... à regarder de ce coté pour les couleurs : https://silkyroad.developpez.com/VBA/ConversionCodesCouleurs/
