sortir d'une boucle si estvide

[kaid]

Bonsoir
svp; mon code fonctionne parfaitement;

j'ai une 3 colonnes nommées Aujourd’hui + Nombre de jours + Situation.

ce que je veux quand la ligne de la colonne A est vide alors ne fait rien, Aujourd’hui + Nombre de jours + Situation : reste vide.

 

[kaid]

S'il vous plait j’aunais besoin en toute urgence

 

[Compte Supprimé 979]

ICI il n'y rien d'urgent... sauf parfois des gens pressés a qui on ne répond pas 😡

 

[cp4]

Bonjour Kaid, BrunoM45🙂

un essai à tester

Sub Actualiser()
    Dim derlig As Long, i As Long
    With Sheets("bd")
        derlig = .UsedRange.Rows.Count

        For i = 3 To derlig
            If .Cells(i, 1) <> "" Then
                .Cells(i, 1).Offset(, 6).FormulaR1C1 = "=today()"
                .Cells(i, 1).Offset(, 7) = .Cells(i, 1).Offset(, 5) - .Cells(i, 1).Offset(, 6)
            Else
                Cells(i, 1).Offset(, 6) = ""
                Cells(i, 1).Offset(, 7) = ""
            End If
        Next i
    End With

End Sub

 

[kaid]

Bonjour;
Merci beaucoup c'est parfait