Report données Userform

[TINOU]

Bonjour le Forum,

Il y a quelques semaines je me suis inscrit à ce forum sans aucune connaissance en VBA 😕 🙁 , ayant compris l'esprit de ce forum qui est "aide toi, le ciel t'aidera" 😉 , j'ai visualisé des tonnes d'exemples qui m'ont bien aidés mais là je fais appel au "ciel" car je galère. Je n'arrive pas à reporter les données du formulaire dans un tableau et j'aurai souhaité pouvoir récupérer les données du tableau dans le formulaire pour pouvoir les modifier.

J'espère avoir été assez clair et j'annexe mon fichier pour que puissiez me conseiller.

En vous remerciant par avance...

Tinou 🙂

 

[gbinforme]

Re : Report données Userform

bonsoir,

essaie peut-être de sauver ton fichier sous format excel 2003 ou 97,
car en format 2007 la possibilité de lire est plus réduite
car on ne peut rien visualiser sauf à avoir excel 2007 qui est plus rare.

 

[TINOU]

Re : Report données Userform

Bonjour gbinforme, le Forum

Merci de vous interresser à mon problème, j'espère que vous pourrez m'aider à solutionner mes soucis de report de données.
En pièce jointe le fichier en Excel 97-2003.

Encore merci.

Tinou.🙂

 

[ERIC S]

Re : Report données Userform

Bonsoir

pas tout regardé mais une petite remarque:

si tu n'as pas textbox1, textbox2....

ta boucle va tomber sur des objets qui n'existent pas (je crois que c'est le cas)

 

[TINOU]

Re : Report données Userform

Bonjour, ERIC S, le forum,

Tant que je n'avais que des Textebox j'arrivais à reporter mes données dans une feuille. J'ai voulu fignoler un peu en insérant des ComboBox pour faciliter le travail du User, mais depuis, galère, 😱 😕 çà ne veut plus marcher. Où peut être l'erreur !? Si vous avez un peu de temps à me consacrer, merci d'avance pour votre aide...

Mon code

Private Sub CommandButton1_Click()
Dim der_ligne&, j%

der_ligne = Range("A65536").End(xlUp).Row + 1
For j = 1 To 12
Cells(der_ligne, j).Value = Controls("TextBox" & "ComboBox" & j).Value
Next j
Unload UsfNew
End Sub

Merci
Tinou

 

[ERIC S]

Re : Report données Userform

Re

une solution simple (mais tu auras du travail pour revoir tes codes)
tu renommes tes textbox et combobox pour les passer par exemple en C1, C2......C12 ton code

Cells(der_ligne, j).Value = Controls("C" & j).Value

fonctionnera

par contre il faut remplacer toutes les instructions de type

textbox1.value par C1.value
.......

 

[TINOU]

Re : Report données Userform

Bonjour ERIC S, le Forum,

Je te remercie vivement pour tes conseils çà marche nickel🙂

Je coince maintenant sur la possibilité de récupérer les données archivées pour modifs éventuelles, quel code mettre derrière le bouton modifier ??.
J'ai également un souci dans un report de date la date indiquée dans le userform est ok, par contre le report dans le tableau n'est pas bon et ce depuis aujourd'hui (date 01/07/2007) reportée 07/01/2007 ???

Merci de votre aide

Bon dimanche!!

TINOU

 

[ERIC S]

Re : Report données Userform

RE

je suis désolé je n 'ai pas trop le temps en ce moment et je m'absente pour plusieurs jours

pour ton format fais un test sur C4

if i=4 then
cells(.....)=format (..., "dd/mm/yyyy hh:mm:ss)
else
cells()=..
endif

joue sur l'ordre day month pour adapter