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

meldja

XLDnaute Impliqué
Bonjour,
Un généreux donnateur de savoir m'a donné, sur ce forum, une macro pour effacer le contenu d'une cellule en fonction du changement d'une autre cellule :
Private Sub Worksheet_Change (ByVal Target as Range)
If Taget.Address = "$A$1" Then
Range ("A2").ClearContents
End Sub

Jusqu'ici tout va bien, pas de problème.
Seulement j'ai voulu rajouter une deuxième cellule à effacer :
Private Sub Worksheet_Change (ByVal Target as Range)
If Taget.Address = "$A$1" Then
Range ("A2").ClearContents
Range ("A3").ClearContents
End Sub

Et lorsque j'ai compliler le projet : Erreur, il faut que je rajoute End If avant End Sub, comme ça :
Private Sub Worksheet_Change (ByVal Target as Range)
If Taget.Address = "$A$1" Then
Range ("A2").ClearContents
Range ("A3").ClearContents
End If
End Sub

Ma question est donc la suivante : pourquoi lorsqu'il n'y a qu'une cellule à effacer, on se passe de End If (si on le met, ça fait une erreur, j'ai essayé) et pourquoi quand il y a plus d'une cellule à effacer il faut absolument mettre End If ?

Merci de m'aider à comprendre, je ne vois vraiment pas la logique de tout ça (ou alors c'est purement syntaxique ?)
 
Re : End If pouquoi

Bonjour

Le probleme ne vient pas du nombre de cellules à effacer mais d'un bloc de programmation
Code:
If X=y Then
   .........
   .........
   .........
End If ' Ferme le Bloc de programmation
Tu peux aussi ecrire :
Code:
If Taget.Address = "$A$1" Then Range ("A2").ClearContents : Range ("A3").ClearContents
Sans mettre de End if, puisqu'une seule ligne est utilisée dans le If

Mais il est plus propre, quand on a plusieures lignes de faire
Code:
If x = y then
 ......
 ......
else
 ......
 ......
End IF
 
- 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

Réponses
14
Affichages
337
Réponses
1
Affichages
301
Réponses
4
Affichages
380
Réponses
3
Affichages
441
  • Question Question
Microsoft 365 modifier un code
Réponses
1
Affichages
425
Retour