[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

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
en effet inutile
merci bcp ça marche nikel !!
0
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
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