bonjour,
je souhaiterai en VBA dans une plage de cellules faire apparaître un message
d'erreur si
une cellule n'est pas remplie ou si elle n'est pas colorée par un motif de
couleur (rouge)
je ne sais pas faire!
j'ai fait une boucle for each
mais je ne sais pas écrire les conditions
merci d'avance
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
Jacky
Bonjour JL
Ceci peut-être '------- For Each c In Range("plage") If c = "" Or c.Interior.ColorIndex <> 3 Then MsgBox c.Address(0, 0) & " Cellule vide ou pas de couleur rouge" Next '-------- Salutations JJ
"jl Guitard" a écrit dans le message de news:e$
bonjour, je souhaiterai en VBA dans une plage de cellules faire apparaître un message
d'erreur si une cellule n'est pas remplie ou si elle n'est pas colorée par un motif de couleur (rouge) je ne sais pas faire! j'ai fait une boucle for each mais je ne sais pas écrire les conditions merci d'avance
Bonjour JL
Ceci peut-être
'-------
For Each c In Range("plage")
If c = "" Or c.Interior.ColorIndex <> 3 Then MsgBox c.Address(0, 0) & "
Cellule vide ou pas de couleur rouge"
Next
'--------
Salutations
JJ
"jl Guitard" <jl.guitard@wanadoo.fr> a écrit dans le message de
news:e$RhZkIzEHA.2600@TK2MSFTNGP09.phx.gbl...
bonjour,
je souhaiterai en VBA dans une plage de cellules faire apparaître un
message
d'erreur si
une cellule n'est pas remplie ou si elle n'est pas colorée par un motif de
couleur (rouge)
je ne sais pas faire!
j'ai fait une boucle for each
mais je ne sais pas écrire les conditions
merci d'avance
Ceci peut-être '------- For Each c In Range("plage") If c = "" Or c.Interior.ColorIndex <> 3 Then MsgBox c.Address(0, 0) & " Cellule vide ou pas de couleur rouge" Next '-------- Salutations JJ
"jl Guitard" a écrit dans le message de news:e$
bonjour, je souhaiterai en VBA dans une plage de cellules faire apparaître un message
d'erreur si une cellule n'est pas remplie ou si elle n'est pas colorée par un motif de couleur (rouge) je ne sais pas faire! j'ai fait une boucle for each mais je ne sais pas écrire les conditions merci d'avance
jl Guitard
bonjour jacky, ca ne marche pas mais j'ai trouvé une solution For Each cell In plage If cell.Interior.PatternColorIndex = 5 Or cell.Interior.PatternColorIndex = 3 Or cell <> "" Then A = 0 Else MsgBox "Les cellules sélectionnées doivent être contiguës" A = 1 Exit Sub End If Next
Bonne soirée "Jacky" a écrit dans le message de news:
Bonjour JL
Ceci peut-être '------- For Each c In Range("plage") If c = "" Or c.Interior.ColorIndex <> 3 Then MsgBox c.Address(0, 0) & " Cellule vide ou pas de couleur rouge" Next '-------- Salutations JJ
"jl Guitard" a écrit dans le message de news:e$
bonjour, je souhaiterai en VBA dans une plage de cellules faire apparaître un message
d'erreur si une cellule n'est pas remplie ou si elle n'est pas colorée par un motif de couleur (rouge) je ne sais pas faire! j'ai fait une boucle for each mais je ne sais pas écrire les conditions merci d'avance
bonjour jacky,
ca ne marche pas mais j'ai trouvé une solution
For Each cell In plage
If cell.Interior.PatternColorIndex = 5 Or
cell.Interior.PatternColorIndex = 3 Or cell <> "" Then
A = 0
Else
MsgBox "Les cellules sélectionnées doivent être
contiguës"
A = 1
Exit Sub
End If
Next
Bonne soirée
"Jacky" <delaenlevezjusquiciJacky.jaeg@w...doo.fr> a écrit dans le message
de news: O5J1IMJzEHA.2876@TK2MSFTNGP12.phx.gbl...
Bonjour JL
Ceci peut-être
'-------
For Each c In Range("plage")
If c = "" Or c.Interior.ColorIndex <> 3 Then MsgBox c.Address(0, 0) & "
Cellule vide ou pas de couleur rouge"
Next
'--------
Salutations
JJ
"jl Guitard" <jl.guitard@wanadoo.fr> a écrit dans le message de
news:e$RhZkIzEHA.2600@TK2MSFTNGP09.phx.gbl...
bonjour,
je souhaiterai en VBA dans une plage de cellules faire apparaître un
message
d'erreur si
une cellule n'est pas remplie ou si elle n'est pas colorée par un motif
de
couleur (rouge)
je ne sais pas faire!
j'ai fait une boucle for each
mais je ne sais pas écrire les conditions
merci d'avance
bonjour jacky, ca ne marche pas mais j'ai trouvé une solution For Each cell In plage If cell.Interior.PatternColorIndex = 5 Or cell.Interior.PatternColorIndex = 3 Or cell <> "" Then A = 0 Else MsgBox "Les cellules sélectionnées doivent être contiguës" A = 1 Exit Sub End If Next
Bonne soirée "Jacky" a écrit dans le message de news:
Bonjour JL
Ceci peut-être '------- For Each c In Range("plage") If c = "" Or c.Interior.ColorIndex <> 3 Then MsgBox c.Address(0, 0) & " Cellule vide ou pas de couleur rouge" Next '-------- Salutations JJ
"jl Guitard" a écrit dans le message de news:e$
bonjour, je souhaiterai en VBA dans une plage de cellules faire apparaître un message
d'erreur si une cellule n'est pas remplie ou si elle n'est pas colorée par un motif de couleur (rouge) je ne sais pas faire! j'ai fait une boucle for each mais je ne sais pas écrire les conditions merci d'avance
Jacky
Re.. L'essentiel étant que tu arrives à une solution
Bonne soirée à toi aussi JJ
"jl Guitard" a écrit dans le message de news:%
bonjour jacky, ca ne marche pas mais j'ai trouvé une solution For Each cell In plage If cell.Interior.PatternColorIndex = 5 Or cell.Interior.PatternColorIndex = 3 Or cell <> "" Then A = 0 Else MsgBox "Les cellules sélectionnées doivent être contiguës" A = 1 Exit Sub End If Next
Bonne soirée "Jacky" a écrit dans le message de news:
Bonjour JL
Ceci peut-être '------- For Each c In Range("plage") If c = "" Or c.Interior.ColorIndex <> 3 Then MsgBox c.Address(0, 0) & " Cellule vide ou pas de couleur rouge" Next '-------- Salutations JJ
"jl Guitard" a écrit dans le message de news:e$
bonjour, je souhaiterai en VBA dans une plage de cellules faire apparaître un message
d'erreur si une cellule n'est pas remplie ou si elle n'est pas colorée par un motif de couleur (rouge) je ne sais pas faire! j'ai fait une boucle for each mais je ne sais pas écrire les conditions merci d'avance
Re..
L'essentiel étant que tu arrives à une solution
Bonne soirée à toi aussi
JJ
"jl Guitard" <jl.guitard@wanadoo.fr> a écrit dans le message de
news:%23gsadoLzEHA.2540@TK2MSFTNGP09.phx.gbl...
bonjour jacky,
ca ne marche pas mais j'ai trouvé une solution
For Each cell In plage
If cell.Interior.PatternColorIndex = 5 Or
cell.Interior.PatternColorIndex = 3 Or cell <> "" Then
A = 0
Else
MsgBox "Les cellules sélectionnées doivent être
contiguës"
A = 1
Exit Sub
End If
Next
Bonne soirée
"Jacky" <delaenlevezjusquiciJacky.jaeg@w...doo.fr> a écrit dans le message
de news: O5J1IMJzEHA.2876@TK2MSFTNGP12.phx.gbl...
Bonjour JL
Ceci peut-être
'-------
For Each c In Range("plage")
If c = "" Or c.Interior.ColorIndex <> 3 Then MsgBox c.Address(0, 0) & "
Cellule vide ou pas de couleur rouge"
Next
'--------
Salutations
JJ
"jl Guitard" <jl.guitard@wanadoo.fr> a écrit dans le message de
news:e$RhZkIzEHA.2600@TK2MSFTNGP09.phx.gbl...
bonjour,
je souhaiterai en VBA dans une plage de cellules faire apparaître un
message
d'erreur si
une cellule n'est pas remplie ou si elle n'est pas colorée par un motif
de
couleur (rouge)
je ne sais pas faire!
j'ai fait une boucle for each
mais je ne sais pas écrire les conditions
merci d'avance
Re.. L'essentiel étant que tu arrives à une solution
Bonne soirée à toi aussi JJ
"jl Guitard" a écrit dans le message de news:%
bonjour jacky, ca ne marche pas mais j'ai trouvé une solution For Each cell In plage If cell.Interior.PatternColorIndex = 5 Or cell.Interior.PatternColorIndex = 3 Or cell <> "" Then A = 0 Else MsgBox "Les cellules sélectionnées doivent être contiguës" A = 1 Exit Sub End If Next
Bonne soirée "Jacky" a écrit dans le message de news:
Bonjour JL
Ceci peut-être '------- For Each c In Range("plage") If c = "" Or c.Interior.ColorIndex <> 3 Then MsgBox c.Address(0, 0) & " Cellule vide ou pas de couleur rouge" Next '-------- Salutations JJ
"jl Guitard" a écrit dans le message de news:e$
bonjour, je souhaiterai en VBA dans une plage de cellules faire apparaître un message
d'erreur si une cellule n'est pas remplie ou si elle n'est pas colorée par un motif de couleur (rouge) je ne sais pas faire! j'ai fait une boucle for each mais je ne sais pas écrire les conditions merci d'avance
