executer une macro quand on change la valeur d'une cellule

**Benwad** · 19/02/2009, 23h44

bonsoir à tous,
j'ai créé un doc dans lequel je souhaite automatiser une action.
Pour les cellules A15 à A32 j'ai créé des listes de noms. Quand je modifie une de ces cellules, je souhaite que d'autres cellules soient complétées.
voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Select Case ActiveCell.Value
 
Case "Christophe"
 
ActiveCell.Offset(0, 1).Value = "D1 Open"
ActiveCell.Offset(0, 2).Value = "15/01/1969"
ActiveCell.Offset(0, 4).Value = "100"
 
case "Benoit"
ActiveCell.Offset(0, 1).Value = "SENIOR"
ActiveCell.Offset(0, 2).Value = "21/02/1973"
ActiveCell.Offset(0, 4).Value = "130"
...
End Select

je souhaite que ce code puisse s'exécuter quand je change la valeur l'une des cellules de A15 à A32 (je répète que chacune de ces cellules sont préremplies d'une liste de noms)

J'ai pu lire dans quelques forums l'utilisation de:

Code :

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

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

C'est peut etre une solution à mon problème mais je ne sais l'utiliser

Merci pour votre aide
Benoit.

**PPz78** · 20/02/2009, 08h13

Avec cela tu devrais être dé-coincé :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
 
    MsgBox (Target.Row & " " & Target.Column & "  " & Target.value)
    Variable = Target.Value
    V_ligne = Target.Row
    V_col = Target.Column
 
End Sub

**Gorfael** · 20/02/2009, 09h47

Salut Benwad et le forum

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
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
' si on a modifié plus d'une cellule (par copier/coller), on sort
If Intersect(Target, Range("A15:A32")) Is Nothing Then Exit Sub
'si les cellules modifiées ne sont pas dans la plage, sortir
Select Case Target
    Case "Christophe"
        Target.Offset(0, 1) = "D1 Open"
        Target.Offset(0, 2) = "15/01/1969"
        Target.Offset(0, 4) = "100"
    Case "Benoit"
        Target.Offset(0, 1) = "SENIOR"
        Target.Offset(0, 2) = "21/02/1973"
        Target.Offset(0, 4) = "130"
'...
End Select
End Sub

Si tu ne sais pas dèjà :
Clic-droit sur le nom de l'onglet => Menu contextuel>>Visualiser le code
et tu colles la macro

J'ai fait une macro simple, qui ne fonctionne que si tu changes une seule cellule dans la plage A15:A32 sur la feuille lié au module.
A+

**Benwad** · 20/02/2009, 21h46

bonsoir à vous,

j'ai essayé les solutions proposées, mais je n'obtiens pas de résultat.
Ai-je bien compris ? je saisis le code proposé dans ma macro 1; et ensuite je vais dans l'une des cellules entre A15 et A32 Mais rien ne se passe. En fait ce que je voudrais c'est que dès que sélectionne un nom dans une cellule (par exemple je choisis "Wadoux Benoit" dans A16 je veux que les autres cellules D16 et G16 soit complétées automatiquement.

Merci pour vos lumières...

**Benwad** · 20/02/2009, 21h50

Quand je saisis le code de "gorfael" et ensuite quand je veux retrouver ma macro en faisant "outils", "macro", je ne la vois plus....???????

**drakkar_agfa** · 20/02/2009, 21h52

Bonjour,

As-tu coller le code dans la feuille correspondante ou dans un module?

Exécute la macro pas à pas (avec un point d'arrêt) et donne nous en des nouvelles (est-ce qu'il utilise le target? Est-ce que la cellule est dans l'Intersect?)

Ça va nous aider!

**Benwad** · 20/02/2009, 22h00

bonsoir drakkar_agfa,
en fait j'ai saisi le code suivant

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
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
' si on a modifié plus d'une cellule (par copier/coller), on sort
If Intersect(Target, Range("A15:A32")) Is Nothing Then Exit Sub
'si les cellules modifiées ne sont pas dans la plage, sortir
Select Case Target
    Case "Christophe"
        Target.Offset(0, 1) = "D1 Open"
        Target.Offset(0, 2) = "15/01/1969"
        Target.Offset(0, 4) = "100"
    Case "Benoit"
        Target.Offset(0, 1) = "SENIOR"
        Target.Offset(0, 2) = "21/02/1973"
        Target.Offset(0, 4) = "130"
'...
End Select
End Sub

dans la feuil1.
J'ai voulu faire fonctionner ma macro en pas à pas mais je ne la voit plus dans "outils" "macro"
Je ne comprends pas?????

**drakkar_agfa** · 20/02/2009, 22h04

C'est normal

Code :

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

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Premièrement, Private.
Deuxièment, la macro s'active en changent le contenue d'une cellule. "Worksheet_Change"

En changeant une cellule, la macro s'active et vérifie si la cellule fait partie du Range, si oui, alors il entre dans le Select Case.

Meilleur façon de tester est de changer une cellule de ta plage!

**Benwad** · 20/02/2009, 22h17

je ne comprends pas , maintenant ca fonctionne!!!! pourtant je n'ai rien valider????
Avant de cloturer cet échange peux tu m'aiguiller sur l'idée suivante : quand je supprime la valeur d'une cellule de A15 à A32 (par ex :A20) je veux que les cellules D20 et G20 soient supprimer Merci

**drakkar_agfa** · 20/02/2009, 22h33

Vite vite,

j'ajouterais un case au select case.
Le case vide. Alors les cellules seront ... vides!

Code :

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

1
2
3
        Target.Offset(0, 1) = ""
        Target.Offset(0, 2) = ""
        Target.Offset(0, 4) = ""

Ça a du sens?

**Benwad** · 20/02/2009, 22h35

c'est ce que j'avais fait

Code :

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

1
2
3
4
Case ""
        Target.Offset(0, 1) = ""
        Target.Offset(0, 2) = ""
        Target.Offset(0, 4) = ""

Mais les cellules sont toujours remplies

**drakkar_agfa** · 20/02/2009, 22h44

Essais plutôt avec le "else" du select case.

Je n'ai pas la syntaxe sous la main mais utilise l'aide.

**Benwad** · 20/02/2009, 22h55

j'ai fait le code suivant :

Code :

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

1
2
3
4
Case Else
        Target.Offset(0, 1) = ""
        Target.Offset(0, 2) = ""
        Target.Offset(0, 4) = ""

mais quenini????

**drakkar_agfa** · 20/02/2009, 22h57

Quenini???

ça ne fonctionne pas?

En exécutant le code pas à pas, est-ce que la macro entre dans le case else?

**Benwad** · 20/02/2009, 23h01

ca rentre dans le case else quand je choisis un nom qui n'est pas dans mon code mais par contre quand je supprime une cellule (par ex A16) il ne se passe rien...

**drakkar_agfa** · 20/02/2009, 23h09

Je ne sais pas quoi répondre, et je n'ai plus le temps pour aujourd'hui.

Mais vite, en échange, tu pourrais utiliser le selectionchange (au lieu du change).
Avec cette technique, tu vérifies si la target est dans le Range (comme dans l'autre macro) et, si c'est le cas, si la cellule est vide, alors vide les autres cellules.
C'est vraiment rabouté mais si c'est nécessairement rapidement...

bonne chance!

**Benwad** · 20/02/2009, 23h12

encore merci drakkar tchao

**drakkar_agfa** · 23/02/2009, 18h54

Bonjour,

J'ai fait le test avec cette macro :

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
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Target.Column <> 1 Then Exit Sub
 
    Select Case Target.Value
    Case "Mathieu"
        Target.Offset(0, 1) = "Pas vide (mathieu)"
    Case "Micael"
        Target.Offset(0, 1) = "Pas vide (micael)"
    Case ""
        Target.Offset(0, 1) = "Vide"
    Case " "
        Target.Offset(0, 1) = "Espace"
    Case Else
        Target.Offset(0, 1) = "Case else"
    End Select
 
End Sub

Ça fonctionne parfaitement. Quand tu utilises le case "", il faut s'assurer que ce n'est pas un " " (espace) mais bien vide.

Est-ce que ça fonctionne?

executer une macro quand on change la valeur d'une cellule

Macros et VBA Excel

Discussions similaires

Partager

Partager