Find une cellule x dans un tableau

Bonjour à tous,

Je suis actuellement depuis deux jours sur ce bout de code je ne trouve rien à ce sujet.
Je souhaite utiliser une fonction un peu comme celle-ci :

Code:

---

Cells.Find(what:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate

---

Mais me permettant de rechercher une cellule x c'est-à-dire que cette cellule serait trouvée par une variable. Le find lirait ce qui se trouve dedans et rechercherait s'il y en a une autre qui lui ressemble.

Je ne sais pas si c'est très clair mais n'hésitez pas à posez vos questions s'il vous faut plus d'informations.

Merci par avance.

Bonjour Romain, et bienvenu sur le Forum,

Cetes, il est conseillé d'argumenter au maximum les méthodes.
Généralement, pour Find, Lookat, et LookIn suffisent.

Ceci noté, tu peux adapter le code retourné en exemple par l'aide Microsoft.

Méthode Find

D'autre part, pour ce cas précis, tu peux aussi utiliser les cellule spéciales vides.

Cellules Spéciales

Bonjour Marcel,

Concernant les SpecialCells j'ai du mal a comprendre comment faire pour pouvoir trouver se qu'il y a dans certaine de mes cellules et aller chercher dans d'autre.
J'ai découvert un peu le SpecialCells en utilisant le lien que tu m'as donné et appart sélectionné toute les cellules ou il y a du texte j'ai pas trop compris :?

Merci de m'éclairer :)

Salut,

Sauf si j'ai mal compris.

Code:

---

Cells.Find(what:="",

---

Citation:

---

lirai se qui se trouve dedans

---

A mon avis pas grand chose!

Sérieux.
Tu peux parcourir des cellules spéciales, ici vides, et reporter la valeur des champs de la même ligne ou colonne.

Exemple à adapter

Code:

---

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

Option Explicit   Sub spécial_cells()   Dim sp As Range Dim c As Range   With Worksheets("Feuil1") Set sp = .Range("A1:A5").SpecialCells(xlCellTypeBlanks) For Each c In sp With c Debug.Print .Address Debug.Print .Offset(0, 1).Value End With Next c Set sp = Nothing End With   End Sub

---