Autres Problème transplantation données sur tableau VBA

Dranreb

XLDnaute Barbatruc

• 24 Juillet 2020

• #16

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

 

Vote positif 0 Vote négatif

N

Nabil2017

XLDnaute Nouveau

• 24 Juillet 2020

• #17

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?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 24 Juillet 2020

• #18

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.

 

Vote positif 0 Vote négatif

N

Nabil2017

XLDnaute Nouveau

• 24 Juillet 2020

• #19

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?

 

Vote positif 0 Vote négatif

N

Nabil2017

XLDnaute Nouveau

• 24 Juillet 2020

• #20

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

 

Vote positif 0 Vote négatif

N

Nabil2017

XLDnaute Nouveau

• 24 Juillet 2020

• #21

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 24 Juillet 2020

• #22

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.

 

Vote positif 0 Vote négatif

N

Nabil2017

XLDnaute Nouveau

• 24 Juillet 2020

• #23

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"

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 24 Juillet 2020

• #24

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 24 Juillet 2020

• #25

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.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 25 Juillet 2020

• #26

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.

 

Vote positif 0 Vote négatif

N

Nabil2017

XLDnaute Nouveau

• 25 Juillet 2020

• #27

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 25 Juillet 2020

• #28

Faites de temps en temps Alt+DL

 

Vote positif 0 Vote négatif

N

Nabil2017

XLDnaute Nouveau

• 25 Juillet 2020

• #29

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!

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 25 Juillet 2020

• #30

Bonjour.
Les deux procédures à changer :

VB:

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

 

Vote positif 0 Vote négatif