erreur vba sur format date

Re : erreur vba sur format date

Bonjour,

peut être avec un test comme ceci, enfin si j'ai bien compris :

test si non vide, mais tu auras une erreur si contenu n'est pas une date... bizarre d'ailleurs que ta listbox puisse être vide.... il eut été préférable de mieux contrôler l'alimentation...

bonne journée
@+

Re : erreur vba sur format date

bonjour pierrot93

merci d etre passé sur mon fil
je viens de tester ton code et malheureusement j ai la meme erreur

pour repondre a ta remarque , ce sera toujours des dates , mais certaine cellules ne seront pas renseignees tandis que d'autre oui.
du coup j'aurai lors de l'alimentation de ma listbox sur cette colonne des cellules vident et d'autre avec des dates

je continue de chercher

merci

Re : erreur vba sur format date

Re,

une autre façon :

Re : erreur vba sur format date

re,
If ListBox1.List(Lign, 7) <> "" Then .Cells(DernLign + Lign + 1, 8) = CDate(ListBox1.List(Lign, 7))

voila ce que j ai mit et ça a l air de fonctionner

merci de ton aide

amicalement

ghislain

Re : erreur vba sur format date

Bonjour,
J'ai également un problème de date inversées sur VBA avec la macro suivante, peut-etre pourrez vous m'aider? Je vais chercher dans les colonnes V et G de l'onglet "extraction" des dates pour les réutiliser dans l'onglet "suivi des livraisons", je dois d'abord remplacer l'écriture de certaines dates dont février est écrit FEV, décembre DEC et août AOU, mais ensuite les dates dont le jour est inférieur ou égal à 12 s'inversent et se mettent au format mm/dd/yyyy dans mon onglet suivi des livraisons.

Sheets("Extraction").Select
Range("E1").Select
ActiveCell.FormulaR1C1 = "Clé commande OM"
Range("E2").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-4],""-"",RC[-3])"
Range("E2").Select
Selection.AutoFill Destination:=Range("E2:E399")
Range("E2:E399").Select

Cells.Select
Selection.Sort Key1:=Range("D2"), Order1:=xlAscending, Key2:=Range("A2") _
, Order2:=xlAscending, Key3:=Range("B2"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal

Columns("G:G").Select
Selection.Replace What:="FEV", Replacement:=" Février ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="AOU", Replacement:=" Août ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="DEC", Replacement:=" Décembre ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Columns("V:V").Select
Selection.Replace What:="FEV", Replacement:=" Février ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="AOU", Replacement:=" Août ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="DEC", Replacement:=" Décembre ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Sheets("Suivi des livraisons").Select
Range("A1").Select
End Sub

Re : erreur vba sur format date

Bonjour Cecileg,

pas trop de rapport avec la question initiale.. le mieux eût été de créer ton propre fil, en y joignant un petit fichier exemple avec modèle de donnée de départ et résultat attendu..

bonne journée
@+

Re : erreur vba sur format date

.........................

Re : erreur vba sur format date

Re,

regarde mon post de 09h49....

Re : erreur vba sur format date

N'y a -t-il pas une formule que je puisse rajouter dans la macro?

Re : erreur vba sur format date

Re,

regarde peut être la fonction vba "CDate", mais vu ton code pas sûr....

Re : erreur vba sur format date

J'ai déjà essayé CDate mais ca n'a pas marché

Re : erreur vba sur format date

Re,

encore faudrait il savoir si le contenu des cellules est bien considéré par Excel comme des dates... comme djà dit, un petit gfichier en pièce joindre nous aiderait à t'aider...

Re : erreur vba sur format date

Pourrais-tu me communiquer ton adresse mail?
Merci d'avance

Re : erreur vba sur format date

Re,

cecileg à dit:

Pourrais-tu me communiquer ton adresse mail?
Merci d'avance

Cliquez pour agrandir...

il est préférable de le déposer directement sur le forum, et un minimum de données devrait suffire...