Macro si cellule modifiée

[Nanir]

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.

 

[PascalXLD]

Re : Macro si cellule modifiée

Bonjour

en debut de code

if not intersect (target,Range("A38:A48"))is nothing then
ton code

end if

 

[Nanir]

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.

 

[Pierrot93]

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.

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

Bonne soirée
@+

 

[Nanir]

Re : Macro si cellule modifiée

Ok, merci pour vos conseils,
A bientôt.