Discussion :

[mickey89]

Bonjour,

je veux qu'à l'ouverture d'un classeur, si la valeur d'une cellule de la colonne F est superieur à 7 , un pop up d'avertissement s'affiche

dans le code suivant, j'ai une erreur d'execution type 13 sur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Dt > 7 Then _

Savez vous pourquoi ?

Merci d'avance

Voici le code complet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub workbook_open() 
Dim Dt As Range 
 
Dim Ws As Worksheet 
Set Ws = Worksheets("feuil1" ) 
 For Each Dt In Ws.Range("F4:F" & Ws.Range("f65536" ).End(xlUp).Row) 
 
      If Dt > 7 Then _ 
      MsgBox "Le dossier est manquant pour " & Dt.Offset(0, -4) & " " & " , " & _ 
      Dt & " ", _ 
      vbExclamation, " attention " 
 
Next Dt 
 
End Sub

[zyhack]

Bonsoir

essaye en remplaçant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Dt > 7 Then _

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If val(Dt.value) > 7 Then _

à tout hasard

[mickey89]

trouvé, en fait, une erreur de cellule (pas de chiffre).

résolu.
merci