Problème méthode range.find

Bonjour,

Voici mon problème :

Je dispose d’une feuille excel avec un tableau à l’intérieur. J’ai coloré la dernière ligne de ce tableau en gris en utilisant la deuxième nuance de gris comme couleur de remplissage.

Je souhait utiliser la fonction find, avec la propriété SearchFormat, afin de trouver la dernière case de ce tableau dans la colone B (la case grise donc, dans la colone B).

Pour repérer le code et repérer les critères de format à rechercher. J'ai enregistré une macro automatique au moment où j'ai remplie de gris ma dernière ligne. Il semble que le paramètre de couleur soit le suivant :

Range.Interior.ThemeColor = xlThemeColorDark1

J'ai donc essayé avec le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub Rgrise()   Dim Rg As Range, c As Range     'Détermine les caractéristiques du format de cellule recherché. With Application.FindFormat .Clear 'S'assurer d'effacer les critères des anciennes recherches .Interior.ThemeColor = xlThemeColorDark1 End With   'Détermine la plage de cellules où s'effectue la recherche With ActiveSheet Set Rg = .Range("B:B") End With   'Trouve la cellule ayant le bon format pour y effectuer une ou plusieurs opérations Set c = Rg.Find(What:="", SearchFormat:=True) If Not c Is Nothing Then MsgBox c.Address   End Sub

---

Or en fin de procédure "c" renvoi nothing. Je ne comprends pas pourquoi. Pourriez-vous m’aider sur ce point ?

merci

Je ne sais pas exactement ce que fait l'option "Format de recherche" mais je doute TRES fortement que ça corresponde à la recherche d'un format comme tu le souhaites.

Pour faire exactement ce que tu souhaites, il faut utiliser une boucle "For to" ou "For Each" avec un "If" testant la couleur de fond de ta cellule (Cells(i,"B").Interior. Color)

Mais si ton but est simplement de trouver la dernière ligne ayant une valeur dans la colonne B, il est plus simple d'utiliser la propriété End ainsi :

Code:

---

LigneFin = Cells(Rows.Count,"B").End(xlUp).Row

---

Une autre remarque sur ton code :
Ton "With ActiveSheet" est inutile.
D'abord parce qu'un With pour une seule propriété, c'est gâcher. Autant écrire : Set Rg = .ActiveSheet.Range("B:B")
Mais, en plus, ActiveSheet est implicite. Autrement dit, écrire Set Rg = .Range("B:B") marchera aussi bien.

Salut,

Essaie avec FindFormat.Interior.Color plutôt.

Et pour récupérer la couleur de la cellule pour faire le test

Code:

---

1 2 3 4 5

Dim Couleur As Long   Set Rng = Application.InputBox("Cliquer sur la cellule dont vous voulez connaitre la couleur", Type:=8) Couleur = Rng.Interior.Color

---

Merci pour vos réponses. Je me suis finalement débrouillé avec interior.color