Discussion :

[Benwad]

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]

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]

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]

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]

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]

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]

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]

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!