OVH Cloud OVH Cloud

petite kestion en VBA

13 réponses
Avatar
kafel
hello, voila j'y connais vraiment pas grand chose en VBA=20
alors si vous pouvez me donner un petit coup de pouce,=20
vous me ferez gagner bcp de temps, alors voila mon pb :

Je travail sur un tableau de chiffre,
j'ai chang=E9 la couleur du fond de certaines cellules=20
lorsqu'elles r=E9pondent aux conditinos ke g fix=E9s...bon,=20
ca ca marche pas de soucis !

mais maintenant, je voudrais ajouter une macro excel qui=20
regarde la couleur de fond de chacune de mes cellule
(blanc ou pas )et ki remplace la valeure de la cellule=20
par une cellule vide ssi le fond est blanc !

ca a l'air plutot simple mais ca fait deja plusieurs=20
jours ke je cherche, sans r=E9sultat ou preske, j'ai qd mem=20
trouv=E9 une fonction qui permet de tester la couleur de=20
fon d'une cellule excel c'est :

ActiveCell.Interior.ColorIndex =3D 0 (je suppose ke 0 =3D=20
blanc ???)

merci a tous ceux ki prendront le temps de m'aider et=20
tout ca pr pas un rond c cooool thx ! vive l'info !

10 réponses

1 2
Avatar
Bernard Cordier
"kafel" a écrit dans le message de news:
0ac601c4a0b2$093d6d60$
hello, voila j'y connais vraiment pas grand chose en VBA
alors si vous pouvez me donner un petit coup de pouce,
vous me ferez gagner bcp de temps, alors voila mon pb :

Je travail sur un tableau de chiffre,
j'ai changé la couleur du fond de certaines cellules
lorsqu'elles répondent aux conditinos ke g fixés...bon,
ca ca marche pas de soucis !

pipi. Et en français, ça donne quoi ?

Coco
Avatar
Joel
Bonsoir !

Perdu !
ColorIndex= 0 c'est la couleur automatique (en général le noir)
ColorIndex=1 = Noir
ColorIndex=2 = Blanc

Bon courage...

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"kafel" a écrit dans le message de
news:0ac601c4a0b2$093d6d60$
hello, voila j'y connais vraiment pas grand chose en VBA
alors si vous pouvez me donner un petit coup de pouce,
vous me ferez gagner bcp de temps, alors voila mon pb :

Je travail sur un tableau de chiffre,
j'ai changé la couleur du fond de certaines cellules
lorsqu'elles répondent aux conditinos ke g fixés...bon,
ca ca marche pas de soucis !

mais maintenant, je voudrais ajouter une macro excel qui
regarde la couleur de fond de chacune de mes cellule
(blanc ou pas )et ki remplace la valeure de la cellule
par une cellule vide ssi le fond est blanc !

ca a l'air plutot simple mais ca fait deja plusieurs
jours ke je cherche, sans résultat ou preske, j'ai qd mem
trouvé une fonction qui permet de tester la couleur de
fon d'une cellule excel c'est :

ActiveCell.Interior.ColorIndex = 0 (je suppose ke 0 blanc ???)

merci a tous ceux ki prendront le temps de m'aider et
tout ca pr pas un rond c cooool thx ! vive l'info !
Avatar
EMiLe
Je crois que tout simplement

If ActiveCell.Interior.ColorIndex = xlNone Then ActiveCell.Formula = ""

enfin, xlNone veut dire qu'il n'y a pas de couleur...

Voilà voilà

Dis-nous si ça marche

EMiLe



Enfin, je crois non??


hello, voila j'y connais vraiment pas grand chose en VBA
alors si vous pouvez me donner un petit coup de pouce,
vous me ferez gagner bcp de temps, alors voila mon pb :

Je travail sur un tableau de chiffre,
j'ai changé la couleur du fond de certaines cellules
lorsqu'elles répondent aux conditinos ke g fixés...bon,
ca ca marche pas de soucis !

mais maintenant, je voudrais ajouter une macro excel qui
regarde la couleur de fond de chacune de mes cellule
(blanc ou pas )et ki remplace la valeure de la cellule
par une cellule vide ssi le fond est blanc !

ca a l'air plutot simple mais ca fait deja plusieurs
jours ke je cherche, sans résultat ou preske, j'ai qd mem
trouvé une fonction qui permet de tester la couleur de
fon d'une cellule excel c'est :

ActiveCell.Interior.ColorIndex = 0 (je suppose ke 0 =
blanc ???)

merci a tous ceux ki prendront le temps de m'aider et
tout ca pr pas un rond c cooool thx ! vive l'info !



Avatar
Ricky
Bonjour *kafel*
| Je travail sur un tableau de chiffre,
| j'ai changé la couleur du fond de certaines cellules
| lorsqu'elles répondent aux conditinos ke g fixés...bon,
| ca ca marche pas de soucis !

Pourquoi ne pas raisonner autrement.
Si la couleur répond à une condition, pourquoi ne pas utiliser cette même condition pour la macro ?

--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faqword.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net
Avatar
kafel
ben ca m'a vraiment l'air pas mal, qd j'utilise ta
fonctionsur une cellule, ca marche ! trop fort !

Mais il fo ke je fasse une boucle, pr ke la macro
parcoure toutes les cellules de mon tableau.parske si je
selectionne plusieurs cellules ben la macro s'arrete des
que le programme rencontre une cellule avec un fond blc

voila ma fonction :

Sub ConditionCouleur()
If ActiveCell.Interior.ColorIndex = xlNone Then
ActiveCell.Formula = ""
End If
End Sub

dc je v galere encore un peu...

mais merci bcp pr ton aide tu m'a fait faire un grand
pas !


-----Message d'origine-----
Je crois que tout simplement

If ActiveCell.Interior.ColorIndex = xlNone Then
ActiveCell.Formula = ""


enfin, xlNone veut dire qu'il n'y a pas de couleur...

Voilà voilà

Dis-nous si ça marche

EMiLe



Enfin, je crois non??


hello, voila j'y connais vraiment pas grand chose en
VBA


alors si vous pouvez me donner un petit coup de pouce,
vous me ferez gagner bcp de temps, alors voila mon pb :

Je travail sur un tableau de chiffre,
j'ai changé la couleur du fond de certaines cellules
lorsqu'elles répondent aux conditinos ke g
fixés...bon,


ca ca marche pas de soucis !

mais maintenant, je voudrais ajouter une macro excel
qui


regarde la couleur de fond de chacune de mes cellule
(blanc ou pas )et ki remplace la valeure de la cellule
par une cellule vide ssi le fond est blanc !

ca a l'air plutot simple mais ca fait deja plusieurs
jours ke je cherche, sans résultat ou preske, j'ai qd
mem


trouvé une fonction qui permet de tester la couleur de
fon d'une cellule excel c'est :

ActiveCell.Interior.ColorIndex = 0 (je suppose ke 0 =
blanc ???)

merci a tous ceux ki prendront le temps de m'aider et
tout ca pr pas un rond c cooool thx ! vive l'info !

.





Avatar
Jacquouille
Bonjour
Tu peux essayer ceci pour ta boucle. Excuse l'orthographe, mais j en'y
connais rien en Grand Breton

Fort itch c in ranch("A1:D15")
If c.Interior.ColorIndex = xlNone Then
[c] = ""
End If
Nexste
End sub

--
Bien amicalmement,
Vivement conseillé >> http://www.excelabo.net
Jacquouille.

"kafel" a écrit dans le message de
news:013201c4a0c0$7d98d6f0$
ben ca m'a vraiment l'air pas mal, qd j'utilise ta
fonctionsur une cellule, ca marche ! trop fort !

Mais il fo ke je fasse une boucle, pr ke la macro
parcoure toutes les cellules de mon tableau.parske si je
selectionne plusieurs cellules ben la macro s'arrete des
que le programme rencontre une cellule avec un fond blc

voila ma fonction :

Sub ConditionCouleur()
If ActiveCell.Interior.ColorIndex = xlNone Then
ActiveCell.Formula = ""
End If
End Sub

dc je v galere encore un peu...

mais merci bcp pr ton aide tu m'a fait faire un grand
pas !


-----Message d'origine-----
Je crois que tout simplement

If ActiveCell.Interior.ColorIndex = xlNone Then
ActiveCell.Formula = ""


enfin, xlNone veut dire qu'il n'y a pas de couleur...

Voilà voilà

Dis-nous si ça marche

EMiLe



Enfin, je crois non??


hello, voila j'y connais vraiment pas grand chose en
VBA


alors si vous pouvez me donner un petit coup de pouce,
vous me ferez gagner bcp de temps, alors voila mon pb :

Je travail sur un tableau de chiffre,
j'ai changé la couleur du fond de certaines cellules
lorsqu'elles répondent aux conditinos ke g
fixés...bon,


ca ca marche pas de soucis !

mais maintenant, je voudrais ajouter une macro excel
qui


regarde la couleur de fond de chacune de mes cellule
(blanc ou pas )et ki remplace la valeure de la cellule
par une cellule vide ssi le fond est blanc !

ca a l'air plutot simple mais ca fait deja plusieurs
jours ke je cherche, sans résultat ou preske, j'ai qd
mem


trouvé une fonction qui permet de tester la couleur de
fon d'une cellule excel c'est :

ActiveCell.Interior.ColorIndex = 0 (je suppose ke 0 >> blanc ???)

merci a tous ceux ki prendront le temps de m'aider et
tout ca pr pas un rond c cooool thx ! vive l'info !

.





Avatar
Clément Marcotte
bcp, pb, ke, g, ki, ke, preske, qd, mem, ki, pr, c, thx


MAUDITE PARESSE.

Ci sa fè pelusieurres jourres qu tu chairches, sela norè pas aitai
boquou pelus long d'aiquerire quomme du monde

Avatar
Clément Marcotte
MAUDITE PARESSE

"kafel" a écrit dans le message
de news:013201c4a0c0$7d98d6f0$
ben ca m'a vraiment l'air pas mal, qd j'utilise ta
fonctionsur une cellule, ca marche ! trop fort !

Mais il fo ke je fasse une boucle, pr ke la macro
parcoure toutes les cellules de mon tableau.parske si je
selectionne plusieurs cellules ben la macro s'arrete des
que le programme rencontre une cellule avec un fond blc

voila ma fonction :

Sub ConditionCouleur()
If ActiveCell.Interior.ColorIndex = xlNone Then
ActiveCell.Formula = ""
End If
End Sub

dc je v galere encore un peu...

mais merci bcp pr ton aide tu m'a fait faire un grand
pas !


-----Message d'origine-----
Je crois que tout simplement

If ActiveCell.Interior.ColorIndex = xlNone Then
ActiveCell.Formula = ""


enfin, xlNone veut dire qu'il n'y a pas de couleur...

Voilà voilà

Dis-nous si ça marche

EMiLe



Enfin, je crois non??


hello, voila j'y connais vraiment pas grand chose en
VBA


alors si vous pouvez me donner un petit coup de pouce,
vous me ferez gagner bcp de temps, alors voila mon pb :

Je travail sur un tableau de chiffre,
j'ai changé la couleur du fond de certaines cellules
lorsqu'elles répondent aux conditinos ke g
fixés...bon,


ca ca marche pas de soucis !

mais maintenant, je voudrais ajouter une macro excel
qui


regarde la couleur de fond de chacune de mes cellule
(blanc ou pas )et ki remplace la valeure de la cellule
par une cellule vide ssi le fond est blanc !

ca a l'air plutot simple mais ca fait deja plusieurs
jours ke je cherche, sans résultat ou preske, j'ai qd
mem


trouvé une fonction qui permet de tester la couleur de
fon d'une cellule excel c'est :

ActiveCell.Interior.ColorIndex = 0 (je suppose ke 0 >> blanc ???)

merci a tous ceux ki prendront le temps de m'aider et
tout ca pr pas un rond c cooool thx ! vive l'info !

.





Avatar
EMiLe
Ben voilà,
Tu sélectionnes et c'est parti!!

Sub ConditionCouleur()
Dim cel As Range
For Each cel In Selection

If cel.Interior.ColorIndex = xlNone Then
cel.Formula = ""
End If

Next
End Sub



MAUDITE PARESSE

"kafel" a écrit dans le message
de news:013201c4a0c0$7d98d6f0$
ben ca m'a vraiment l'air pas mal, qd j'utilise ta
fonctionsur une cellule, ca marche ! trop fort !

Mais il fo ke je fasse une boucle, pr ke la macro
parcoure toutes les cellules de mon tableau.parske si je
selectionne plusieurs cellules ben la macro s'arrete des
que le programme rencontre une cellule avec un fond blc

voila ma fonction :

Sub ConditionCouleur()
If ActiveCell.Interior.ColorIndex = xlNone Then
ActiveCell.Formula = ""
End If
End Sub

dc je v galere encore un peu...

mais merci bcp pr ton aide tu m'a fait faire un grand
pas !



-----Message d'origine-----
Je crois que tout simplement

If ActiveCell.Interior.ColorIndex = xlNone Then


ActiveCell.Formula = ""

enfin, xlNone veut dire qu'il n'y a pas de couleur...

Voilà voilà

Dis-nous si ça marche

EMiLe



Enfin, je crois non??



hello, voila j'y connais vraiment pas grand chose en



VBA

alors si vous pouvez me donner un petit coup de pouce,
vous me ferez gagner bcp de temps, alors voila mon pb :

Je travail sur un tableau de chiffre,
j'ai changé la couleur du fond de certaines cellules
lorsqu'elles répondent aux conditinos ke g



fixés...bon,

ca ca marche pas de soucis !

mais maintenant, je voudrais ajouter une macro excel



qui

regarde la couleur de fond de chacune de mes cellule
(blanc ou pas )et ki remplace la valeure de la cellule
par une cellule vide ssi le fond est blanc !

ca a l'air plutot simple mais ca fait deja plusieurs
jours ke je cherche, sans résultat ou preske, j'ai qd



mem

trouvé une fonction qui permet de tester la couleur de
fon d'une cellule excel c'est :

ActiveCell.Interior.ColorIndex = 0 (je suppose ke 0 >>>blanc ???)

merci a tous ceux ki prendront le temps de m'aider et
tout ca pr pas un rond c cooool thx ! vive l'info !



.








Avatar
kafel
Merci bcp, t'as cartonné !
ca marche nickel!

Maintenant je vais pouvoir épater mes collégues de bureau
avec ta macro de compète !

allez a+
ciao

-----Message d'origine-----
Ben voilà,
Tu sélectionnes et c'est parti!!

Sub ConditionCouleur()
Dim cel As Range
For Each cel In Selection

If cel.Interior.ColorIndex = xlNone Then
cel.Formula = ""
End If

Next
End Sub



MAUDITE PARESSE

"kafel" a écrit
dans le message


de news:013201c4a0c0$7d98d6f0$
ben ca m'a vraiment l'air pas mal, qd j'utilise ta
fonctionsur une cellule, ca marche ! trop fort !

Mais il fo ke je fasse une boucle, pr ke la macro
parcoure toutes les cellules de mon tableau.parske si
je


selectionne plusieurs cellules ben la macro s'arrete
des


que le programme rencontre une cellule avec un fond blc

voila ma fonction :

Sub ConditionCouleur()
If ActiveCell.Interior.ColorIndex = xlNone Then
ActiveCell.Formula = ""
End If
End Sub

dc je v galere encore un peu...

mais merci bcp pr ton aide tu m'a fait faire un grand
pas !



-----Message d'origine-----
Je crois que tout simplement

If ActiveCell.Interior.ColorIndex = xlNone Then


ActiveCell.Formula = ""

enfin, xlNone veut dire qu'il n'y a pas de couleur...

Voilà voilà

Dis-nous si ça marche

EMiLe



Enfin, je crois non??



hello, voila j'y connais vraiment pas grand chose en



VBA

alors si vous pouvez me donner un petit coup de pouce,
vous me ferez gagner bcp de temps, alors voila mon
pb :





Je travail sur un tableau de chiffre,
j'ai changé la couleur du fond de certaines cellules
lorsqu'elles répondent aux conditinos ke g



fixés...bon,

ca ca marche pas de soucis !

mais maintenant, je voudrais ajouter une macro excel



qui

regarde la couleur de fond de chacune de mes cellule
(blanc ou pas )et ki remplace la valeure de la cellule
par une cellule vide ssi le fond est blanc !

ca a l'air plutot simple mais ca fait deja plusieurs
jours ke je cherche, sans résultat ou preske, j'ai qd



mem

trouvé une fonction qui permet de tester la couleur de
fon d'une cellule excel c'est :

ActiveCell.Interior.ColorIndex = 0 (je suppose ke 0 =
blanc ???)

merci a tous ceux ki prendront le temps de m'aider et
tout ca pr pas un rond c cooool thx ! vive l'info !



.




.







1 2