XL 2010 Modifier une condition

jigour

XLDnaute Nouveau
Bonjour a tous
Je souhaite modifier un code pour qu'une cellule vide soit ignorée et que le code continue a la cellule en dessous .
Actuellement la ligne est celle ci:

If ActiveSheet.Range("A18").Value = "" Then Exit Sub

Je souhaite que dans ce cas exel passe a la cellule ("A19").
Comment faire?
Merci d'avance
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Jigour,
Il suffit de retirer le Exit sub , par ex en faisant :
VB:
Sub essai()
    If ActiveSheet.Range("A18").Value<> "" Then
       ' code si A18 non vide
    ElseIf ActiveSheet.Range("A19").Value<> "" Then
        ' code si A19 non vide
    ElseIf ActiveSheet.Range("A20").Value<> "" Then
        ' code si A20 non vide
    Else
        Exit Sub  ' On sort si les trois cellules sont vides
    End If
End Sub
ou encore
Code:
If ActiveSheet.Range("A18") = "" Or ActiveSheet.Range("A19") = "" Then Exit Sub
Tout dépend de la structure de votre code
 
Dernière édition:

Discussions similaires

Réponses
1
Affichages
316

Statistiques des forums

Discussions
313 271
Messages
2 096 724
Membres
106 720
dernier inscrit
Alain EDZOA