Worksheet change Excel

Version imprimable

Bonjour,

Etant un gros débutant sur macro excel et n'ayant pas trouvé réponses dans d'autres forums et/ou l'aide sur le site, je fais appel à vous
sur ma macro suivante portée par la feuil1
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Worksheet_Change(ByVal Target As Range) Dim Repertoire As String Dim Fichier As String Dim Chemin As String 'Fichier = ThisWorkbook.Name 'récupérer le nom du fichier 'Repertoire = ThisWorkbook.Path 'Chemin = Path_name & "\" & ThisWorkbook.Name & ".xlsx" 'Extraire Sheets(1).PageSetup.LeftFooter = "&B&I" & "Expertise N° " & Range("D104").Value End Sub
je souhaite que seule la cellule "D104" impact le pied de page parce que cette cellule peut être changée à tout moment. Je l'ai placé dans la procédure worksheet_Change. Par contre si les autres cellules de la feuille1 changent l'événement worksheet se déclenche et modifie mon pied de page à nouveau ce qui a pour effet "de ralentir".
Alors est il possible de cibler plus finement avec l'argument "target" exclusivement sur la cellule D104? et que les autres cellules lorsqu'elles changent ne viennent pas solliciter l'événement worksheet_change ?

si je mets le

Code:

Sheets(1).PageSetup.LeftFooter = "&B&I" & "Expertise N° " & Range("D104").Value

dans le worksheet_calculate ça n'a pas d'effet.
merci pour votre aide.

05/09/2018, 08h35
unparia

Bonjour
Le paramètre Target de cet évènement est la cellule objet de la modification.
Il te suffit donc de n'exécuter tes instructions que si l'adresse de Target n'est pas celle de ton choix.

Bonjour Esse, bonjour le forum,

Essaie comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Repertoire As String
Dim Fichier As String
Dim Chemin As String
 
If Target.Address <> "$D$104" Then Exit Sub
'Fichier = ThisWorkbook.Name 'récupérer le nom du fichier
'Repertoire = ThisWorkbook.Path
'Chemin = Path_name & "\" & ThisWorkbook.Name & ".xlsx"
'Extraire
Sheets(1).PageSetup.LeftFooter = "&B&I" & "Expertise N° " & Range("D104").Value
 
End Sub

[Édition]
Bonjour Unparia, nos posts se sont croisés...

Bonjour,

Code:

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$104" Then
   'ton code ici
End If
End Sub

05/09/2018, 08h38
esse2016

Bonjour Unparia, Pijaku, Thauteme,

Cela répond exactement à mon problème et fonctionne parfaitement.

Merci encore pour votre aide.