aide sur la réalisation d'une macro

  • Initiateur de la discussion Initiateur de la discussion kikouyou
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

kikouyou

XLDnaute Junior
Développeuse, développeurs,

Je cherche à créer une macro qui fonctionnerai lors de la frappe d'un mot particulier. Cela déclencherai une macro avec une fonction.

le cas serait ou l'utilisateur tape le mot Rayon alors cela déclenche une macro concernant une fonction ( inclut ds le fichier ci joint ).

Je pense que je dois mettre cette macro dans le workbook mais quelles conditions je dois utilisées.

je pense qu'un IF est necessaire

if activecell="Rayon then.....



Je me tiens à votre disposition pour toutes informations complémentaires
 

Pièces jointes

Re : aide sur la réalisation d'une macro

Bonjour



Code:
Private Sub Worksheet_Change(ByVal Target As Range)
[COLOR=Blue][B] If Target.Address(0, 0) = "A9" And Target.Value = "Rayon" Then[/B][/COLOR]
Target.Offset(0, 2).FormulaLocal = "=ARRONDI(B9*0,25;1)"
End If
End Sub
Le code est dans la feuille

Voir fichier joint
 
Dernière édition:
Re : aide sur la réalisation d'une macro

Merci!

Super JM, merci pour ton aide et ta rapidité sur cette fonction.

Ton exemple me permet d'avancer par contre encore une petite question...

Est il possible que cela ne s'adresse pas que sur la cellule A9? mais pour toute la colonne A?

cela va me permettre de pouvoir avancer sur ma deuxième phase de développement.


Je te remercie


kikouyou
 
Re : aide sur la réalisation d'une macro

Re



Essayes cette modif:
If Target.Column = 1 And Target.Value = "Rayon" Then

à la place de la ligne en bleu dans mon précédent message.

EDITION: plus ces autres modifs
Si en colonne B, la cellule est vide , la formule ne s'inscrit pas en colonne C
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Value = "Rayon" And Not IsEmpty(Target.Offset(0, 1)) Then
Target.Offset(0, 2).FormulaR1C1 = "=ROUND(RC[-1]*0.25,1)"
End If
End Sub
 
Dernière édition:
Re : aide sur la réalisation d'une macro

ok merci!

parcontre le calcul s'applique toujours sur B9, je pense insérer la fonction ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate

afin que le calcul s'effectue de facon correcte
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
967
Retour