Effectuer un programme VB automatiquement Résolu/Fermé

Question

Bonjour, 
Je voudrais savoir comment effectuer un programme automatiquement.
J'ai ecrit:

Private Sub Worksheet_Calculate()

If Sheets("feuil1").Range("A1") < 20 Then
        Sheets("feuil1").Range("B1") = 10

else if Sheets("feuil1").Range("A1") >= 20 then
         Sheets("feuil1").Range("B1") = 20

End If

End Sub

Quand je reviens sur la feuille de calcul, la cellule B1 est égale à 20 ou 10 en fonction de ce qu'il y avait dans A1.
Mais quand je modifie A1 la cellule B1 reste pareil et je ne veut pas qu'elle reste pareil.
Si je veut que B1 change il faut que je relance le programme et c'est pas bon.

Merci de m'eclairer.

Configuration: Windows 7 / Chrome 22.0.1106.241

michel_m · Answer

Bonjour

Essaies ce code (si A1 est saisi manuellement: ..."quand je modifie A1 "... )
 à placer dans le module "feuil1" de l'éditeur VBA 

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
     If Target < 20 Then
          Range("B1") = 10
     Else
          Range("B1") = 20
     End If
End If
End Sub

lixil · Answer

Bonjour,

C'est parfait! merci Michel_m
et vous pourriez m'expliquer un peu le programme SVP?

Private Sub Worksheet_Change(ByVal Target As Range)
A quoi sert ByVal Target As Range ?

If Not Intersect(Target, Range("A1")) Is Nothing Then
La c'est du chinois...

je peux comprendre, avec la suite, que la variable est Target mais c'est tout.

lixil · Answer

Ok merci encore Michel je vais étudier tout ça.

lixil · Answer

J'ai regardé les liens et je ne trouve pas a modifier le programme pour avoir plusieurs variable.
A1 < 5 alors C1 = 12
B1 > 5 alors D1 = 21

Effectuer un programme VB automatiquement

4 réponses

Discussions similaires