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

Bonsoir à toutes & tous,

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

Salut,

Voici une proposition de code :

Code:

---

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 29

Sub Essai1()   Dim O_Cell As Object Dim Code1 As String Dim monom As String   'copy les cellules de d2 à f2   Range("d2:f2").Select Selection.Copy       'Déplace le curseur sur la cellule nommée dont le nom et la valeur en "A4" de la feuil1 monom = Range("A4").Value Code1 = "ValeurAChercher" 'valeur à chercher Application.Goto Reference:=monom ' "UI" est le nom de la zone de recherche Set O_Cell = Selection.Find(Code1) ' recherche de la valeur If Not O_Cell Is Nothing Then 'si l'objet O_Cell contient les coordonnées de la cellule   O_Cell.Select ' sélection de la cellule End If   'Colle la sélection à partir de la cellule selectionnée Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False     End Sub

---

En gros, j'ai déclaré une variable et j'ai stocké dans cette variable le contenu de la cellule A4 pour l'utiliser comme zone à sélectionner.

En espérant que c'est bien ce que tu veux.

GG