Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Correction Macro

RV37

XLDnaute Junior
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

XLDnaute Accro
Re : Correction Macro

Bonjour,

Tu peux t'inspirer de ceci :
VB:
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
 

Discussions similaires

  • Résolu(e)
XL 2021 macro
Réponses
9
Affichages
533
Réponses
7
Affichages
384
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…