declanchement d macro au changement de cellule

  • Initiateur de la discussion Initiateur de la discussion italien
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

I

italien

Guest
Bonj
j'ai affécte un macro à une feuille excel:
Sub SaveCopyAs()
ActiveWorkbook.SaveCopyAs 'c:\\Mes documents\\' & Day(Date) & Month(Date) & Year(Date) & '.xls'
End Sub
pour le lancement du macro j'ai inserer ce code dans la feuille:
Sub SaveCopyAs()
ActiveWorkbook.SaveCopyAs 'c:\\Mes documents\\' & Day(Date) & Month(Date) & Year(Date) & '.xls'
End Sub
Je voudrais que le macro se lance juste au changement des cellule A20:I20 et A21:I21,
Merci et si vous pourriez m'expliquer pas à pas s'il y a des grand changement.
Desolé pour les fautes je suis italien
 
Buongiorno e benvenuto,

Code à mettre dans la feuille que tu veux surveiller:
Code:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  Dim vI As Variant
  Set vI = Application.Intersect(Target, Range([A20], [I21]))
  If Not vI Is Nothing Then
    ActiveWorkbook.SaveCopyAs 'c:Mes documents' & Day(Date) & Month(Date) & Year(Date) & '.xls'
  End If
End Sub
 
meci pour ta reponse
Je me suis peut etre mal expliqué.
J'ai cée un tableau avec 8 colonne, chaque heure je doit faire un calcul dans chaque colonne en inserant des dvaleur; Je voudrais que mon macro de copie se declenche au changemet de la derniere cellule de la colonne exp A20, L'heures d'apres colonne 2 A21 (vu que la derniere cellule des colonne c'est la somme de tout les valeur). Je voudrais eviter de declencher le macro a chque changemet de toute le cellule de la feuille (trop de memoire pour le pc); Avec ton code le macro se declanche quands je change la plage de cellule entiere A20:I21?
ou cellule par cellule?
Merci
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Microsoft 365 Problème de date
Réponses
5
Affichages
354
Z
Réponses
7
Affichages
1 K
Zifox
Z
Retour