Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel macro coloriant certaines cellules

macro coloriant certaines cellules

6 réponses
Avatar
Benoit
Bonjour,

je recherche une macro qui me mettent toutes les cellules d'un tableau
contenant un "A" en rouge

mais sans pour autant passer par une mise en forme conditionnelle ( car je
vais m'en servir plus tard et je n'ai que 3 choix)

merci pour votre aide
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
Bonjour,

For Each c In [A1:Z1000].SpecialCells(xlCellTypeConstants, 23)
If c = "A" Then c.Interior.ColorIndex = 3
Next c

JB


On 5 mar, 17:27, "Benoit" wrote:
Bonjour,

je recherche une macro qui  me mettent toutes les cellules d'un tableau
contenant un "A" en rouge

mais sans pour autant passer par une mise en forme conditionnelle ( car je
vais m'en servir plus tard et je n'ai que 3 choix)

merci pour votre aide


Avatar
francois.forcet
Salut à toi
Aprés avoir sélectionné ton tableau
Ce bout de code :

For Each c In Selection
If c Like "*A*" Then
c.Interior.ColorIndex = 3
End If
Next

Colorie les cellules de la sélection contenant au moins un "A"

Si tu veux colorier les cellules qui ne contiennent qu'un "A" utilise
ce code :

For Each c In Selection
If c = "A" Then
c.Interior.ColorIndex = 3
End If
Next

Celà devrait convenir
Dis moi !!!!
Avatar
Benoit
bonsoir,

les 2 versions marchent
merci à vous deux
cordialement

a écrit dans le message de news:

Salut à toi
Aprés avoir sélectionné ton tableau
Ce bout de code :

For Each c In Selection
If c Like "*A*" Then
c.Interior.ColorIndex = 3
End If
Next

Colorie les cellules de la sélection contenant au moins un "A"

Si tu veux colorier les cellules qui ne contiennent qu'un "A" utilise
ce code :

For Each c In Selection
If c = "A" Then
c.Interior.ColorIndex = 3
End If
Next

Celà devrait convenir
Dis moi !!!!
Avatar
Benoit
Re-bonsoir,
par contre, je n'arrive pas à trouver l'instruction pour colorier une
cellule vide dans la même situation.

"Benoit" a écrit dans le message de news:
e%
bonsoir,

les 2 versions marchent
merci à vous deux
cordialement

a écrit dans le message de news:

Salut à toi
Aprés avoir sélectionné ton tableau
Ce bout de code :

For Each c In Selection
If c Like "*A*" Then
c.Interior.ColorIndex = 3
End If
Next

Colorie les cellules de la sélection contenant au moins un "A"

Si tu veux colorier les cellules qui ne contiennent qu'un "A" utilise
ce code :

For Each c In Selection
If c = "A" Then
c.Interior.ColorIndex = 3
End If
Next

Celà devrait convenir
Dis moi !!!!



Avatar
francois.forcet
Rebonjours à toi

Pour colorier en rouge les cellules vides d'une sélection :

For Each c In Selection
If c = "" Then
c.Interior.ColorIndex = 3
End If
Next

Avec les 2 conditions (Vide ou contenant "A")

For Each c In Selection
If c = "" Or c = "A" Then
c.Interior.ColorIndex = 3
End If
Next

ou

For Each c In Selection
If c = "" Or c Like "*A*" Then
c.Interior.ColorIndex = 3
End If
Next
Celà fonctionne

Dis moi !!!!
Avatar
Benoit
bonjour,
j'ai testé & tout fonctionne
mille fois merci

a écrit dans le message de news:

Rebonjours à toi

Pour colorier en rouge les cellules vides d'une sélection :

For Each c In Selection
If c = "" Then
c.Interior.ColorIndex = 3
End If
Next

Avec les 2 conditions (Vide ou contenant "A")

For Each c In Selection
If c = "" Or c = "A" Then
c.Interior.ColorIndex = 3
End If
Next

ou

For Each c In Selection
If c = "" Or c Like "*A*" Then
c.Interior.ColorIndex = 3
End If
Next
Celà fonctionne

Dis moi !!!!