Discussion :

[jori78]

Bonjour,

Je sollicite de l'aide en vba pour un script dont je n'arrive pas à trouver. Il faut dire que je suis un sénior débutant en VBA

Mon Problème est le suivant. J'ai dans un tableau une plage de cellules située dans la colonne K, les cellules allant de K17:K (plage que j'ai nommée "pointage") . Je souhaite par l'intermédiaire de Private Sub Worksheet_Change(ByVal Target As Range) lorsque la valeur d'une des cellules vides change par une action manuelle par un ("X"), je puisse actionner une autre macro par Call ….

Quelqu'un peut-il me mettre sur la voie, je vous remercie par avance

cordialement

[Jean-Philippe André]

Salut,

tu peux utiliser la notion d'intersection entre la cellule qui a changé et la plage de cellule qui t'intéresse :
pour l'event
https://silkyroad.developpez.com/VBA...Feuille/#LII-E

pour l'intersection
https://silkyroad.developpez.com/VBA...Feuille/#LII-I

bonne lecture

[jori78]

Salut,

tu peux utiliser la notion d'intersection entre la cellule qui a changé et la plage de cellule qui t'intéresse :
pour l'event
https://silkyroad.developpez.com/VBA...Feuille/#LII-E

pour l'intersection
https://silkyroad.developpez.com/VBA...Feuille/#LII-I

bonne lecture

Merci pour les conseils mais je ne suis pas beaucoup plus avancé !

[Patrice740]

Bonjour,

Merci pour les conseils mais je ne suis pas beaucoup plus avancé !

Mais encore ??? Quel est le code de ta macro qui pose problème ?

[jori78]

Bonjour Patrice

Ci-dessous le script qui me pose problème, merci pour ton éclairage et ton aide

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
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim plage As String
 
  plage = "pointage"
 
'vérifie si une des cellules de la colonne "K17: K" nommé "pointage" est renseignée par "X", puis action Call..
 
          If Target.Rows.Count = 1 And Target.Cells.Count = 1 _
               And Not Application.Intersect(Target, Range("plage" & "")) Is Nothing Then
             If Target.Value = "X" Then
               Call ToutCalculer
            End If
         End If
End sub

cordialement

José

[Patrice740]

Re,

Si "pointage" est une plage nommée de la feuille, essaies :

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim plage As Range
  Set plage = Me.Range("pointage")
  If Target.Count = 1 And Not Intersect(Target, plage) Is Nothing Then
    If Target.Value = "X" Then
      Call ToutCalculer
    End If
  End If
End Sub

[jori78]

Voici le message suite au lancement de la procédure..

projet ou bibliothèque introuvable ! je ne vois où est l'érreur dans ton script

Je fonctionne sur Windows 10 avec office pro 2019. il y a des fonctions tel que "calendar" qui ne fonctionne plus avec ce nouvel office !! capricieux le nouvel office ..

ci joint fichier excel démembré

Merci pour ton retour

José

[Patrice740]

Voici le message suite au lancement de la procédure..

projet ou bibliothèque introuvable ! je ne vois où est l'érreur dans ton script
Je fonctionne sur Windows 10 avec office pro 2019. il y a des fonctions tel que "calendar" qui ne fonctionne plus avec ce nouvel office !! capricieux le nouvel office ..

As-tu vérifié les références (Outils/Références) du projet VBA ?

[jori78]

non effectivement, mais là je suis un peu perdu, car je ne sais pas !

[Patrice740]

non effectivement, mais là je suis un peu perdu, car je ne sais pas !

Avec 2019 je ne sais pas mais autrement lorsqu'une référence n'est pas trouvée, dans la liste, elle est marquée MANQUANT:Nom_de_la_référence

[jori78]

oui effectivement pour le calendar elle est marquée Manquante, et j'ai vue par ailleurs que c'est volontaire de la part de Microsoft, mais là n'est pas le problème, pour le code qui m'intéresse.
Le script que tu m'as gentiment transmis ne fonction pas !! as tu une autre idée STP

[unparia]

Bonjour
le code que t'a montré Patrice740 ne peut que fonctionner, pour autant qu'existe une plage nommée "pointage"
Si tel est bien le cas et que tu reçois un message d'erreur, il est le résultat de ta procédure ToutCalculer dont tu ne montres pas le code.... !

[jori78]

Bonsoir unparia,

la macro "ToutCalcler" peut être remplacé par un MsgBox "cellule modifiée", vbInformation. La plage "pointage" contient des cellules vides et des cellules qui ont été pointée par "X"

La macro "toutcalculer" fonctionne en individuelle, pas de problème avec ça

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
Dim plage As Range
  Set plage = Me.Range("pointage")
  If Target.Count = 1 And Not Intersect(Target, plage) Is Nothing Then
    If Target.Value = "X" Then
      Msgbox"cellule modifiée",vbinformation
    End If
  End If
End Sub

merci pour ton aide

josé

[unparia]

Bonjour
le code que t'a montré Patrice740 ne peut que fonctionner, pour autant qu'existe une plage nommée "pointage"

[jori78]

Patrice 740

Merci pour ton aide quand même, mais je crois que j'ai de gros problèmes avec cette version d'office 2019

[jori78]

 

Bonjour Unparia

J'ai testé sur une autre machine avec excel 2007 et un classeur vierge ouvert depuis excel 2007, je confirme que ce code ne fonctionne pas !! et je n'ai pas de message, rien..
la plage "pointage" excite bien elle démarre à $K$16:k
je ne comprends pas où est le problème...

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
Dim plage As Range
  Set plage = Me.Range("pointage")
  If Target.Count = 1 And Not Intersect(Target, plage) Is Nothing Then
    If Target.Value = "X" Then
      Msgbox"cellule modifiée",vbinformation
    End If
  End If
End Sub

cordialement

José

[Patrice740]

J'ai testé sur une autre machine avec excel 2007 et un classeur vierge ouvert depuis excel 2007, je confirme que ce code ne fonctionne pas !! et je n'ai pas de message, rien..
la plage "pointage" excite bien elle démarre à $K$16:k
je ne comprends pas où est le problème...

Ce code fonctionne parfaitement mais peut-être que tu saisis x au lieu de X !!!

Si tu veux indifféremment l'un ou l'autre :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
Dim plage As Range
  Set plage = Me.Range("pointage")
  If Target.Count = 1 And Not Intersect(Target, plage) Is Nothing Then
    If UCase(Target.Value) = "X" Then
      MsgBox "cellule modifiée", vbInformation
    End If
  End If
End Sub

[jori78]

Bonjour Patrice740

Oui, mais c'est bien sur !! pourquoi n'y ai-je pas pensé avant..
Je confirme ça fonctionne très bien
Je te remercie Patrice, merci pour ta persévérance et ton aide

cordialement et bonne journée

José