VBA: problème pour remplir un tableau avec un userform

Re : VBA: problème pour remplir un tableau avec un userform

Bonjour,

regarde ceci, suppose les 2 classeurs ouverts, en espérant que cela puisse t'aider à avancer...

A noter, pourquoi ne pas avoir tout mis dans le même classeur, surtout si tu débutes...

bonne journée
@+

Re : VBA: problème pour remplir un tableau avec un userform

Merci pour la réponse rapide Pierrot93!

Je viens juste d'essayer mais ça n'a pas l'air de fonctionner... Lorsque j'exécute ça me met pour la ligne qui définit Set ws: erreur d'éxécution '9' L'indice n'appartient pas à la sélection...
C'est comme s'il ne trouvait pas le classeur2?...

Sinon le travail est sur deux classeur, car en fait je ne vous ai pas envoyé le "vrai" fichier avec lequel je travail, cela représente juste de manière simplifier ce que je cherche à exécuter sur un autre travail où le premier classeur est déjà assez lourd. Voili voilou!

A +

Re : VBA: problème pour remplir un tableau avec un userform

En fait je viens de faire une petite modif, comme suit, et ça à l'air de marcher!
Quel soulagement!

Merci beaucoup et bonne fin de journée!


Private Sub CommandButton1_Click()

Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Dim Fichier As String, Repdefaut As String

RepPardefaut = "E:"

Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls", , "Sélectionner un fichier.")
If Answer = vbCancel Then Exit Sub
If Fichier <> "" Then
Workbooks.Open Fichier


Dim ws As Worksheet, x As Range, y As Range

If ComboBox1.ListIndex = -1 Then Exit Sub

Set ws = Workbooks("classeur2.xls").Sheets(MonthName(Month(DTPicker1.Value)))
Set x = ws.Columns(2).Find(ComboBox1.Value, , xlValues, xlWhole, , , False)

If Not x Is Nothing Then
Set y = ws.Rows(5).Find(DTPicker1.Value, , xlValues, xlWhole, , , False)
If Not y Is Nothing Then ws.Cells(x.Row, y.Column).Value = TextBox1
End If


End If

Application.ScreenUpdating = True
Application.DisplayAlerts = True


End Sub

Re : VBA: problème pour remplir un tableau avec un userform

Bonjour,

oui, je précisais que les 2 classeurs devaient être ouverts...
d'autre part, enlève cette ligne d'instruction :
elle empêche que tu puisses être informé qu'il y a une erreur et autorise la suite de l'exécution du code... ce qui peut être ennuyeux, voir très ennuyeux pour la suite.... il toujours préférable d'éviter et éventuellement de gérer les erreurs...

Re : VBA: problème pour remplir un tableau avec un userform

Re,

autre chose, cette instruction ne sert à rien :
la variable n'est ni initialisée, ni déclarée d'ailleurs....

Re : VBA: problème pour remplir un tableau avec un userform

Ok et merci encore!

Re : VBA: problème pour remplir un tableau avec un userform

Désolée, mais j'ai encore une petite question:

La procédure:
If ComboBox1.ListIndex = -1 Then Exit Sub
me laisse un peu dubitative...

Serait-il possible d'avoir une petite explication? Merci

Re : VBA: problème pour remplir un tableau avec un userform

Bonjour,

si aucun élément de la combo n'est sélectionné, sortie de la procédure...

bonne journée
@+

Re : VBA: problème pour remplir un tableau avec un userform

Bonjour Pierrot 93 bonjour le forum!

Après plusieurs essais avec la procédure, je rencontre un problème: la valeur du Textbox1 se met dans la bonne colonne mais pas dans la bonne ligne... elle se met toujours en ligne 2! Je ne vois pas où peut se situer le problème???