Sujet Précédent Sujet Suivant

[VBA EXCEL] aide coloration cellules

Fermé
jeremac - 21 mai 2008 à 16:58
Ivan-hoe Messages postés 433 Date d'inscription dimanche 17 février 2008 Statut Membre Dernière intervention 17 octobre 2008 - 21 mai 2008 à 22:06
Bonjour,

Je voudrais colorer plusieurs cellules en même à partir d'une macro
mon code :
Range(Cells & [LineNumber, 15] & ":" & Cells & [LineNumber, 26]).Select
For Each Cell In Selection
Cells.Interior.color = QBColor(8)
Next
Et j'ai toujours la même erreur "Type mismatch"

Merci de votre aide

2 réponses

Réponse 1 / 2
Ivan-hoe Messages postés 433 Date d'inscription dimanche 17 février 2008 Statut Membre Dernière intervention 17 octobre 2008 309
21 mai 2008 à 18:08
Salut Jeremac,
est-ce vraiment utile de passer par une boucle For each ... next ? 

Range(cells(LineNumber, 15), cells(LineNumber, 26)).Select
Selection.Interior.Color = QBColor(8)
0
jeremac
21 mai 2008 à 19:24
en effet inutile
merci bcp ça marche nikel !!
0
jeremac
21 mai 2008 à 19:54
Une dernière question , j'ai plusieurs feuilles, je voudrais que cela se repercute partout , j'ai essayé

Worksheet.Range(Cells(LineNumber, 24), Cells(LineNumber, 35)).Select
Selection.Interior.Color = QBColor(2)

ça me dit "Object required"

merci de ton aide
0
Réponse 2 / 2
Ivan-hoe Messages postés 433 Date d'inscription dimanche 17 février 2008 Statut Membre Dernière intervention 17 octobre 2008 309
21 mai 2008 à 22:06
Du coup, tu peux ici utiliser le For each ... next auquel tu tenais tant ! 
For Each Worksheet In Worksheets
Worksheet.Select
Range(cells(LineNumber, 15), cells(LineNumber, 26)).Interior.Color = QBColor(8)
Next Worksheet

Ca répète la mise en forme sur TOUTES les feuilles de calcul du classeur actif.
A suivre...
0