Discussion :

[dafchap]

Bonjour,

j'aimerais que ma macro (ici "compressibilité")se déclenche quand l'utilisateur aura copié une plage de données (dans mon cas "A1:K600") sur une feuille. Est-ce que c'est possible ?
J'ai voulu essayer ce code :

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target("K600").Value <> "" Then
Module2.Compressibilité
End If
 
End Sub

Mais ça bloque au niveau de la deuxième ligne. "Erreur 5 argument ou appel de procédure incomplet". Je débute...


David

[vinc_bilb]

Bonjour,

Quelques points:

1. Il faut que votre code évènementiel soit associé à la feuille destination. Pour le vérifier, vous pouvez mettre un point d'arrêt dans votre code et vérifier que l'éxécution s'arrête
2. Sous réserve du point 1, vous pouvez tester cela:

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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Dim RefRng As Range
 
    Set RefRng = Range("A1:K600") 'A adapter
    Debug.Print RefRng.AddressLocal
 
    Msgbox  RefRng.AddressLocal 'Pour bien vérifier que l'on passe par le code, à virer ensuite
 
    If Intersect(Target, RefRng) Is Nothing Then 
        Exit Sub   'On sort tout de suite si ce n'est pas une des cellules qui nous intéresse
    Else: Call  Compressibilité
 
    End If
 
End Sub

[dafchap]

Merci pour votre réponse.

Si pour le point 1 vous sous entendez qu'il faut que le code de "compressibilité" n'agisse que sur la feuille sur laquelle l’événement se passe, et bien ce n'est pas le cas.
En effet la seule chose que fait "compressibilité" sur la feuille (disons "feuille 1") où les données sont copiées (et donc sur la feuille sur laquelle je cherche à créer l'évènement), c'est insérer en haut de cette feuille 1 une ligne contenant le titre de chaque colonne de cette plage données.
Ensuite sur une feuille 2, le code copie une partie des données de la feuille 1 avec leur titres de colonnes, effectue des calculs sur ces données puis trace un graphe toujours sur cette feuille 2...

En fait la seule chose qu'est capable de déclencher l'évènement c'est d'insérer la ligne sur la feuille 1 (mais sans le texte) et ensuite ça bloque.

En j'ai essayé ce code

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target("L3").Value = "2" Then
Module2.Compressibilité
End If
 
End Sub

Or si je comprends bien ce que j'écris, normalement si la valeur de L3 est égale à 2, alors compressibilité devrait se lancer. Mais même si je cherche à entrer une valeur ailleurs (sur une cellule au hasard) que sur L3, le code de l’événement semble vouloir être lu, car à chaque fois j'ai un message d'erreur.

[clementmarcotte]

Bonjour,

En partant, cette ligne-là est erronée:

Code :

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

If Target("L3").Value = "2" Then

Le paramètre Target est la cellule cliquée avec sa propre adresse. C'est un objet Range qui a les mêmes propriétés qu'une cellule.

Si je comprends bien, tu veux que la valeur de L3 soit 2 pour que la macro procède.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
'ajouté pour fin de démonstration.
 
     msgbox(Target.address)
 
     If Range("L3").Value = "2" Then
          Module2.Compressibilité
     End If
 
End Sub