UserForm

[JC de Lorient]

Bonjour le forum

Grace a Pascal76 et Hervé, j'ai réussi a mettre en place un UF de saisie
Merci encore a eux

Je souhaiterais pourvoir aller plus loin avec un autre UF je m'explique :

A partir d'une feuille nommée Récap
je souhaiterais afficher la colonne A, C, D, F, E de toutes les lignes ou la valeur en colonne R est FAUX
Ensuite pouvoir sélectionner une ou plusieurs valeurs de cette liste et ensuite avec un bouton de validation faire passer le FAUX en VRAI (colonne R)
Je ne sé pas du tout par ou commencer !!!
je souhaiterais juste une base que j'adapterais sur mes besoins

j'espère avoir été sufisamment clair dans mes explications

d'avance un grand merci

JC

 

[Hervé]

RE

Salut chti, je n'avais pas raffraichi.

a plus

 

[JC de Lorient]

Bonjour le forum, ChTi160, Hervé

et bien voilà c la fin !!!!
le code fonctionne a merveille mais j'ai galéré grave !!!
et oui tout simplement parce que ma listbox était restée en sélection multiple par défaut !!!

je vous remercie bcp pour votre aide

très bonne journée a vous tous

JC

 

[JC de Lorient]

Rebonjour tout le monde,

je viens de découvrir une erreur fatale pour mes calculs

j'ai ce code

Private Sub UserForm_Initialize()
TBoxdate = Format(Date, 'dd/mm/yyyy')
TBoxdate.SelStart = 0
TBoxdate.SelLength = Len(TBoxdate)
end sub

et celui ci (une partie seulement)

i = Ws.Range('A65536').End(xlUp).Row + 1
Ws.Range('A' & i) = TBoxdate
Ws.Range('B' & i) = TBoxclient

tout marche plutot bien mais le problème c que dans ma feuille 'Ws'
il ne reconnait pas la donnée comme une date !
mon format dans la feuille est bien un format date !

comment rectifier le tir ?

merci a vous
JC

 

[ChTi160]

Salut 'JC
essaies celà
mets
i = Ws.Range('A65536').End(xlUp).Row + 1
Ws.Range('A' & i)=Format(Ws.Range('A' & i),'dd/mm/yy')
Ws.Range('A' & i) = TBoxdate
Ws.Range('B' & i) = TBoxclient

non testé
tiens nous au courant
Amicalement
Jean Marie

 

[PascalXLD]

Bonjour

tu peux aussi essayer

Ws.Range('A' & i) = CDate(TBoxdate.value)

Bon courage

 

[JC de Lorient]

re le forum

merci ChTi160 mais essai non transformé !!!!
j'ai essayé +sieurs 'trucs' mais sans aucun résultat !!

je serais peiné si arrivé au bout du projet, mon et votre boulot finirait a la corbeille 🙁

mais aucun doute y'a bien une soluce !

merci encore
JC

 

[JC de Lorient]

re tout le monde !

oups y'a eu 'croisement !!'

Yaooooooooooo
merci Pascal76

c de la balle !!

merci a vous tous
très bonne journée !!

jc

 

[ChTi160]

Salut a tous
alors une fois encore j'ai fais une réponse y a un moment mais comme je suis partout je ne l'ai pas envoyé j'ai été le premier surpris donc je poste ce que j'avais fait et vous verrez que les réponses y étaient enfin trois
Amicalement
Jean Marie [file name=Retour_Format_Date.zip size=11199]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Retour_Format_Date.zip[/file]

Message édité par: ChTi160, à: 25/04/2005 16:40

Message édité par: ChTi160, à: 26/04/2005 08:20