XL 2010 Modifier une condition

[jigour]

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]

Bonjour Jigour,
Il suffit de retirer le Exit sub , par ex en faisant :

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

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

Tout dépend de la structure de votre code