Correction Macro

[RV37]

Bonjour le Forum,

j'ai un petit souci avec une macro. Je souhaite que la valeur en A13, dans ce cas du texte, ex : Orange, soit remplacé en A13 par Orange (sous réserve).

Je n'arrive à avoir en A13 que (sous réserve)

Quelque chose ne va donc pas dans ma mcro jointe ci dessous.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A13") = ("Orange") Then Range("A13") = (A13 & "(sous réserve)")
End Sub

D'autre part, est il possible de mettre plusieurs arguments, du type Orange, Poire, Pomme,etc... pour éviter les lignes de macro ??

Merci pour votre aide et bonne journée.

RV

 

[Softmama]

Re : Correction Macro

Bonjour,

Tu peux t'inspirer de ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Tableau(), t&
'Placer tous les noms à contrôler dans ce Tableau :
Tableau = Array("Pomme", "Poire", "Orange", "Banane")
For t = LBound(Tableau) To UBound(Tableau)
    If Tableau(t) = Range("A13") Then Range("A13") = Range("A13") & " (Sous réserve)"
Next t
End Sub

 

[RV37]

Re : Correction Macro

Softmama, le Forum

Ta solution marche parfaitement. Merci pour ton aide.

Merci au Forum

Bonne journée et bon week-end.

RV