Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1412 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA] erreur 13

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VBA] erreur 13

n°2000296
mickey89
Posté le 09-06-2010 à 17:14:54  profilanswer
 

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 le If Dt > 7 Then _
savez vous pourquoi ?
 
voici le code
 
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

mood
Publicité
Posté le 09-06-2010 à 17:14:54  profilanswer
 

n°2000411
Deamon
Posté le 10-06-2010 à 09:52:16  profilanswer
 

Je ne sais plus ce qu'est le type Range mais à mon avis c'est pas un entier donc tu peux pas le comparer direct à un nombre.

n°2000559
dje69r
Arme de distraction massive
Posté le 10-06-2010 à 14:48:37  profilanswer
 

Hello
 
Tu te prends un peu la tete pour rien...
Pas besoin de déclarer des varibales dont on a pas besoin.
 
Regarde ce bout de code :

Code :
  1. Range("F4:F" & Range("F65536" ).End(xlUp).Row).Select
  2. For Each Dt In Selection
  3.       If Dt.Value > 7 Then _
  4.         MsgBox "Le dossier est manquant pour " & Dt.Offset(0, -4) & " " & " , " & _
  5.         Dt & " ", _
  6.         vbExclamation, " attention "
  7. Next Dt


Message édité par dje69r le 10-06-2010 à 14:54:05

---------------
Plus tu pédales moins vite, moins tu avances plus vite — SuperLoustic ! La radio des Loustics !

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA] erreur 13

 

Sujets relatifs
Erreur code VBA sur Excel2007[VBA] Pb gestion d'erreur
Erreur 3061 sous VBA ACCESS[VBA] erreur de compilation procédure trop grande
[VBA] Erreur 1004 AutoFiltre method of Range class failed[VBA Excel 2007] erreur Nombre d'arguments incorrects [RESOLU]
[VBA] Erreur out of range sur scriptErreur de compilation VBA Access
Erreur requête SQL en VBA dans ExcelErreur d'execution '9' VBA sur Excel 2007
Plus de sujets relatifs à : [VBA] erreur 13


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR