[Résolu] Recherche par nom
Bonjour, après mes recherches infructueuses, j'ai besoin de votre aide, mes connaissances étant limitées.
J'ai créé 1 macro qui regarde le contenu des cellules de ma deuxième feuille et les recherche parmi les cellules nommées sur la première feuille.
Le problème se pose quand elle ne les trouve pas.
Au bout de la deuxième erreur, j'ai le message : "La méthode range de l'objet global a échoué" sur la ligne "Application.goto ....".
Voici ma macro :
Sub Macro5()
Dim rec As Variant, i As Integer
For i = 1 To 15
rec = Worksheets("Feuil2").Range("A" & i).Value
Sheets("Feuil1").Select
On Error GoTo renvoi
Application.Goto Reference:=Range(Worksheets("Feuil2").Range("A" & i).Value)
ActiveCell.Value = Worksheets("Feuil2").Range("A" & i).Offset(0, 1).Value
renvoi:
On Error GoTo 0
Next i
End Sub
J'espère que vous pourrez m'aider.
Merci d'avance
Bonjour, après mes recherches infructueuses, j'ai besoin de votre aide, mes connaissances étant limitées.
J'ai créé 1 macro qui regarde le contenu des cellules de ma deuxième feuille et les recherche parmi les cellules nommées sur la première feuille.
Le problème se pose quand elle ne les trouve pas.
Au bout de la deuxième erreur, j'ai le message : "La méthode range de l'objet global a échoué" sur la ligne "Application.goto ....".
Voici ma macro :
Sub Macro5()
Dim rec As Variant, i As Integer
For i = 1 To 15
rec = Worksheets("Feuil2").Range("A" & i).Value
Sheets("Feuil1").Select
On Error GoTo renvoi
Application.Goto Reference:=Range(Worksheets("Feuil2").Range("A" & i).Value)
ActiveCell.Value = Worksheets("Feuil2").Range("A" & i).Offset(0, 1).Value
renvoi:
On Error GoTo 0
Next i
End Sub
J'espère que vous pourrez m'aider.
Merci d'avance
Pièces jointes
Dernière édition: