pb de macro copier coller

[flo103.g]

Bonjour, je relance un post sur mon pb de macro.
Je souhaiterai que, par exemple si je rentre "8" dans la cellule D46 de la feuil1, la macro me copie le contenu de la collone D de la 8 eme ligne de la feuil 2 ne cellule D et me recopierai ce contenu dans la cellule E46.
Mon probleme est que je pense que mon code contient une valeur volatile qui s'oublie une fois que je selectionne la feuille 2.
Une fonction de recherche, mais qui me recopierai le contenu me conviendrai aussi.
Quelqu'un peut il m'aider svp???
merciiii!

 

[SergiO]

Re : pb de macro copier coller

Bonjour flo,

Essaie ceci

Private Sub descriptionL46()
ncas = Worksheets("tx1").Range("D46") 'origine n° des cas a comparer dans TX1'
Lig = Sheets("analyse").Range("A1:A65536").Find(ncas, , , LookAt:=xlWhole).Row
Sheets("analyse").Cells(Lig, 4).Copy Destination:=Worksheets("tx1").Range("E46")
Worksheets("tx1").Activate

End Sub

Une formule en E46 pourrait aussi peut-être suffire.

=RECHERCHEV(D46;analyse!$A$1:$D$20;4;0)

@+

 

[flo103.g]

Re : pb de macro copier coller

Merci beaucoup Sergio, ta méthode fonctionne!
Je préfere cette méthode a recherchv car je ne peux pas modifier le texte avec cette méthode.
j'ai cependant un petit message qui me dit de temps en temps "erreur la méthode copy de la classe range à échouée".
Tu peux me guider stp?
merciiiii!

 

[SergiO]

Re : pb de macro copier coller

Re,

Je n'ai pas constaté cette erreur ! Peux-tu m'en dire davantage?

Par contre, il y a bien une erreur d'exécution 91 si on tape une référence qui n'existe pas.

Voici le code modifié.

Private Sub descriptionL46()
ncas = Worksheets("tx1").Range("D46") 'origine n° des cas a comparer dans TX1'
On Error GoTo Erreur
Lig = Sheets("analyse").Range("A1:A65536").Find(ncas, , , LookAt:=xlWhole).Row
Sheets("analyse").Cells(Lig, 4).Copy Destination:=Worksheets("tx1").Range("E46")
Exit Sub

Erreur:
If Err.Number = 91 Then
Message = MsgBox("Ce numéro d'observation n'existe pas!!!", vbExclamation, "Erreur")
Range("D46:E46") = ""
End If
End Sub

@+

 

[flo103.g]

Re : pb de macro copier coller

Re bonjour, merci pour votre réponse!
En fait c'est un probleme de cellule fusionnée, je pense pouvoir m'en arranger.
Merci beaucoup pour votre réponse. heureusement qu'il y à des passionnés comme vous pour nous aider!

cordialement,
florian

 

[Excel_lent]

Re : pb de macro copier coller

Salut à tous, et aux autres,

Une autre solution très simple (qui se complique avec une gestion d'erreur différente).