[XL-2016] Appel macro par la valeur x d'une cellule

Appel macro par la valeur x d'une cellule

Bonjour à tous,

Dans le cadre d'un tableur servant à la gestion d'une copropriété, je bute sur un problème dont je n'entrevois pas la moindre solution, je m'explique :

La feuille 1 de mon tableur est composée de 6 colonnes (date - n° extrait de compte - nature de l'opération - crédit - débit - contrôle). J'entre donc la date du mouvement bancaire, le numéro d'extrait de compte, pour la nature de l'opération (et pour éviter les erreurs) j'entre un code perso (par exemple "a1" qui va se transformer en "Acompte Durant" et dans la colonne 6 le contrôle "DUR" est affiché automatiquement), j'entre le crédit et voilà une affaire rondement menée. Toutes mes opérations travaillent de la même manière [code perso] - [libellé automatique] - [contrôle automatique].

Toutes ? non ... une opération résiste encore et toujours à mes petites compétences :

Il arrive que certaines opérations doivent être partagées par copropriétaires suivant certaines quotités. A cette fin, j'ai une feuille "Répartitions" qui prend la copie de la ligne de ma feuille 1 et fait les calculs en fonction des formules introduites. Tout fonctionne parfaitement de ce côté sauf que je n'arrive pas à appeler la macro adéquate lorsque je tape le code "REP" (pour REPartition) dans la colonne 6 de ma feuille 1. Pour corser le tout, je devrais faire en sorte d'entrer ce code indifféremment en Majuscules ou en minuscules mais avec affichage en Majuscules (histoire de rester cohérant dans l'affichage de ma feuille).

Auriez-vous une petite idée qui pourrait me sortir de ce sac de noeud.

En vous remerciant par avance, je vous souhaite une très bonne journée

Philippe

Bonjour,

une possibilité à mettre dans le module de la feuille :

Code:

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Columns(6)) Is Nothing Then
        If Target.Row = 1 Or LCase(Target) <> "rep" Then Exit Sub
        Application.EnableEvents = False
        Target = UCase(Target)
         Application.EnableEvents = True
       ta_macro
    End If
End Sub

eric

Bonjour Eric,

Et bien, si j'avais su, je serais venu plus tôt !

Impeccable, ça fonctionne du tonnerre ..... mille mercis

Très bonne journée à toi