userform pour saisie

[sigma]

Bonjour à tous,

j'ai 11 tableaux de structure identique qui s'étendent en vertical dans ma feuille.

pour avoir un certain confort de saisie j'aimerai un userform qui me permette d'effectuer mes saisies en fonction de 2 critères (le site et le mois) et qui m'entre les données saisies dans les cellules correspondantes de tous mes tableaux.

j'ai, je pense quelques souci à m'expliquer clairement.
je crois que tout est plus simple en regardant le fichier joint...

merci à tous et bonne soirée.

 

[skoobi]

Re : userform pour saisie

Re bonjour,

voici le code du bouton "saisir" modifié pour pouvoir gérer les textbox et site dans des boucles:

Private Sub CommandButton2_Click()
For num = 1 To 2
   Set site = Sheets("Feuil1").Columns(1).Find(Controls("Lb_site" & num).Caption, after:=[A2], LookIn:=xlValues, lookat:=xlWhole)
   ligne = Range(site.Offset(2, 0), site.Offset(13, 0)).Find(ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole).Row
   For i = 1 To 4
      Cells(ligne, i + 1).Value = Controls("Tb_" & num & i).Value
   Next
Next

"num" correspond au nombre de site et "i" le nombre de textbox par site.

 

[sigma]

Re : userform pour saisie

Un grand merci à toi.

je regarde et te dis quoi.

A+

 

[sigma]

Re : userform pour saisie

re,

j'ai nommé mes textbox et label, copier le bout de code et après une journée entière de tests en tout genre, d'arrachage de cheveux et la venue d'un joli ulcère, j'ai toujours l'erreur d'execution 91 = variable objet ou variable bloc with non définie.

ce n'est probablement qu'un détail à résoudre mais toujours trop dur pour moi.

merci à vous.

A+

 

[skoobi]

Re : userform pour saisie

Re bonjour,

il faut que le label du site (ligne caption dans les propriétés sur l'USF) soit écrit comme sur la feuille, avec un espace 😉

 

[sigma]

Re : userform pour saisie

Merci skoobi,

j'ai inséré les espaces mais maintenant erreur = objet spécifié introuvable...

suis maudit ?

A+

 

[skoobi]

Re : userform pour saisie

Re,

as-tu bien fais les modifications non pas dans le code mais dans la fenêtre propriétée du label ou bien directement sur l'USF quand tu l'afffiches dans VBE?

 

[sigma]

Re : userform pour saisie

oui, j'ai meme fait les 2 pour vérifier, se qui ne sert à rien mais bon...

peux tu voir si tu peux faire les modifs dans le fichier un peu plus haut dans le post ?

A+

 

[skoobi]

Re : userform pour saisie

Re,

c'est fait.
2 textbox étaient aussi mal nommés.

 

[sigma]

Re : userform pour saisie

re,

du talent et encore du talent.
un grand merci à toi.

A+