Recherche un mot dans une feuille excel, mémoriser ses coordonnées

Bonjour,

A tous,

Je souhaiterai faire un programme permettant de rechercher un mot dans ma feuille excel, mémoriser ses coordonnées et faire copie une dans une autre feuille.

Ce programme permet bien de trouver le mot toto et met ses cordonnées la variable a mais me permet pas de realiser la copie

Dim x As Range, a As String, Ligne As Integer, Colonne As Integer

Set x = Cells.Find("Toto", , xlValues, xlWhole, , , False)

If Not x Is Nothing Then

a = x.Address(0, 0)

Ligne = x.Row

Colonne = x.Column

Workbooks("test.xlsm").Sheets("feuil1").Range("a").Copy Worksheets("feuil2").Range("A25")

End If

Merci pour votre aide

Bonjour,

Modifie cette ligne

Workbooks("test.xlsm").Sheets("feuil1").Range(a).Copy Worksheets("feuil2").Range("A25")

a est sans guillemet, c'est la variable qui prend l'adresse de la cellule trouvée

Bonjour,

Ton code pourrait se résumer à :

Sub XXX()
Dim x As Range
    Set x = Cells.Find("Toto", , xlValues, xlWhole, , , False)
    If Not x Is Nothing Then
        x.Copy Worksheets("feuil2").Range("A25")
    End If
End Sub

Merci jean Eric, ça marche.

Sub test()

Dim x As Range, a As String, Ligne As Integer, Colonne As Integer

Set x = Cells.Find("toto", , xlValues, xlWhole, , , False)

If Not x Is Nothing Then

a = x.Address(0, 0)

Ligne = x.Row

Colonne = x.Column

x.Copy Worksheets("Feuil2").Range("A25")

End If

End Sub

Par contre si je veux copier une plage de cellule à partir du mot toto, comment pourais je faire.

Par exemple : copier "toto" à L25

Merci par avance.

Re,

Joins un petit fichier à ta demande avec des explications claires et un exemple de résultat (souhaité).

Cdlt.

Dans le fichier, il y'a deux feuilles 1 et 2.

Le programme doit chercher le mot déclenchement 2 et s'il le trouve il le copie dans la feuille 2 ainsi que toute la plage concernant que le déclenchement 2.

Le résultat souhaité est dans la feuille 2.

Merci pour ton aide.

Je suis un GRAND débutant de la programmation vba.