Discussion :

[Sibuxian]

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

[sabzzz]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

isabelle

[Sibuxian]

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.

[sabzzz]

bonjour Sibuxian,

voila,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Sibuxian]

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

[Sibuxian]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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