écrire un code vba

[pascal21]

bonsoir
je cherche comment écrire ceci en langage vba

si une des cellules de la colonne b (de b4 à b 38) feuil1 est > à la valeur de la cellule S1 alors msgbox "vous devez changer la date de la cellule b4

vbok
ce mesage ne doit apparaitre qu'une seule fois par ouverture du classeur
donc je pensais à placer ce code dans workbook open
ce que je ne sais pas écrire c'est 'si une des cellules de la colonne B'
merci

 

[bqtr]

Re : écrire un code vba

Bonjour Pascal,

Essaye ceci: à placer dans le module de code du Thisworkbook

Private Sub Workbook_Open()

Dim cell As Range
With Sheets("Feuil1")
  For Each cell In .Range("B4:B38")
    If cell > .Range("S1") Then
       MsgBox "vous devez changer la date de la cellule b4"
       Exit Sub
    End If
  Next
End With

End Sub

A+

Edit : Salut Staple, Hasco

 

[Staple1600]

Re : écrire un code vba

Bonjour


A tester

Sub test()
T_Date = _
Application.WorksheetFunction.CountIf(Range("B4:B38"), ">" & Val(Range("S1")))
If T_Date > 0 Then MsgBox "vous devez changer la date de la cellule b4"
End Sub

Edit: bonsoir bqtr

 

[Guest]

Re : écrire un code vba

Bonsoir Pascal,
Voici une méthode

Private Sub Workbook_Open()
    If Application.CountIf(Sheets("feuil1").Range("B4:B38"), ">" & Sheets("feuil1").Range("S1")) > 0 Then
        MsgBox "vous devez changer la date de la cellule b4"
    End If
End Sub

A vérifier: le nom de la feuille 'feuil1' ou 'Feuil1' ?

A bientôt

[Edit] Salut Staple, trop rapide!😀

 

[Staple1600]

Re : écrire un code vba

Bonsoir Hasco 😉

J'ai rajouté le Val:

Val(Range("S1")

sinon çà ne fonctionne pas avec des dates