Discussion :

[retraite83]

Bonjour,

j'ai une cellule dont le contenu est renseignée par recherche dans un catalogue, par exemple :

Code formule :

Sélectionner tout - Visualiser dans une fenêtre à part

=RECHERCHEV(G12;'Param Services'!$B$2:$F$300;5;0)

Cela marche très bien, le texte voulu du catalogue est bien chargé dans la cellule

L'utilisateur souhaite pouvoir adapter dans certains cas ce texte directement dans la cellule sans modifier le texte de base dans le catalogue. hors bien sur le texte n'est pas accessible dans cette cellule

Je ne vois pas d'astuce pour faire cela (Excel ou par macro)

merci de vos lumières

[78chris]

Bonjour

Le souci c'est qu'il faut alors retaper le texte et perdre la formule (on peut utiliser copier/collage spécial valeur puis corriger)

La perte de la formule peut être gênante pour la suite si on change d'avis, voire également casser la dynamique formules si c'est un tableau structuré.

[retraite83]

Bonjour,

je me demandai si une solution en passant par une cellule intermédiaire était possible

[ARTURO83]

Bonjour,

Proposition: lier la cellule avec une macro évènementielle. Lors d'un double-clic, la formule est recopiée puis remplacée par la valeur trouvée. Quiconque pourra changer le contenu de la cellule à volonté, il suffira de refaire un double-clic pour réactiver la formule et revenir à la valeur initiale trouvée avec la recherchev.

Macro dans le module de la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Application.EnableEvents = False
    Target.FormulaR1C1 = "=VLOOKUP(R[10]C[5],'Param Services'!R2C2:R300C6,5,0)"
    Target.Value = Target.Value
    Application.EnableEvents = True
End Sub

Cdlt

[retraite83]

je vais essayer cela mais je ne comprends pas cette partie du code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

R2C2:R300C6,5,0

[ARTURO83]

Ce n'est que la traduction de votre formule en VBA

R2C2:
R2 = Row 2 = ligne 2
C2 = Column 2 = Colonne 2

R300C6:
R300 = Row 300 = ligne 300
C6 = Column 6 = Colonne 6

Comme les valeurs ne sont pas entre crochets, cela revient à mettre les "$" dans la formule,