Macro Automatique

Bonjour,

Je suis tout nouveau sur ce forum. J'ai quelques bases sur VBA.
J'ai utiliser la fonction recherche du forum pour essayer de résoudre mon problème mais je n'ai rien trouver de concluant.

Le problème est assez simple. Sur une feuille, j'ai une liste déroulante dans une cellule et un chiffre correspondant au nom sélectionné dans la liste dans la cellule à coté.

Je tente de tout programmé sous vba bien entendu. J'aimerais juste pour le moment que lorsque le contenu de la cellule de la liste est modifié manuellement, la cellule lié soit modifiée automatiquement.
Pour lié les 2 cellules, j'ai simplement utilisé formule If-ElseIf

Merci

bonjour Sibuxian,

j'ai supposé que la liste de validation est sur la feuille 2 cellule C2
et que la formule est à coté en D2,
j'ai nommé la plage no. "plgNo" et la plage nom correspondant "plgNom"

par formule:
=INDEX(plgNom;EQUIV(C2;plgNo;0))

et par vba :

Code:

---

1 2 3

With Sheets("Feuil2") .Range("D2") = Application.Index([plgNom], Application.Match(.Range("C2"), [plgNo], 0)) End With

---

isabelle

bonjour et merci pour ta réponse.

Mais enfaite ma question se résume plus à comment lancer la macro VBA en permanence. Je comprends ton code (je pense). Mais lorsque je modifie le contenue de la cellule de la liste déroulante, la cellule à coté ne se modifie pas directement, il faut que je lance la macro.

Sinon oui en passant directement par excel, la modification sera instantanée. Mais je voulais savoir si c'était possible de le faire que sous VBA.

bonjour Sibuxian,

voila,

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_Change(ByVal Target As Range) Set cel = Application.Intersect(Target, Range("C2")) If Not cel Is Nothing Then Range("D2") = Application.Index([plgNom], Application.Match(Range("C2"), [plgNo], 0)) End If End Sub

---

isabelle

C'est parfait, merci beaucoup, je ne connaissais pas.

Bon enfaite, ca marche bien. même trop bien ^^.
Enfaite, j'ai essayer de combiner le code pour que cela se fasse sur plusieurs cellules mais maintenant, cela produit une boucle infinie.
J'ai peut être mal définie mes variables.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Private Sub Worksheet_Change(ByVal Target As Range) Dim HQ1_GlobalCost As Integer Dim HQ2_GlobalCost As Integer   'HQ 1 Set cel = Application.Intersect(Target, Range("A5")) If Not cel Is Nothing Then Range("B5") = Application.Index(Sheets(strSheet2).Range("A2:B5"), Application.Match(Range("A5"), Sheets(strSheet2).Range("A2:A5"), 0), 2) End If   HQ1_GlobalCost = Application.Sum(Range("D7:K7")) Range("B6") = HQ1_GlobalCost     'HQ 2 Set cel = Application.Intersect(Target, Range("A9")) If Not cel Is Nothing Then Range("B9") = Application.Index(Sheets(strSheet2).Range("A2:B5"), Application.Match(Range("A9"), Sheets(strSheet2).Range("A2:A5"), 0), 2) End If   HQ2_GlobalCost = Application.Sum(Range("D11:K11")) Range("B10") = HQ2_GlobalCost   End Sub

---

Enfaite, c'est les 2 dernières lignes qui me bloquent en boucle infinie. Si je les retire, tout va bien.

Merci

bonjour

tout dépend des chiffres à additionner,
à toi de voir lequel convient le mieux

Integer -32 768 à 32 767

Long -2 147 483 648 à 2 147 483 647

Double
"-1,79769313486231 E308 à -4,94065645841247 E324
4,94065645841247 E324 à 1,79769313486232 E308 "

isabelle

Bonjour,


Dans ta procédure évènementielle, tu modifies des cellules, et donc tu crées un nouvel évènement.
En début de procédure, tu pourrais ajouter

Code:

---

Application.EnableEvents = False

---

Et rétablir à True quand c'est fini.

Cordialement,

PGZ