[VBA EXCEL] aide coloration cellules

jeremac -  
Ivan-hoe Messages postés 433 Date d'inscription   Statut Membre Dernière intervention   -
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   Statut Membre Dernière intervention   309
 
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
 
en effet inutile
merci bcp ça marche nikel !!
0
jeremac
 
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   Statut Membre Dernière intervention   309
 
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

Discussions similaires

additionner nombres dans cellules avec texte
kawimaki -
kawimaki -

6 réponses