Discussion :

[HABILER]

Bonne avant-soirée à tous,

J'ai écrit (en partie) le code suivant afin de trouver la colonne et ligne d'une donnée d'une autre feuille.

Le 1ere fois le module a fonctionné et plus ensuite.

J'ai reçois une msg d'erreru 1004 - method 'range' of object '_worksheet' failed.

C'est n'estpas un cas isolé dans ce même sheet.

Quelqu'un pourrait-il m'aider ?

Un grand merci d'avance

Habiler

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
25
26
27
28
Sub RechercherEtEcrire()
    Dim wsTewerkstelling As Worksheet
    Dim wsEchellesIndexed As Worksheet
    Dim rngEchelles As Range
    Dim cellL As Range
    Dim foundCell As Range
 
    ' Définir les références aux feuilles de calcul
    Set wsTewerkstelling = ThisWorkbook.Sheets("Tewerkstelling")
    Set wsEchellesIndexed = ThisWorkbook.Sheets("EchellesIndexed")
 
    ' Définir la plage nommée EchellesIndexed
    Set rngEchelles = wsEchellesIndexed.Range("EchellesIndexed")
 
    ' Boucler à travers chaque cellule de la colonne L dans Tewerkstelling
    For Each cellL In wsTewerkstelling.Range("L2:L" & wsTewerkstelling.Cells(Rows.Count, "L").End(xlUp).Row)
        ' Chercher la valeur dans la plage nommée EchellesIndexed
        Set foundCell = rngEchelles.Find(cellL.Value, LookIn:=xlValues)
 
        ' Si la valeur est trouvée, écrire la colonne et la rangée dans la colonne V de Tewerkstelling
        If Not foundCell Is Nothing Then
            wsTewerkstelling.Range("V" & cellL.Row).Value = "Colonne: " & foundCell.Column & ", Rangée: " & foundCell.Row
        Else
            ' Si la valeur n'est pas trouvée, vous pouvez gérer cela comme vous le souhaitez
            wsTewerkstelling.Range("V" & cellL.Row).Value = "Non trouvé"
        End If
    Next cellL
End Sub

[Valtrase]

Salut,
En général cela provient d'une faute sur le nom du tableau. Mais puisque marqué en résolu c'est que vous avez trouvé je pense.