Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

  • Initiateur de la discussion Initiateur de la discussion ssassam
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

ssassam

XLDnaute Occasionnel
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
 

Pièces jointes

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
 

Pièces jointes

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
 
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

Code:
    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
 
Dernière édition:
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

Code:
           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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Question Question
Réponses
3
Affichages
1 K
M
B
Réponses
2
Affichages
2 K
B
A
Réponses
3
Affichages
13 K
Annasteph
A
Y
Réponses
5
Affichages
2 K
yasminajm
Y
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…