Excel et VBA

[HeAdLeSs]

Bonjour à tous,

 

Un petit problème, je n'arrive pas à trouver ce que je veux sur google.

 

C'est simple, j'ai fait une macro qui test la valeur de telle cellule et la copie dans telle ou telle autre suivant ma condition. Jusqu'à là tout va bien. Le problème c'est que je suis obligé d'exécuter la macro et moi je desire que ce soit fait automatiquement c'est à dire quand je change la valeur de ma cellule il me reteste celle-ci sans que j'ai à faire alt+f8 et exécuter macro...

 

J'ai bien pensé à faire en sorte que la macro se rappelle elle même mais c'est pas vraiment une idée satisfaisante donc je préfère éviter...

 

Merci +a+

[HeAdLeSs]

En fait je me suis acharné et j'ai trouvé par moi-même...

 

Voilà le code pour les générations futures :

Sub Worksheet_Change(ByVal Target As Excel.Range)
   If Target.Address = "$B$31" Or Target.Address = "$C$31" Or Target.Address = "$D$31" Then //condition sur la valeur de telle cellule
      If Target.Value <> 0 Then //condition qui provoque l'execution de la suite (toujours valable)
   Sheets("Feuil1").Select
   Range("E32").Select
   Var = Range("E32").Value //inistialisation de la variable Var qui contient la valeur dela cellule E32
       If Var >= 0 Then //condition sur l'opération de copier/coller des valeurs entre les cellules
       Sheets("Feuil4").Range("G11").Value = Var
       Sheets("Feuil4").Range("H11").Value = 0
       Else
       Sheets("Feuil4").Range("H11").Value = Var
       Sheets("Feuil4").Range("G11").Value = 0
       End If
       End If
   End If
End Sub

Modifié le 3 août 2004 par laubean

[Lord Nelson]

Salut,

 

C'est juste une question de placement de ton code :

 

Tu fais ALT F11 pour activer VBA puis tu double-clique sur "ThisWorkBook".

En haut de la fenêtre de code, déroule la liste "Général" pour afficher "WorkBook" puis, dans la liste des évènements, choisis "SheetChange", tu obtiendras ceci :

 

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'
'Ton code
'
End Sub

 

Tu n'as plus qu'à placer le code de ta macro là et tester.

 

A+

Horatio

Modifié le 3 août 2004 par laubean

[Lord Nelson]

Arf !

Bravo, tu avais trouvé tout seul.

Une petite nuance cependant :

Ton code concerne une seule feuille, ThisWorkBook s'applique à toutes les feuilles du classeur.

[HeAdLeSs]

lol,

 

merci quand même

 

Par contre avec ta méthode ca detecte tous les changements de toutes les cellules ou pas ? car moi j'ai du spécifier comme tu peux le voir...

 

 

+a+

[Lord Nelson]

Oui, tous les changements de cellules sont interceptés et tu disposes d'un paramètre supplémentaire (Sh) pour savoir quelle feuille est concernée.

A+

Horatio