Transformer la fonction SI en VBA

Bonjour,

J'ai une fonction SI à mettre en place sur VBA : =SI(A2>(AUJOURDHUI()+2);SI(ESTVIDE(B2);"Alerte"))

J'aimerai répartir cette fonction sur une plage de cellule (A2:A145).

Cette fonction va me permettre d'envoyer un message d'alerte automatique concernant les commandes non-confirmées.

Je vous remercie d'avance

Bonjour,

Dans ce cas cette ligne de code devrait vous aider:

Range("A2:A145").FormulaLocal = "=SI(A2>(AUJOURDHUI()+2);SI(ESTVIDE(B2);""Alerte""))"

FormulaLocal permet d'écrire la formule de la même façon car la langue locale est le Français pour vous, j'ai juste dû doubler les guillemets.

Bonjour,

Je vous remercie ça fonctionne parfaitement !

J'ai créé un autre sujet à propos d'insertion de sous-totaux automatique (sous VBA ) dès que la date change.

Cette mise en place va me permettre encore une fois de lancer une alerte à J+3 pour connaitre le nombre de chargement.

Merci à vous et à très vite !

Sub ajouterTotal()

    Dim cellule As Range
    Set cellule = Range("A2")

    Dim day As Integer
day = cellule

    Dim compteur As Integer
    compteur = 0

    Do While celulle <> ""
        If cellule <> day Then
            celulle.EntireRow.Insert xlDown

            Set cellule = cellule.Offset(-1, 0)

            Range("A" & cellule.Row) = compteur & "ligne(s)"

            cellule.EntireRow.Font.Bold = True

            Set cellule = cellule.Offset(1, 0)

            compteur = 1

        Else

            compteur = compteur + 1

        End If

        day = cellule

        Debug.Print cellule, compteur

        Set celulle = celulle.Offset(1, 0)

    Loop

End Sub

dès que la date change