Discussion :

[enretard]

bonjour,

Pouvez-vous m'aider SVP

je voudrais remplir mon combo avec la colonne H de ma feuille excel
puis qu'elle soit liée au reste de mon document et que les changements interviennent avec mon bouton VALIDER

voici un bout de code :

Code :

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

1
2
3
4
5
6
7
8
Private Sub ComboBox1_Change()
Dim i As String
 
For i = 8 To Range("H10000").End(xlUp).Row
ComboBox1 = Range("H" & i)
Next i
 
End Sub

Je ne comprends pas où se trouve l'erreur, avec Range c'est END qui ne passe pas, avec AddItem non plus, je n'y arrive pas et personne ne répond à mes messages, je suis obligée d'attendre une journée !

C'est vraiment très urgent, merci si quelqu'un à un peu de temps à me consacrer, surtout que j'y suis presque, il me manque pas grand chose, il me reste 2 semaines avant de partir.

[Heureux-oli]

Tu as deux options pour remplir ton combo, l'utilisation d'un tableau ou AddItem.

De plus ton code comporte une erreur !
Tu changes les valeurs de ComboBox1 pour chaque changement de ComboBox1 ?

Code :

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

1
2
3
4
5
6
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 10
Me.ComboBox1.AddItem "A" & i & "a"
Next i
End Sub

essaie ce code !

[enretard]

Tu as deux options pour remplir ton combo, l'utilisation d'un tableau ou AddItem.

J'ai un tableau sur Excel, j'ai essayé ton code, il marche sauf que je voudrais la colonne de mon tableau dans mon combo.

De plus ton code comporte une erreur !
Tu changes les valeurs de ComboBox1 pour chaque changement de ComboBox1 ?

Oui désolée, je suis débutante.

Code :

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

1
2
3
4
5
6
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 10
Me.ComboBox1.AddItem "A" & i & "a"
Next i
End Sub

essaie ce code !

Je voudrais essayer plutôt la version Tableau.

Est-il possible de faire fonctionner le combo comme par exemple :

Après sélection du nom de société dans le combo (zone de mon tableau colonne H), faire en sorte que mon doc word se remplisse automatiquement ?

merci beaucoup pour ton aide.

[Heureux-oli]

Oui, c'est possible.

Quand je parle de tableau, ce n'est pas un tableau Word ou Excel, c'est un tableau VBA (Array).

[enretard]

Oui, c'est possible.

Quand je parle de tableau, ce n'est pas un tableau Word ou Excel, c'est un tableau VBA (Array).

Excusez-moi par avance, mais qu'est ce un tableau VBA (Array) ?

Puis-je utiliser un tableau excel ?

Dois-je repenser mon projet ?

Merci

[Heureux-oli]

Si, on peut le faire avec le contenu d'une feuille Excel.

Avec le petit bout de code donné, on ne peut aller bien loin.

La première chose à faire est l'ouverture de la feuille Excel.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function OpenExcelSheet()
Dim xlApp as Excel.Application
Dim ws As Excel.Worksheet
Dim wb as Excel.WorkBook
 
Set xlApp = New Excel.Application
Set wb = xlApp.Open("Le chemin de mon classeur")
Set ws =  wb.Worksheets("Ma Feuille")
 
 
 
End Function

Cette fonction n'est pas complète, je la donne juste pour que tu aies une idée de la manière de procéder.

Cette fonction peut renvoyer un String ou un Array et on utilise cette fonction pour remplir le ComboBox.

[enretard]

bonjour,

Je te remercie beaucoup pour ton aide.

En fait, j'ai plusieurs bout de code, je suis débutante, et j'essaye de faire ce projet qu'avec les bouts de code que je trouve sur le forum.

J'y arrive petit à petit mais je n'ai jamais pris de cours.

Déjà depuis que je vous connais j'ai pas mal appris mais je pense faire un stage d'informatique plus poussé en septembre, en attendant j'essaye de remplir mon combo qui se trouve sur une feuille word qui comportent plusieurs signets.

peux-tu m'aider ?