Formulaire & tableau

[Zak26]

Bonjours a tous,

Je suis étudiant et j'ai un problème qui ma était posé pour un travaux pratique, j'ai essayer de le résoudre avec mes connaissance mais je bloque.

Énoncer : A partir de la saisie d'un nombre de lignes et d'un nombre de de colonnes, écrire dans la feuille de calcul(à partir de la cellule active) un tableau avec des valeurs croissantes incrémentées de 1.

En image ca donne ca :

J'ai essayer de faire une version avec qu'une seule boite de dialogue pour le nombre de ligne et de colonne :

Private Sub cb_valider_Click()
    Dim sh As Worksheet
    Set sh = Sheets("Tableau_valeurs")
    Dim i, j As Integer
    Dim tb_lignes, tb_colonnes As Integer
    Dim tableau_valeurs(10, 10) As Variant

    If Me.tb_lignes.Value = "" Or Me.tb_colonnes.Value = "" Then
        MsgBox ("Veuillez remplir tous les champs du fomulaire")
    Else
         For i = 1 To tb_lignes
            For j = 1 To tb_colonnes
              tableau_valeurs(i, j) = tableau_valeurs(i, j) + 1
            Next j
         Next i
    End If

End Sub

Private Sub cb_annuler_Click()
Call Unload(Me)
End Sub

Merci a d'avance a celui qui voudra bien m'aider

 

[chris]

Re : Formulaire & tableau

Bonjour

Si tu veux une seule box, il faut créer un userform : avez-vous appris la création des userforms ?

Tu peux aussi prévoir 2 cellules de la feuille où l'utilisateur indique ses desiderata ou également utiliser les contrôles formulaires pour ces indications et un bouton qui déclenche la macro qui doit alors utiliser les indications de la feuille ou des contrôles.

 

[Zak26]

Re : Formulaire & tableau

Il faut que je le fasse avec 2 box mais je pense que le faire avec 1 seule serait plus simple et plus optimiser c'est pour cela que j'ai essayer comme cela

Je sais crée les userform (les screen son de moi) mais c’est le code qui me bloque, surtout avec la définition du tableau est le parcours de celui ci pour le remplir des bonnes valeurs

 

[chris]

Re : Formulaire & tableau

Bonjour

Attention au déclarations : le type doit être précisé pour chaque variable et non une fois par liste de variables.

J'ai mis long car rien n'empêche d'utiliser des valeurs supérieures à 32000...

Il faudrait ajouter des contrôles au cas où l'utilisateur rentre autre chose qu'un nombre compris entre 1 et le nombre maximum de ligne/colonnes possible.

Un tableau intermédiaire ne sert pas vraiment et complique

Private Sub cb_valider_Click()
    Dim sh As Worksheet
    Set sh = Sheets("Tableau_valeurs")
    Dim i As Long, j As Long
    Dim tb_lignes As Long, tb_colonnes As Long
    Dim x As Long
    x = -1
    If Me.tb_lignes.Value = "" Or Me.tb_colonnes.Value = "" Then
        MsgBox ("Veuillez remplir tous les champs du fomulaire")
    Else
         For i = 1 To Me.tb_colonnes
            For j = 1 To Me.tb_lignes
              sh.Cells(i, j) = i + j + x
            Next j
            x = x + j - 2
         Next i
    End If
    Call Unload(Me)
End Sub

 

[Zak26]

Re : Formulaire & tableau

Merci beaucoup pour ton aide.
Ca marche très bien maintenant.

Juste une dernière question que faut-il que je modifie pour faire comme sur le screen de tableau
colonne par colonne est non ligne par ligne comme tu a fais ?

EDIT: c'est bon j'ai compris il faut juste inverser les i et j