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

Macro si cellule modifiée

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

Nanir

XLDnaute Occasionnel
Bonsoir à tous,

Comme d'habitude je reviens vers vous car je patauge un peu...
J'ai une colonne qui recoit des données : A38:A48 que j'ai nommé essai.
Je cherche à masquer les lignes vides dans cette zone.
En cherchant dans l'aide j'ai adapté ceci :

Private Sub Worksheet_Change(ByVal Target As Range)

For Each rw In [Feuil1!essai].Rows
If rw = 0 Then
rw.Hidden = True
Else
rw.Hidden = False
End If
Next rw
End Sub

Ce code fonctionne très bien seulement à chaque fois que je modifie n'importe quel cellule dans la feuille le code s'exécute. J'aimerai qu'il s'éxécute si et seulement si "essai" est modifié (pour gagner du temps).
A mon avis il faut surement faire le rapprochement entre "essai" et target, mais je ne sais pas faire...
Pourriez vous m'aider?
Merci beaucoup.
 
Re : Macro si cellule modifiée

Bonjour Pascal,

J'ai eu du mal a adapter ton code car il y a une autre macro qui supprime ou ajoute des lignes au dessus de ("A38:A48"). Du coup l'adresse de la zone peut varier.

J'ai modifié ton code comme ceci :

if not intersect (target,Range("$A$38:$A$48"))is nothing then
mon code
end if

Ca fonctionne très bien, mais j'espère avoir fait juste.

Autre petite question :
Peut on avoir :

Private Sub Worksheet_Change(ByVal Target1, Target2, Target3 As Range)?
Ca ce dit?

Merci.
 
Re : Macro si cellule modifiée

Bonsoir Nanir, Pascal

je ne sais pas si tu peux avoir plusieurs "Target", je ne pense pas, mais tu peux contrôler plusieurs plages en les séparant par une ",", exemple ci dessous.

Code:
If Not Application.Intersect(Target, Range("A38:A48,K38:S38,T38:U45")) Is Nothing Then

Bonne soirée
@+
 
- 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

E
Réponses
6
Affichages
863
ExcelNewbie96
E
J
Réponses
5
Affichages
867
J
G
Réponses
6
Affichages
1 K
Gilouexcell
G
Z
Réponses
3
Affichages
1 K
Z
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…