Fonctions Set & Find

Bonjour à tous,

Mon but est de trouver les différents noms utilisés dans la plage B12 à B18 de la feuille 1 (ESSAI) puis de rechercher ce mot dans la feuille 3 (TEXTE) et de copier les commentaires (cellule à droite du nom) puis de les coller dans la feuille2 (BDC - LES ATELIERS REUNIS).
Le code ci - dessous fait bien cela, mais en revanche lors de la 2ème itération, l'erreur 91 [Variable objet ou variable de bloc With non définie] apparait sur la ligne "Set CellCherCher = CherCher.Offset(rowOffset:=0, columnOffset:=1)" et je ne vois pas d'où vient le problème.
Pouvez - vous m'aider ?
Je vous joins un exemple.
Merci beaucoup.

Code:

---

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

Sub TEST() Dim i, Cell As String Dim CherCher, CellCherCher As Object   For i = 12 To 18 Cell = "B" & i If IsEmpty(Range(Cell)) Then   Else Set CherCher = Sheets("TEXTE").Cells.Find(What:=Range(Cell), LookAt:=xlWhole) 'Worksheets("TEXTE").Activate Set CellCherCher = CherCher.Offset(rowOffset:=0, columnOffset:=1) CellCherCher.Select Set Acopier = ActiveSheet.Range(Selection, Selection.End(xlDown)) Acopier.Copy 'Attention à la dernière phrase Sheets("BDC - ATELIERS REUNIS").Activate ActiveSheet.Range("C39").End(xlUp).Offset(2, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False   End If   Next i   End Sub

---

bonjour,
https://www.developpez.net/forums/d1...f/#post8959731

intéresses toi à la fonction SerchXls!

Bonjour,

Find renvoit un Objet Range

Donc si ton premier Find ne trouve rien, ta variable CherCher vaut "Nothing"

Si elle vaut nothing, tu ne peux pas la manipuler, et à fortiori en définir une nouvelle variable Objet Range (CellCherCher) basée sur CherCher

Quand on utilises find, derrière on test TOUJOURS si le retour est bien un objet différent de Nothing

Code:

---

1 2 3 4 5 6 7 8

Dim Cell As Range, CellBis As Range Set Cell = ActiveSheet.Usedrange.Find("toto") ' pour l'exemple ... mais normalement on renseigne tous les paramètres ! If Not Cell Is Nothing Then Msgbox "On a trouvé quelque chose" Set CellBis = Cell.Offset(0,1) Else Msgbox "On a rien trouvé !" ' Set CellBis = Cell.Offset(0,1) ' ça ça va planter car Cell vaut Nothing donc il n'est "rien" et on ne peut rien en tirer en terme d'enfant ou de parent

---

Bonjour,

Merci pour cette réponse, je vais essayer.
En revanche, je sais que le mot existe dans ma première feuille, pourquoi cela me renvoie "nothing" alors que le mot existe bien ?
Merci.

Pierre.

Bonjour,

Même si ton mot existe, il suffit qu'il ne soit écrit de la même manière pour faire chou blanc.
Si dans ton code tu écris le mot normalement mais que dans ta feuille il y est des espaces devant où derrière ton mot, alors là il ne trouve rien.
Soit tu n'etoie tes cellules si il y a des espaces devant où derrière (voir utilisation de Trim dans l'aide), sinon tu utilises les astérisques lors de ta recherche sur le mot

Code:

---

Cell = ActiveSheet.Usedrange.Find("*toto*")

---

Edit : les lettres en capital et bas de casse peuvent jouer : voir Ucase dans l'aide

Bonjour,

à noter également que tu joues dangereusement avec les feuilles actives, avec des .Activate et des Range() sans feuille préfixée ... dans une boucle où tu remet jamais les conditions initiales de ces objets actifs en place.

ça ne génère pas un conflit où tu lis des cellules d'une feuille non souhaitée ?


rajoute bien le nom des feuilles devant chaque range

Bonjour Ryu
Attention. Les caractères génériques ne sont pas utilisables avec la méthode Range.Find.
Est par utilisatble l'argument XlLookAt (qui peut être xlPart)

Salut Jacques,
J'en prends note, merci ;), il est vrai que je n'utilise pas souvent le Find

Bonjour Joe,

Non pas de conflit de ce côté là, mais je vais rajouter cela au code.
Merci.