Discussion :

[THE_MIQ]

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 :

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

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

[Invité]

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

intéresses toi à la fonction SerchXls!

[joe.levrai]

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 :

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

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

[THE_MIQ]

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.

[RyuAutodidacte]

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 :

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

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

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

[joe.levrai]

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