Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

(RESOLU) Comment mettre à jour une cellule dès modification d'une plage de cellules

  • Initiateur de la discussion Initiateur de la discussion corvelc
  • 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 !

corvelc

XLDnaute Occasionnel
Bonjour,

Comment pourrai-je faire par macro pour mettre à jour automatiquement la date du jour dans la cellule A36 de l'onglet 'MAJ' dès qu'une des cellules de la plage C36 à H36 de ce même onglet sont modifiées par un utilisateur ?

merci d'avance

CC
 
Dernière édition:
Re : Comment mettre à jour une cellule dès modification d'une plage de cellules

Bonjour

A mettre dans le code de la feuille concernée :

Code:
Private sub Worksheet_Change(ByVal Target As Excel.Range)  
If Not Intersect(Target, Range("C36:H36")) Is Nothing Then  
range("A36")=now  
End If  
end sub
 
Re : Comment mettre à jour une cellule dès modification d'une plage de cellules

merci bien, J'y ai trouvé ce que je voulais pour répondre à mon besoin

pour ceux que cela peut interesser, voici le code mis en place:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([C36:H36], Target) Is Nothing And Target.Count = 1 Then
Range("A36") = "Consommé MAJ au " & CStr(Now)
End If
If Not Intersect([C38:H38], Target) Is Nothing And Target.Count = 1 Then
Range("A38") = "RAF MAJ au " & CStr(Now)
End If
End Sub
 
- 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

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…