rimbaut
Messages postés61Date d'inscriptionjeudi 19 mai 2005StatutMembreDernière intervention 1 juin 2014
-
24 juil. 2008 à 08:56
rimbaut
Messages postés61Date d'inscriptionjeudi 19 mai 2005StatutMembreDernière intervention 1 juin 2014
-
26 juil. 2008 à 14:50
Bonjour,
Je voudrais créer une macro qui me permette de supprimer le contour et la couleur des cellules.
est ce quelqu'un peut il m'aider en la matière ? Je l'en remercie vivement
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 24 juil. 2008 à 11:36
Salut,
De rien, est ce que cela veut dire que ton problème est résolu???
Si tu estimes que ton problème est résolu, penses à appuyer sur réponse acceptée sur le OU les posts qui t'on aider à avancer.
@+: Ju£i€n Pensez: Réponse acceptée
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 24 juil. 2008 à 09:01
Salut,
Cells.Select
With Selection
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
.Interior.ColorIndex = xlNone
End With , ----
[code.aspx?ID=41455 By Renfield]
Lorsque tu ne sais pas faire quelque chose sous Excel utilises l'enregistreur de macro. il te règlera bien des problèmes. (c'est d'ailleurs comme cela que j'ai pu te proposer ce code). Bon il met parfois trop de code, mais il a le merite de te mettre sur le bon chemin
Molenn
Messages postés797Date d'inscriptionmardi 7 juin 2005StatutMembreDernière intervention23 février 20117 24 juil. 2008 à 10:04
S'il s'agit de supprimer le contour et la couleur de la cellule, tu peux avoir plus court. Attention, ça dépend de tes besoins, si tu as besoin de garder une police de caractère par ex., il faut prendre le code de jrivet, mais si tu veux en fait supprimer tout format/mise en forme de ta cellule, tu peux utiliser le code suivant :
rimbaut
Messages postés61Date d'inscriptionjeudi 19 mai 2005StatutMembreDernière intervention 1 juin 2014 26 juil. 2008 à 14:50
Bonjour,
Si le code fonctionne bien et c'est bien ce que je recherche. je voudrais l'introduire au sein d'une boucle do loop afin de supprimer les cellules formatées mais qui ne sont contiguës.
Seulement je ne sais pas quelle condition mettre dans la boucle do while :
Ex :
Do while sheets ("Feuil1".cells(y, 1)????????????????? et après je ne sais pas quelle condition.
Quelqu'un peut il venir à mon secours ? Je l'en remercie d'avance