Problème : Inversion de texte dans le format de date

Version imprimable

06/04/2022, 11h08
Erwiin

Problème : Inversion de texte dans le format de date

Bonjour,

Alors... Pour des brèves explications :

Étant dans un milieu restreint, je ne peux pas partager de données de mon excel (j'imagine que si je partage juste des parties du code ça devrait aller).

Mais pour faire gros : C'est un suivi de matériel comprenant 38 colonnes afin d'informer quel est le matériel, son Serial Number, Product Number, date d'entrée, etc...

Lorsque je rentre ma valeur dans ma zone de texte de la macro (exemple -> ) 06/04/2022, et que je valide, dans ma ligne excel il sera marqué "04/06/2022".
C'est à dire que ma valeur DD sera inversé par ma valeur MM.
Mais... Si je rentre une valeur (exemple -> ) 13/04/2022, bien évidemment cela ne m'inversera pas mes valeurs car il n'y a pas de 13eme mois dans une année.

Ma colonne à bien comme Format de cellule DD/MM/YY et est bien en Français (France)

Je ne m'y connait pas trop en codage, j'ai fait quelques recherches (mêmes sur les forums anglais) et j'avoue que après plusieurs essais de modification, je sèche....

Évidemment si ils faut plus d'informations je les donnerais, mais ne connaissant pas tout, je ne sais pas quoi vous dire de plus pour l'instant.
PS : J'ai déjà plus de 2000 Lignes et environ 5000 dates sur mon Excel, donc si une solution est possible sans avoir à re-modifier toutes les différentes dates manuellement ça m'arrange ^^'

Je travaille sur Microsoft Office Professionnel Plus 2016

bonjour
personnellement je fais avec :
Code:

1 2 .Range("B" & j).Value = CDate(TextBox1.Value) .Range("B" & j).NumberFormat = "m/d/yyyy"

06/04/2022, 13h15
Erwiin
Citation:
Envoyé par BENNASR

bonjour
personnellement je fais avec :

Code:

1 2 .Range("B" & j).Value = CDate(TextBox1.Value) .Range("B" & j).NumberFormat = "m/d/yyyy"
Comme expliqué juste avant, je dois avouer que je comprend pas grand chose aux codes.... :oops:

Mais l'actuel c'est :
Code:

1 2 3 Private Sub TextBoxMad_AfterUpdate() TextBoxMad.Value = Format(TextBoxMad.Value, "dd/mm/yyyy") End Sub
Mais après c'est juste pour l'entrée dans la TextBox non ? et non pour la validation de la ligne qui sera implantée dans l'excel ?
En fait, je ne saurais pas ou placer les lignes que vous m'avez donnés....
Ce que je fais actuellement n'est pas mon travail de base mais plus du "quand j'ai le temps" pour trouver les erreurs "minime" de notre excel
06/04/2022, 13h18
BENNASR

si
c'est la validation de la ligne qui sera implantée dans l'excel
06/04/2022, 13h22
Erwiin

Citation:

Envoyé par BENNASR

si
c'est la validation de la ligne qui sera implantée dans l'excel

Mais du coup, sachant que pour mes colonnes de dates (pour l'exemple je ne vais pas toutes les donner ce serait long...) j'ai la colonne S ; U ; V ; W

Comment pourrais-je modifier votre code pour l'adapter à mon excel ?
Ou si possible de m'expliquer au moins je le saurais pour la prochaine fois :D

1 pièce(s) jointe(s)

voila pour S

Code:

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
Dim j As Long
With Sheets("Feuil1")
j = .Range("S" & Rows.Count).End(xlUp).Row + 1 'chercher la dernière ligne vide +1 
.Range("S" & j).Value = CDate(TextBox1.Value)
.Range("S" & j).NumberFormat = "m/d/yyyy"
End With
End Sub

Citation:
Envoyé par BENNASR
voila pour S
Code:

1 2 3 4 5 6 7 8 Private Sub CommandButton1_Click() Dim j As Long With Sheets("Feuil1") j = .Range("S" & Rows.Count).End(xlUp).Row + 1 'chercher la dernière ligne vide +1 .Range("S" & j).Value = CDate(TextBox1.Value) .Range("S" & j).NumberFormat = "m/d/yyyy" End With End Sub
Alors... C'est résolu merci :)

Pour l'explication :

La partie qui posait problème était celle-ci :

Code:

Sheets("INVENTAIRE").Cells(LigneSelect, 19).Value = TempIn

J'ai donc modifié en :

Code:

Sheets("INVENTAIRE").Cells(LigneSelect, 19).Value = CDate(TempIn)

Sachant que TempIn = TextBoxIn.Text