Alerte VBA,erreur imcompatibilité de type
alex-Mich
Messages postés
5
Statut
Membre
-
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
Bonjour a tous,
voila j ai creer une alerte VBA dans exel qui fonctionne sauf quand une cellule est rempli par "#VALEUR!".
que dois je indiquer dans la programmation de mon alerte pour que celle si ne tienne pas compte des cellules de la meme colonne comprenant #VALEUR!
voici ma programmation:
Private Sub Workbook_Open()
'pour péremption après ouverture
Dim Délaiavantexpiration As Range
For Each Délaiavantexpiration In ActiveSheet.Range("Délai_avant_expiration")
Valeur = Cells(Délaiavantexpiration.Row, 2)
If Délaiavantexpiration <= "0" Then
MsgBox "Le Standard " & Valeur & " doit être remplacer.", vbCritical, "Standard à remplacer"
Else
End If
If (Délaiavantexpiration >= 1) And (Délaiavantexpiration < 10) Then
MsgBox "Le Standard " & Valeur & " devra bientôt être commandée.", vbExclamation, "Standard à commander"
Else
End If
Next
'pour péremption usine
Dim Datedexpiration As Range
For Each Datedexpiration In ActiveSheet.Range("Date_d_expiration")
Valeur = Cells(Datedexpiration.Row, 2)
If (Datedexpiration <= Date) And (Datedexpiration > Date - 3) Then
MsgBox "Le Standard " & Valeur & " doit être remplacer.", vbCritical, "Standard à remplacer"
Else
End If
Next
Grand merci d avance a vous tous.
voila j ai creer une alerte VBA dans exel qui fonctionne sauf quand une cellule est rempli par "#VALEUR!".
que dois je indiquer dans la programmation de mon alerte pour que celle si ne tienne pas compte des cellules de la meme colonne comprenant #VALEUR!
voici ma programmation:
Private Sub Workbook_Open()
'pour péremption après ouverture
Dim Délaiavantexpiration As Range
For Each Délaiavantexpiration In ActiveSheet.Range("Délai_avant_expiration")
Valeur = Cells(Délaiavantexpiration.Row, 2)
If Délaiavantexpiration <= "0" Then
MsgBox "Le Standard " & Valeur & " doit être remplacer.", vbCritical, "Standard à remplacer"
Else
End If
If (Délaiavantexpiration >= 1) And (Délaiavantexpiration < 10) Then
MsgBox "Le Standard " & Valeur & " devra bientôt être commandée.", vbExclamation, "Standard à commander"
Else
End If
Next
'pour péremption usine
Dim Datedexpiration As Range
For Each Datedexpiration In ActiveSheet.Range("Date_d_expiration")
Valeur = Cells(Datedexpiration.Row, 2)
If (Datedexpiration <= Date) And (Datedexpiration > Date - 3) Then
MsgBox "Le Standard " & Valeur & " doit être remplacer.", vbCritical, "Standard à remplacer"
Else
End If
Next
Grand merci d avance a vous tous.
A voir également:
- Alerte VBA,erreur imcompatibilité de type
- Fausse alerte mcafee - Accueil - Piratage
- Iptv erreur de lecture - Forum TV & Vidéo
- Type de ram - Guide
- Erreur 3000 france tv - Forum Lecteurs et supports vidéo
- Erreur t32 ✓ - Forum Livebox
3 réponses
Bonjour,
Ben, je serai tente de vous demander pourquoi des cellules contiennent #VALEUR! ??
Ensuite, votre fichier a dispo serait bienvenu, sans donnees confidentielles
Ben, je serai tente de vous demander pourquoi des cellules contiennent #VALEUR! ??
Ensuite, votre fichier a dispo serait bienvenu, sans donnees confidentielles
voici le lien de mon fichier : https://www.cjoint.com/c/FKdlpp7Hyk3
je vous remercie d avance de votre aide.
je vous remercie d avance de votre aide.
Parce que tu trouves que '- est une date valide ?
Teste ta cellule avant :
eric
edit : et tu es sûr que ce sera toujours la feuille 'Standard' active à l'ouverture ?
Dans workbook_Open tu ne spécifies pas la feuille de travail, ça sera la feuille active
Teste ta cellule avant :
If Not IsError(Délaiavantexpiration) Then ... End If
eric
edit : et tu es sûr que ce sera toujours la feuille 'Standard' active à l'ouverture ?
Dans workbook_Open tu ne spécifies pas la feuille de travail, ça sera la feuille active
merci pour votre aide à vous 2.
f894009 c est ta 1er formule qui fonctionne le mieux,seulement même si ma cellule est vide un message d'alerte apparaît.
si tu as une idee pour mon alerte dans VBA afin qu il ne tient pas compte de mes cellules vide?
mais bon tu m as déjà pas mal aide et encore merci.
f894009 c est ta 1er formule qui fonctionne le mieux,seulement même si ma cellule est vide un message d'alerte apparaît.
si tu as une idee pour mon alerte dans VBA afin qu il ne tient pas compte de mes cellules vide?
mais bon tu m as déjà pas mal aide et encore merci.
Re,
Fichier modifie, avec meme formule pour les deux colonnes.
Cette formule(=SI(G6="";"";G6+365)) qui marchait avant ne marche plus prend la colonne G en nombre et plus en date ??
https://www.cjoint.com/c/FKepBHpjwvf
Fichier modifie, avec meme formule pour les deux colonnes.
Cette formule(=SI(G6="";"";G6+365)) qui marchait avant ne marche plus prend la colonne G en nombre et plus en date ??
https://www.cjoint.com/c/FKepBHpjwvf
ma cellule marque #Valeur! car cette cellule est le résultat de la formule d une autre cellule (qui est une date)+365.
Cette cellule comprenant #VALEUR! fait partie de ma colonne Délaiavantexpiration.
j'aimerais bien envoyer mon fichier exel pour vous aider mais comment faire?
Merci a vous.
Sans que ta date d'origine n'en est pas une mais du texte (alignée à gauche et non à droite).
Revalide-là et contrôle que le format soit Standard ou Date.
cjoint.com pour déposer un fichier et coller ici le lien fourni.
eric
j ai mis ci dessous le lien de mon fichier.