Selectionner les cellules ayant un certain format

Re : Selectionner les cellules ayant un certain format

Bonjour

Sur ce fil il y a des idées à prendre pour résoudre ce problème

https://www.excel-downloads.com/threads/compter-couleur-dune-mfc.70241/

JP

Re : Selectionner les cellules ayant un certain format

Oulà, je crois que c'est pas trop mon niveau.
Aucun moyen simple de résoudre mon pb?
sourtout que mes cellules ne sont pas en format conditionnel...

Re : Selectionner les cellules ayant un certain format

jp14 à dit:

Bonjour

Sur ce fil il y a des idées à prendre pour résoudre ce problème

https://www.excel-downloads.com/threads/compter-couleur-dune-mfc.70241/

JP

Cliquez pour agrandir...

Voici une fonction extraite du fil indiquée ( solution de ABC )

JP

Re : Selectionner les cellules ayant un certain format

Bonjour peuf23, jp14, le Forum,

Pourquoi vouloir absolument imposer des usines VBA alors qu'Excel (à partir de la version 2002 et sûrement de 2000) sait répondre à cette simple question de sélection ?

Peuf23, tu peux faire :

• Menu Edition / Rechercher... (ou bien CTRL + R)
• Bouton Options, puis Format
• Onglet Motif, choisir la couleur désirée et faire OK
• Bouton Rechercher Tout
  
• Finalement, dans la liste en dessous, sélectionner l'ensemble des lignes à l'aide de la touche SHIFT (ou clic sur une ligne et CTRL + A)
• Bouton Fermer.

Tes cellules de couleur sont maintenant toutes sélectionnées.

Cordialement,

Re : Selectionner les cellules ayant un certain format

Bonjour le forum, my dearFriend

Je confirme que 2000 ne propose pas d'options..

Re : Selectionner les cellules ayant un certain format

Bonsoir

Voici une macro qui recherche une couleur ( à modifier)
Sub rechercher()
Dim plagecel As Range
Dim couleurfond As Integer
Dim cellule As Range
Dim Msg As String, Style As String, Reponse2 As String
Dim Title1 As String
Dim xnomfi As String
xnomfi = ActiveSheet.Name


couleurfond = 3 ' à modifier pour indiquer le numéro de couleur
For Each cellule In Range("A1:X1000")' à modifier pour la plage de travail
' Si Text est égal à "Bonjour".
If cellule.Interior.ColorIndex = couleurfond Then
Title1 = " Rechercher une couleur " 'Titre de la zone de saisie
Msg = "Couleur trouvée à " & cellule.Address
Style = vbRetryCancel + vbCritical + vbDefaultButton2
Reponse2 = MsgBox(Msg, Style, Title1)
If Reponse2 = vbCancel Then
Sheets(xnomfi).Range(cellule.Address).Select
Sheets(xnomfi).Select
Range(cellule.Address).Select
Exit Sub
End If
End If

Next
End Sub

Bon courage

JP