Discussion :

[Erwiin]

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

[BENNASR]

bonjour
personnellement je fais avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Erwiin]

bonjour
personnellement je fais avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Mais l'actuel c'est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[BENNASR]

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

[Erwiin]

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

[BENNASR]

voila pour S

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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