XL 2010 comment Obtenir un format date

Didou1

XLDnaute Nouveau
Bonjour le forum,

Voilà j'utilise un userform avec plusieurs boutons
Jusqu'à maintenant sur chaque bouton j'utilisais du texte, je voudrais remplacer par une date
Le problème c'est que quand je valide il me met en format texte
je pense que j'ai du oubliée quelque chose

Voici une partie de mon code
Merci pour votre aide

VB:
Dim i As Range

Sub inivar(i)
    pos = i
    MonJour = Me("CommandButton" & i).caption
End Sub

Private Sub CommandButton1_Click()
    For Each i In Selection
        i.Value = Format(Date, "17/04/2020")
    Next
  
    inivar 1
End Sub
 

patricktoulon

XLDnaute Barbatruc
bonsoir
ben..peut etre parce qu'avec "format" c'est du texte que tu injecte

et c'est pas la seule erreur voir meprise
quand tu boucle

For Each i In Selection

i c'est quoi des ligne , des cellules , des areas ,etc....
soit plus precis dans tes codes

et puis tu te mélange aussi les pinceaux entre des variable object range long,double,string,ou integer
tu fait d'abords
VB:
Dim i As Range

Sub inivar(i)
    pos = i'ici donc pos sera nothing car i n'est pas déterminé d'autant plus que c'est sensé être un range donc il manque un set devant pos 
    MonJour = Me("CommandButton" & i).caption
End Sub

et dans le click tu fait
inivar 1
FAUT SAVOIR TON "i" C'EST UN RANGE OU UN LONG OU UN DOUBLE OU UN INTEGER


CONCLUSION
tu garde rien tu refait tout ;)
COMME ton code est bien trop court difficile de t’orienter
 

Didou1

XLDnaute Nouveau
Bonsoir Patricktoulon,

Je ne suis qu'un amateur qui cherche à progresser
Je n'ai malheureusement pas de base très solide en programmation
Mais tu me sembles très performant

Voilà je te mets mon fichier ce sera peut-être plus facile pour toi de comprendre

J'ai besoin d'utiliser le même Principe pour la partie date et la partie texte
je garde ce fonctionnement pour pouvoir saisir plusieurs cellules en même temps aussi


Actuellement mon problème c'est que mes dates se transforment effectivement en texte il est impératif que ce soient vraiment des dates
Est-ce que tu peux m'apporter ton aide
Je te remercie d'avance
 

Pièces jointes

  • Classeur2.xlsm
    34.9 KB · Affichages: 6

patricktoulon

XLDnaute Barbatruc
re
tu m'en voudra pas j'ai tout viré tout refait

VB:
Private Sub CommandButton1_Click(): Selection.Value = CDate("17/05/2020"): End Sub
Private Sub CommandButton2_Click(): Selection.Value = CDate("18/05/2020"): End Sub
Private Sub CommandButton3_Click(): Selection.Value = CDate("19/05/2020"): End Sub
Private Sub CommandButton4_Click(): Selection.Value = CDate("20/05/2020"): End Sub
Private Sub CommandButton5_Click(): Selection.Value = CDate("21/05/2020"): End Sub
Private Sub CommandButton6_Click(): Selection.Value = CDate("22/05/2020"): End Sub

Private Sub CommandButton7_Click(): Selection.Value = "CV": End Sub
Private Sub CommandButton8_Click(): Selection.Value = "DF": End Sub
Private Sub CommandButton9_Click(): Selection.Value = "DMP": End Sub
Private Sub CommandButton10_Click(): Selection.Value = "POL": End Sub
Private Sub CommandButton13_Click(): Selection.Value = "AZ": End Sub
Private Sub CommandButton14_Click(): Selection.Value = "X": End Sub
Private Sub CommandButton15_Click(): Selection.Value = "STOP": End Sub
Private Sub CommandButton16_Click(): Selection.Value = "DF": End Sub
Private Sub quitter_Click(): Unload Me: End Sub



Private Sub UserForm_Initialize()

    Me.CommandButton1.BackColor = RGB(128, 128, 128)
    Me.CommandButton2.BackColor = RGB(141, 180, 226)
    Me.CommandButton3.BackColor = RGB(230, 184, 183)
    Me.CommandButton4.BackColor = RGB(235, 241, 222)
    Me.CommandButton5.BackColor = RGB(196, 215, 155)
    Me.CommandButton6.BackColor = RGB(177, 160, 199)
    Me.CommandButton7.BackColor = RGB(0, 112, 192)
    Me.CommandButton8.BackColor = RGB(183, 222, 232)
    Me.CommandButton9.BackColor = RGB(250, 191, 143)
    Me.CommandButton10.BackColor = RGB(192, 80, 77)
    'Me.CommandButton11.BackColor = RGB(226, 107, 10)
    'Me.CommandButton12.BackColor = RGB(255, 255, 255)
    Me.CommandButton13.BackColor = RGB(146, 208, 80)
    Me.CommandButton14.BackColor = RGB(255, 0, 0)
    Me.CommandButton15.BackColor = RGB(247, 150, 70)
    Me.CommandButton16.BackColor = RGB(255, 255, 0)
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer): Cancel = CloseMode = 0: End Sub
 

Didou1

XLDnaute Nouveau
Bonjour Patricktoulon,


Merci pour ton intervention
C'est beaucoup plus simple et plus Claire

Jusqu'à maintenant j'utiliser cette userform dans différents fichiers

je n'avais jamais eu de problème de plantage.
Quelles étaient les risques exactement de ce code
 

Didou1

XLDnaute Nouveau
Bonjour Patricktoulon,


Merci pour ton intervention
C'est beaucoup plus simple et plus Claire

Jusqu'à maintenant j'utiliser cette userform dans différents fichiers

je n'avais jamais eu de problème de plantage.
Quelles étaient les risques exactement de ce code
 

Discussions similaires

Réponses
17
Affichages
761
Réponses
3
Affichages
312

Statistiques des forums

Discussions
311 744
Messages
2 082 107
Membres
101 893
dernier inscrit
trompette