Autres Problème transplantation données sur tableau VBA

[Nabil2017]

Bsr à tous,
Voilà comme je suis débutant sur la programmation j'aimerais bien que quelqu'un m'aide, j'ai réalisé mon formulaire de saisie mes j'ignore comment remplir le tableau, je tiens à préciser que je travail avec Excel 2007 et que la Combobox1 est alimenté avec Row.source

veuillez trouver ci-joint le fichier, merci d'avance.

 

[Dranreb]

Ok. Je ne pouvais pas savoir que vous n'aviez pas encore copié le code avant que je ne corrige l'oubli.

 

[Nabil2017]

Re.salut Dranreb,
pardon de t’ennuyer, une fois le code copié, ça bug sur la CommandButton5, comme tu la souligné problème de déclaration 'z' et 'c', je ne sais même pas pourquoi c'est deux lettres?

 

[Dranreb]

Z comme zone c'est une vieille habitude de programmeur pour une zone de texte.
Sinon je prend toujours C pour un numéro de colonne, que ce soit dans un tableau dynamique ou dans une plage de cellule, et L pour un numéro de ligne.
Vérifiez si vous l'avez cette déclaration dans votre code. Si vous l'avez copié avant 12:22 elle n'y était pas encore.

 

[Nabil2017]

Merci Dranreb, je vais le faire tout de suite et je te rends la réponse, si j'ai bien compris la déclaration du CommandButton5_Click() ce configure comme suite:
Dim Z As String, C As Long, L As Ligne?

 

[Nabil2017]

Je viens de l'essayer ça ne donne rien, je suis nuuuuuuuuuuuuul

 

[Nabil2017]

En tout cas merci Dranreb, je ne te casserais pas la tête plus que ça, passe une bonne nuit

 

[Dranreb]

Non, je disais ça au cas où vour verriez ailleurs un nom de variable commençant par L. Il n'y a pas à déclarer de variable L dans cette procédure, et Ligne n'est pas un type de donnée valide.

 

[Nabil2017]

Alors je confirme que je suis nul, j'ai copié le code mais ça ne donne rien, j'ignore comment déclarer ces variables "Z" et "C"

 

[Dranreb]

Joignez le classeur que je puisse voir ce que vous avez fait.

 

[Dranreb]

Supprimez tout ce qu'il y a devant le second Option Explicit
La dernière ligne ne va pas. Et il y a une déclaration pas bonne dans Module1.

 

[Dranreb]

Non il y a toujours du vieux code qui traine tout au début, avec des déclarations qui ne servent pas et une Private Sub CommandButton5_Click() qui fait double emploi avec l'avant dernière du module, qui est bonne, elle.

 

[Nabil2017]

Entre nous j'ai pas compris ya 1e seule commandbutton5 donc j'ignore quoi gardé ou supprimé, enfin Dranreb merci pour l'aide passe une bonne nuit

 

[Dranreb]

Faites de temps en temps Alt+DL

 

[Nabil2017]

Merciiiiiiiiiiiiiiiiiiiiiiiiiiiii Dranreb ça fonctionne à merveille, j'ignore comment te remercier, vraiment t'es un génie, je n'oublie pas Thierry qui à fait des efforts avec moi, vous êtes une équipe prodige, à bientôt et passe une agréable fin de soirée Bonne nuit mon ami!

 

[Dranreb]

Bonjour.
Les deux procédures à changer :

Private Sub ChargerDonnées()
   Dim C As Long
   If Not ComboBox2.MatchFound Then Exit Sub
   If Not ComboBox1.MatchFound Then Exit Sub
   If Wsh Is Nothing Then Exit Sub
   Set RngLig = Wsh.[B3:K3].Offset(ComboBox2.ListIndex * 51 + ComboBox1.ListIndex)
   TDon = RngLig.Value
   For C = 1 To 6
      Me("TextBox" & C).Text = TDon(1, C)
      Next C
   TextBox7.Text = TDon(1, 8)
   End Sub
Private Sub CommandButton5_Click()
   Dim Z As String, C As Long
   TDon(1, 7) = Empty
   For C = 1 To 6
      Z = Me("TextBox" & C).Text
      If IsNumeric(Z) Then
         TDon(1, C) = CDbl(Z)
         TDon(1, 7) = TDon(1, 7) + TDon(1, C)
      Else: TDon(1, C) = Empty: End If
      Next C
   Z = TextBox7.Text
   If IsNumeric(Z) Then TDon(1, 8) = CDbl(Z) Else TDon(1, 8) = Empty
   RngLig.Value = TDon
   End Sub