Ecrire une croix différente alternativement dans une plage Excel
1 réponse
imej-clavier
Bonjour,
Quelqu'un peut-il m'aider à résoudre mon problème ?
Je souhaiterais écrire alternativement une croix d'une couleur différente
dans une
plage.
J'ai essayé :
Set MaPlage = Application.Intersect(Range("AjoutX"), Target)
If Not MaPlage Is Nothing Then
MaPlage.Value = "X"
With Selection.font
.FontStyle = "Gras"
.ColorIndex = 3
.Size = 22
End With
End If
Comment dois-je faire ensuite pour pouvoir écrire une croix d'une autre
couleur ?
D'avance merci,
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
Claude Trouet
bonsoir, 1) dans un module standard, déclarer en Public la variable bascule Public bascule as Boolean
2)modifier la procédure comme suit
Set MaPlage = Application.Intersect(Range("AjoutX"), Target) If Not MaPlage Is Nothing Then MaPlage.Value = "X" With Selection.Font .FontStyle = "Gras" If bascule = True Then .ColorIndex = 3 Else .ColorIndex = 5 End If .Size = 22 bascule = Not bascule End With End If
Est-ce OK ? Claude
"imej-clavier" a écrit dans le message de news: %
Bonjour, Quelqu'un peut-il m'aider à résoudre mon problème ? Je souhaiterais écrire alternativement une croix d'une couleur différente dans une plage. J'ai essayé : Set MaPlage = Application.Intersect(Range("AjoutX"), Target) If Not MaPlage Is Nothing Then MaPlage.Value = "X" With Selection.font .FontStyle = "Gras" .ColorIndex = 3 .Size = 22 End With End If Comment dois-je faire ensuite pour pouvoir écrire une croix d'une autre couleur ? D'avance merci,
Jean-michel
bonsoir,
1) dans un module standard, déclarer en Public la variable bascule
Public bascule as Boolean
2)modifier la procédure comme suit
Set MaPlage = Application.Intersect(Range("AjoutX"), Target)
If Not MaPlage Is Nothing Then
MaPlage.Value = "X"
With Selection.Font
.FontStyle = "Gras"
If bascule = True Then
.ColorIndex = 3
Else
.ColorIndex = 5
End If
.Size = 22
bascule = Not bascule
End With
End If
Est-ce OK ?
Claude
"imej-clavier" <imej-clavier@wanadoo.fr> a écrit dans le message de news:
%23DMel0PxEHA.1300@TK2MSFTNGP14.phx.gbl...
Bonjour,
Quelqu'un peut-il m'aider à résoudre mon problème ?
Je souhaiterais écrire alternativement une croix d'une couleur différente
dans une
plage.
J'ai essayé :
Set MaPlage = Application.Intersect(Range("AjoutX"), Target)
If Not MaPlage Is Nothing Then
MaPlage.Value = "X"
With Selection.font
.FontStyle = "Gras"
.ColorIndex = 3
.Size = 22
End With
End If
Comment dois-je faire ensuite pour pouvoir écrire une croix d'une autre
couleur ?
D'avance merci,
bonsoir, 1) dans un module standard, déclarer en Public la variable bascule Public bascule as Boolean
2)modifier la procédure comme suit
Set MaPlage = Application.Intersect(Range("AjoutX"), Target) If Not MaPlage Is Nothing Then MaPlage.Value = "X" With Selection.Font .FontStyle = "Gras" If bascule = True Then .ColorIndex = 3 Else .ColorIndex = 5 End If .Size = 22 bascule = Not bascule End With End If
Est-ce OK ? Claude
"imej-clavier" a écrit dans le message de news: %
Bonjour, Quelqu'un peut-il m'aider à résoudre mon problème ? Je souhaiterais écrire alternativement une croix d'une couleur différente dans une plage. J'ai essayé : Set MaPlage = Application.Intersect(Range("AjoutX"), Target) If Not MaPlage Is Nothing Then MaPlage.Value = "X" With Selection.font .FontStyle = "Gras" .ColorIndex = 3 .Size = 22 End With End If Comment dois-je faire ensuite pour pouvoir écrire une croix d'une autre couleur ? D'avance merci,