Création de tabeau VBA

Création de tabeau VBA - VB/VBA/VBS - Programmation

Marsh Posté le 16-12-2012 à 12:07:02    

bonjour à tous !
 
Je souhaiterai créer un tableau grace à VBA.
J'aimerai que les données que j'entre dans un Userform remplissent ce tableau.
 
Seulement je ne sais pas du tout comment faire, j'ai un peu cherché à droite et à gauche et j'ai rien trouvé...
 
Auriez-vous une idée?
 
Merci d'avance pour voter aide et n'hésitez pas si il manque des infos !!

Reply

Marsh Posté le 16-12-2012 à 12:07:02   

Reply

Marsh Posté le 16-12-2012 à 13:16:14    

J'ai essayé ça mais ça marche pas bien...

Code :
  1. Sub Commande_Mag()
  3. Worksheets("BdC Mag" ).Select
  4. Dim Ref As String, DateCom As Date, Createur As String, Pdt As Integer
  6.     Dim CmdMag() As String
  7.     Dim i As Integer, j As Integer
  8.     i = 4
  10.     For j = 0 To UBound(CmdMag)
  11.         CmdMag(1, j) = "Bdc- & j" 'j'aimerai que ça me mette le numéro du j à la fin de la ref de bon
  12.         CmdMag(2, j) = Date 'insérer la date du jour
  13.         CmdMag(3, j) = LoginMag_Ame.ListMag.Value
  14.         CmdMag(4, j) = ChoixPdtMag_Ame.TextBox3.Value
  15.        
  16.     Next j
  17.    
  18. End Sub


Reply

Marsh Posté le 17-12-2012 à 11:16:02    

 
               Bonjour !   Ecrire "ça marche pas bien" ne suffit pas, c'est mieux d'expliquer ce qui ne fonctionne pas et où dans le code …
 
               Sinon j'ai un méchant doute, le code exposé à l'air de se situer dans un simple module au lieu de celui de l'userform, non ?
 
               Dans l'userform, il devrait y avoir un bouton pour valider la saisie des données comme classiquement un bouton OK et,
               en double cliquant sur ce bouton dans la fenêtre de modification de cet userform depuis l'éditeur VBA,
               l'évènement  Private Sub OK_Click  doit être activé dans le module de code de l'userform
               dans lequel devrait être codé l'alimentation du tableau avant de fermer l'userform (Unload) …
 
               A moins que cet userform ne soit simplement masqué via la méthode Hide,
               dès lors de retour dans la procédure ayant appelée l'userform, le tableau devrait s'alimenter comme ceci :
 
                                             Tableau(n°élément) = NomUserform.ChampUserform
 
 
               Maintenant dans le code exposé,  j'y verrais bien des problèmes de logique …
 
             - Déclaration de la variable CmdMag en String, donc en simple chaîne de caractères,
               puis tentative d'utilisation dans la boucle en tant que tableau ‼
               Voir l'instruction Dim, même ReDim, et leurs exemples, dans l'aide intégrée du VBA …
 
             - Pas d'appel d'un userform (NomUserform.Show).
 
             - La boucle servirait à alimenter les même données dans l'intégralité du tableau !?
 
             - CmdMag(1, j) = "Bdc- & j"   à corriger comme ceci :   CmdMag(1, j) = "Bdc-" & j


Message édité par Marc L le 17-12-2012 à 11:26:04
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed