Discussion :

[SAINT-BERNARD]

codes vba excel

bonsoir,

Je dois trouver une solution pour selectionner toutes les cellules
de deux couleur et malheureusement je planche !!!!


ou alors une autre solution , imprimer seulement les pages avec donnees et laisser les autres
(EX: pages 1 donnees, p2 rien, p3 donnees, le tout peut être variable
du genre , p 2 donnees, p3 rien, p4 donnees)
je ne peut imprimer que de gauche à droite et pas haut en bas
les colonnes sont de différente largeur
merci de votre aides

[Catbull]

Pour tester la couleur d'une cellule, il faut utiliser la propriété ColorIndex.

[SAINT-BERNARD]

bonjour,
oui d'accord mais je cherche le code
pour que le texte pour le faire

la couleur est déjà donnée et je voudrais simplement que toutes les cellules de couleur bleu soit selectionnée
merci de votre réponse

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub SelectionCellulesDeCouleur()
Dim ListeAdresses
Dim Cellule As Range
Dim i As Integer, k As Integer
    For Each Cellule In Range(Range("A1").Address + ":" + _
         Range("A1").SpecialCells(xlCellTypeLastCell).Address) 
        If Cellule.Interior.ColorIndex = 5 Then
            ListeAdresses = ListeAdresses + Cellule.Address + ","
        End If
    Next
    'On a une vircule de trop, on la supprime
    ListeAdresses = Left(ListeAdresses, Len(ListeAdresses) - 1)
    'Sélection des cellules de couleur 5
    Range(ListeAdresses).Select
End Sub

En enregistrant la macro de sélection, tu as une idée sur ce a quoi doit ressembler "ListeAdresses"
Tu dis

[SAINT-BERNARD]

euh, je plante encore
pourrais-tu me donner un exemple sur classeur excel , j'ai essaye mais !!!
voila
http://cjoint.com/

merci

[SAINT-BERNARD]

j'ai reussi, c'est presque bon
mais là, il selection à partir de la couleur toutes les cellules,même celle qui sont d'une autre couleur ou vide?

que faire
merci