Effectuer un programme VB automatiquement
Résolu/Fermé
lixil
Messages postés
33
Date d'inscription
dimanche 4 novembre 2012
Statut
Membre
Dernière intervention
1 mars 2014
-
5 mars 2013 à 22:43
lixil - 7 mars 2013 à 21:23
lixil - 7 mars 2013 à 21:23
A voir également:
- Effectuer un programme VB automatiquement
- Vb cable - Télécharger - Audio & Musique
- Programme demarrage windows 10 - Guide
- Vb - Télécharger - Langages
- Fichier ouvert dans un autre programme - Guide
- Desinstaller un programme - Guide
4 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
6 mars 2013 à 08:02
6 mars 2013 à 08:02
Bonjour
Essaies ce code (si A1 est saisi manuellement: ..."quand je modifie A1 "... )
à placer dans le module "feuil1" de l'éditeur VBA
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
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.
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.
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
Modifié par michel_m le 6/03/2013 à 10:33
Modifié par michel_m le 6/03/2013 à 10:33
1/ByVal target as range
"Par valeur de la cible comme cellule"
La cible est la cellule où l'utilisateur change manuellement une donnée
Byval autorise le changement de valeur (contrairement à ByRef)
Le changement de valeur (Worksheet_change) déclenche la macro
2/ If Not Intersect(Target, Range("A1")) Is Nothing Then
La c'est du chinois... chuis bien d'accord :oD
"Si l'intersection entre la cible (target) et la cellule A1 n'est pas rien alors"
Délimite la zone d'action de la macro événementielle: si tu écris ailleurs que dans A1 la macro ne se déclenche pas....
Des tutos sur les événements dans excel
https://silkyroad.developpez.com/VBA/EvenementsFeuille/
https://silkyroad.developpez.com/VBA/EvenementsClasseur/
bonne découverte
"Par valeur de la cible comme cellule"
La cible est la cellule où l'utilisateur change manuellement une donnée
Byval autorise le changement de valeur (contrairement à ByRef)
Le changement de valeur (Worksheet_change) déclenche la macro
2/ If Not Intersect(Target, Range("A1")) Is Nothing Then
La c'est du chinois... chuis bien d'accord :oD
"Si l'intersection entre la cible (target) et la cellule A1 n'est pas rien alors"
Délimite la zone d'action de la macro événementielle: si tu écris ailleurs que dans A1 la macro ne se déclenche pas....
Des tutos sur les événements dans excel
https://silkyroad.developpez.com/VBA/EvenementsFeuille/
https://silkyroad.developpez.com/VBA/EvenementsClasseur/
bonne découverte
