Discussion :

[Conico113]

Bonjour a tous,

Je cherche a créer un tableau dont le nombre de lignes va varier en fonction du chiffre rentrer dans une ComboBox (Barre de contrôle Toolbox).

Le tableau alors généré doit être très simple avec une ligne d’entête (Rang de la personne, Nom Personne, age, profession…) ET la première colonne Nom Personne, remplie (de 1 au chiffre rentrer dans la ComboBox).

Je connais les bases de VBA mais je suis encor débutant et je n’arrive pas pour l’instant à récupérer la valeur et à générer la suite de chiffres….

Merci d’avance pour votre aide !!

[DidierLoche]

Bonsoir,

Pourquoi ne pas utiliser simplement l'instruction "inputbox" ?
Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub entrée_entier()
On Error GoTo fin
N = CInt(InputBox("Nombre de colonnes", "titre"))
If N > 1 Then
    ' ton code ...............
End If
fin:
End Sub

L'instruction Cint convertit le résultat de ta saisie (qui est au format texte) en un entier. En cas d'erreur (tu as cliqué sur "Annuler" ou tu as entré autre chose qu'un entier), la macro s'arrête.
Tu peux ensuite utiliser ce nombre N pour générer tes N colonnes.

Didier

[JackOuYA]

bonsoir, et comment rempli tu ton combobox, s'il viens de la barre d'outils contrôles, tu peu y accéder :
en supposant qu'il se trouve sur la feuil1, et étant le premier posé la son nom et combobox1 :

tiens voila un exemple d'accés au combo:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox feuil1.ComboBox1.Value

[DidierLoche]

Bonjour,

Tu peux alimenter ta "combobox" par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.ComboBox1.AddItem "toto"

Pour effacer son contenu, fu fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.ComboBox1.Clear

Pour récupérer la sélection, tu fais tout simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim Texte as String
texte = ActiveSheet.ComboBox1

J'espère que cela répond à ta question

Didier