Format de celule perdu suite a l'éxécution macro

[ssassam]

Bonjour Forum,

J'ai un USERFORM de gestion (Modification ou Suppression),

Pour la modification
Il me génère quelque erreur au format au cellule HEUR & au cellule avec des nombre en virgule.

Pour la Suppression
Je souhaite qu'il m'ajoute le texte Annulé a la cellule D du Bon de commande
Stp le fichier Test en PJ


Merci beaucoup les amis

 

[Hervé]

Re : Format de celule perdu suite a l'éxécution macro

doublon

https://www.excel-downloads.com/threads/macro-execute-format-de-celule-perdu.215391/

 

[ssassam]

Re : Format de celule perdu suite a l'éxécution macro

Svp merci de supprimer ce post

 

[pierrejean]

Re : Format de celule perdu suite a l'éxécution macro

bonjour ssassam

Vois si cela va un peu mieux

PS: pas compris la Suppression !!!

Edit : Salut Hervé Heureux de te croiser

 

[Hervé]

Re : Format de celule perdu suite a l'éxécution macro

salut

salut pierrejean, content aussi de te croiser, bises à madame

a plus

 

[ssassam]

Re : Format de celule perdu suite a l'éxécution macro

Bonjour Jean Pierre , aissu heureux de te croiser

Merci pour ton intérêt,

suite a ta modification j'ai toujours le truc vers sur la cellule des nombre et j'ai perdus mas format de date voila ce que je recois (31/12/1899 01:53:52)

Merci

 

[pierrejean]

Re : Format de celule perdu suite a l'éxécution macro

Re

J'ai pu oublier d'enregistrer
vois ceci

 

[ssassam]

Re : Format de celule perdu suite a l'éxécution macro

Yes Yes Yes pierrejean

J'ai réglé le problème de la date avec le code ci-après

    Case 1
      Sheets("feuil2").Cells(.List(.ListIndex, 1), i).Value = CDate(Controls("TextBox" & i))
      
    Case 2
      Controls("TextBox" & i) = Format(Sheets("feuil2").Cells(.List(.ListIndex, 1), i).Value, "hh:mm:ss")

Stp pierrejean lorsque j'annule une facture est ce que je peux avoir sur la ligne d'annulation en signe Négatif
et que la Case4 d'annulation = Case4 & "Annulé"

Merci

 

[ssassam]

Re : Format de celule perdu suite a l'éxécution macro

Pour l'annulation & le text a ajouté j'ai aussi gagné cette partie avec la modification Ci-après

           For x = 10 To 13
        .Cells(L, x).Value = Me.Controls("TextBox" & x).Value * -1
    Next x
    
               For x = 4 To 4
        .Cells(L, 4).Value = Cells(L, 4).Value & " Annulé"

    Next x