Soucis avec un code déplacement curseur sur cellule nommée depuis une autre

Bonsoir à toutes & tous,

Tout d'abord je m'excuse auprès des modérateurs, j'ai déjà posté ce message, mais avec une erreur dans le titre qui n'avait rien à voir avec le sujet, si parmi les modérateurs l'un d'entre eux veux bien supprimer le message précédent, merci.

Je coince sur un code qui fonctionne, mais pas comme je le souhaite.

Ce code permet de placer le curseur sur une cellule nommée, si je mets le nom d'une de ces cellules dans le code, celui-ci fait le travail correctement, mais cela oblige une manip, ouvrir le code et changer le mot à chaque fois.

J'ai trouvé une solution, c'est de mettre une cellule qui change de valeur, et je pensais qu'en faisant cela ca marcherai, et c'est le souci que j'ai, mon code ne prend pas en compte cette cellule, je pense que j'ai sans doute omis quelque chose, mais j'ai beau regarder le code je ne trouve pas, j'ai essayé plusieurs choses, mais que nenni.

La cellule qui devrait servir de critère en quelque sorte, c'est une concaténation de 2 autres cellules, et donc elle se change à chaque fois que je change l'une des deux cellules dont elle dépend, c'est une concaténation d'un mois et d'une d'année.

il est important pour moi que le curseur se pose sur la cellule nommée, car une fois sur cette cellule le code procède à un collage de valeurs.

Je vous joins un fichier test, avec toutes les infos et le code.

Si quelqu'un peut y jeter un petit coup d'œil et me dire ce qui cloche, je suis preneur.

Cordialement

Dubdub22

Bonsoir dubdub22, le forum,

Un essai....

Sub test()

Dim code1 As String
Dim plage As Range
Dim rg As Range

 With Sheets("Feuil2")
  .Activate
        code1 = Sheets("Feuil1").Range("A4")
    Set plage = Sheets("Feuil2").Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
       Set rg = plage.Find(code1)

   If Not rg Is Nothing Then
    rg.Offset(1, 0) = Sheets("Feuil1").Range("D2")
    rg.Offset(1, 1) = Sheets("Feuil1").Range("E2")
    rg.Offset(1, 2) = Sheets("Feuil1").Range("F2")
   End If
 End With

End Sub

Cordialement,

Bonsoir xorsankukai ,

Je te remercie bien pour ta réponse et surtout ton code, qui me va parfaitement, il ne me reste plus qu'à l'adapter à mon fichier, mais ce ne sera pas un souci.

Je te remercie encore et te souhaite de passer de bonnes fêtes de fin d'année.

Cordialement

Dubdub22

Re,

Merci pour ton retour, bonnes fêtes également,

Bonne soirée,