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

Microsoft 365 Format date d'une textbox vers une cellule

N

netparty

XLDnaute Occasionnel
Bonjour à tous
Je rencontre un petit problème lorsque je copie les données d'une textbox vers une cellule.
Dans mon tableau les colonnes contenant des dates ont le format dd-mm-yyyy mais après écriture depuis le formulaire le format devient dd/mm/yyyy
Comment est-il possible de modifier cela ?
Voici mon code, les colonnes contenant des dates sont la : 20, 23, 24, 25
VB: 
Private Sub b_valid_Click() 'bouton modif
    If Me.Enreg <> "" And Me.textbox6 <> "" Then
       noEnreg = Me.Enreg
      For k = 1 To Ncol    'k = decalage de colone
       If k <> 2 And k <> 11 And k <> 12 And k <> 14 And k <> 15 Then 'evite de copier les colonne 2 (B) 11(K) 12(L) 14(N) 15(O)
       X = Replace(Me("textBox" & k), " ", "")
           If Me("textbox" & k) <> "" Then
               f.Cells(noEnreg, k) = Me("textBox" & k)
           Else
               f.Cells(noEnreg, k) = Empty
           End If
       End If
      
      Next k
      UserForm_initialize
    End If
End Sub

Merci d'avance
 
Solution
bonjour c'st ta cellule qu'il faut formater pas la donnée date
encore faut il savoir le quel textbox (quelle colonne contient la dte

VB: 
Private Sub b_valid_Click()    'bouton modif
    If Me.Enreg <> "" And Me.textbox6 <> "" Then
        noEnreg = Me.Enreg
        For k = 1 To Ncol    'k = decalage de colone
            If k <> 2 And k <> 11 And k <> 12 And k <> 14 And k <> 15 Then    'evite de copier les colonne 2 (B) 11(K) 12(L) 14(N) 15(O)
                X = Replace(Me("textBox" & k), " ", "")
                If Me("textbox" & k) <> "" Then
                    Select Case k
                    Case 20, 23, 24, 25: f.Cells(noEnreg, k) = CDate(Me.Controls("textBox" & k)): f.Cells(noEnreg, k).NumberFormat = "dd-mm-yyyy"...
Trier par date Trier par votes

patricktoulon

XLDnaute Barbatruc
bonjour c'st ta cellule qu'il faut formater pas la donnée date
encore faut il savoir le quel textbox (quelle colonne contient la dte

VB: 
Private Sub b_valid_Click()    'bouton modif
    If Me.Enreg <> "" And Me.textbox6 <> "" Then
        noEnreg = Me.Enreg
        For k = 1 To Ncol    'k = decalage de colone
            If k <> 2 And k <> 11 And k <> 12 And k <> 14 And k <> 15 Then    'evite de copier les colonne 2 (B) 11(K) 12(L) 14(N) 15(O)
                X = Replace(Me("textBox" & k), " ", "")
                If Me("textbox" & k) <> "" Then
                    Select Case k
                    Case 20, 23, 24, 25: f.Cells(noEnreg, k) = CDate(Me.Controls("textBox" & k)): f.Cells(noEnreg, k).NumberFormat = "dd-mm-yyyy"
                    Case Else: f.Cells(noEnreg, k) = Me.Controls("textBox" & k)
                    End Select
                Else
                    f.Cells(noEnreg, k) = Empty
                End If
            End If

        Next k
        UserForm_initialize
    End If
End Sub
 
Vote positif 0 Vote négatif
Solution

Dranreb

XLDnaute Barbatruc
Bonjour.
Pour une exécution plus rapide évitez de renseignez les cellules une par une: chargez la valeur de toute la plage d'une ligne dans un tableau dynamique, modifiez les éléments à modifier puis déchargez le dans la même plage.
Pour la colonne vous auriez meilleur temps de faire 2 boucles: For K = 1, 3 To 10, 13, 16 To 19 pour les textes (êtes vous sûr de n'avoir pas aussi des quantités ?) et For K = 20, 23 To 25 pour les dates.
 
Dernière édition:
Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc
Je pense, oui. Mais c'est vrai que je n'ai pas essayé … Chaque boucle doit avoir son propre Next K, bien sûr. Pourquoi ne serait-ce pas utilisable en l'état ? Aurais-je confondu avec une syntaxe seulement autorisée dans un autre contexte ?
Ah oui, c'est cela, en fait ce n'est pas utilisable dans une boucle For. Désolé.
Alors faire une seule boucle For K = 1 To 25 et dedans un Select Case K utilisant cette syntaxe avec Case 1, 3 To 10, 13, 16 To 19 et un Case 20, 23 To 25.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

E
  • Résolu(e)
XL 2019 inserer une valeur textbox dans la dernière cellule vide horizontalement
Réponses
7
Affichages
576
escudo
E
G
  • Résolu(e)
XL 2021 VBA dates au mauvais format
Réponses
5
Affichages
250
vgendron
  • Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
N
  • Question
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
300
NONO14
N
N
  • Résolu(e)
Microsoft 365 Modification impossible d'une TextBox
2 3 4
Réponses
56
Affichages
1 K
NONO14
N
U
  • Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
328
Phil69970
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
463
arnoldbrice19
A
S
  • Résolu(e)
XL 2019 Problème de remplissage cellule en vba
Réponses
5
Affichages
346
snoopy07
S
M
  • Résolu(e)
XL 2016 Amélioration de code
Réponses
3
Affichages
557
M@xu3L
M
  • Résolu(e)
XL 2010 Masque de saisie textbox Téléphone Public
Réponses
8
Affichages
684
cathodique
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…