Remplir une feuille de calcul excel distante à partir d'un userform

Version imprimable

29/05/2007, 17h46
Kikumaru

Remplir une feuille de calcul excel distante à partir d'un userform
Bonjour,

voilà mon problème, j'ai crée un formulaire (userform) (sous VBA 6) avec différents champs que je renseigne et une fois rempli et validé les champs sont automatiquement recopiés dans la feuille de calcul Excel (Feuille1.xls par exemple). Jusque là c'est pas la mer à boire.

Là ou çà se complique, c'est que j'ai crée une macro (et un joli petit bouton :D ) qui permet d'accéder à ce formulaire à partir d'excel. Le souci est que si je lance la macro à partir d'une seconde feuille (Feuille2.xls) et remplit les champs du formulaire, à la validation c'est la seconde feuille (Feuille2.xls) qui va voir ses champs compléter bien que j'ai la première qui ai été ouverte.

J'aurais voulu savoir comment soit:
- Donner le focus à la première feuille
- Préciser dans l'enregistrement à l'intérieur de mon code VB quelle feuille de calcul choisir (avec chemin vers ce fichier à priori)
Je vous remercie :)
29/05/2007, 17h55
ouskel'n'or

Par exemple, tu déclares ta feuille en tête de feuille de code de l'userform

Code:

Dim FL1 as Worksheet

Puis, dans Userform_Initialize, tu instancies la feuille que tu désires renseigner

Code:

Set FL1 = Worksheets("NomDeLaFeuille")

Ainsi, où que tu sois dans l'userform, tu pourras utiliser FL1 à la place de Worksheets("NomDeLaFeuille") ou de ActiveSheet... etc

Code:

FL1.range(NoLig, NoCol).value = Textbox1.text

A+

Tout d'abord merci pour ta réponse ouskel mais j'ai encore quelques soucis avec mon programme. :koi:
Pour tenter de mieux illustrer mes propos, j'ai écris un petit programme simple qui correspond à peu près à mon programme plus lourd (et qui me génère les mêmes erreurs).

- un userform qui écrit "oui" ou "non" à la première ligne trouvée vide
- le fichier excel se nomme "OuiNon.xls"
- le code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 'Rajout conseillé : Dim FON As Worksheet Private Sub UserForm_Initialize() 'Rajout conseillé : Set FON = Worksheets("OuiNon.xls") ComboBox1.AddItem "Oui" ComboBox1.AddItem "Non" 'La ComboBox est initialisée avec les 2 valeurs oui et non End Sub Private Sub CommandButton1_Click() If ComboBox1.Value = "" Then 'la personne n'a choisi aucune des 2 propositions MsgBox "Choisissez une proposition" Exit Sub Else 'on recherche la première cellule disponible Dim iL As Integer iL = Cells(65535, 1).End(xlUp).Offset(1).Row 'on inscrit la valeur dans la première colonne Cells(iL, 1) = ComboBox1.Value UserForm1.Hide End If End Sub
Le code de la macro lui est simplement:
Code:

1 2 3 Sub OuiOuNon() UserForm1.Show End Sub
Sans les rajouts, le code fonctionne bien mais si je lance la macro d'un autre fichier excel, le "oui" ou le "non" sont inscrits dans le fichier qui a lancé la macro et non dans le fichier "OuiNon.xls".
Avec les rajouts, j'obtiens une erreur "Erreur d'exécution 9: l'indice n'appartient pas à la sélection" et le débogage me montre la ligne "UserForm1.Show".

Que dois-je faire pour réussir cette prouesse? :mrgreen:
Merci encore

30/05/2007, 10h10
ouskel'n'or

Dans ton premier post, tu as écrit

Citation:

Le souci est que si je lance la macro à partir d'une seconde feuille (Feuille2.xls) et remplit les champs du formulaire, à la validation c'est la seconde feuille (Feuille2.xls) qui va voir ses champs compléter bien que j'ai la première qui ai été ouverte.

Dans le dernier, tu écris

Citation:

Sans les rajouts, le code fonctionne bien mais si je lance la macro d'un autre fichier excel, le "oui" ou le "non" sont inscrits dans le fichier qui a lancé la macro et non dans le fichier "OuiNon.xls".

Donc, c'est d'un autre fichier dont tu parles, et donc, nécessairement d'une autre feuille :mouarf:
Et donc, le nom que tu dois utiliser est celui de l'autre fichier et de l'autre feuille; Ce qui donne

Code:

Set FL1 = Workbooks("NomDeLautreFichier.xls").Worksheets("NomDeLautreFeuille")

que tu utilises comme je te l'ai indiqué (déclaration en tête de feuille de code de l'userform ou même dans le module standard qui contient la macro qui ouvre l'userform, et le code ci dessus dès que tu en as besoin ou dans la même macro, avant Userform.show)
Une fois instanciée, FL1 sera reconnue partout partout ;)
A+

Merci beaucoup, ça marche du tonnerre :lol:
Pour ceux à qui ça peut servir je fournis le code suivant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Dim FON As Worksheet
 
Private Sub UserForm_Initialize()
    Set FON = Workbooks("OuiNon.xls").Worksheets("Feuil1")
    'On bloque l'apparition du fichier "OuiNon.xls"
    Application.Windows("OuiNon.xls").Visible = False
    ComboBox1.AddItem "Oui"
    ComboBox1.AddItem "Non"
End Sub
 
 
Private Sub CommandButton1_Click()
    If ComboBox1.Value = "" Then
            'la personne n'a choisi aucune des 2 propositions
            MsgBox "Choisissez une proposition"
            Exit Sub
        Else
            'on recherche la première cellule dispo
            Dim iL As Integer
            iL = FON.Cells(65535, 1).End(xlUp).Offset(1).Row
            'on inscrit la valeur dans la première colonne
            FON.Cells(iL, 1) = ComboBox1.Value
            UserForm1.Hide
            'Je ferme le fichier "OuiNon.xls" en le sauvegardant
            Application.Windows("OuiNon.xls").Visible = True
            'je le remet visible, sinon il reste invisible, pensez aux autres ;) 
            Workbooks("OuiNon.xls").Close (1)
 
        End If
End Sub

avec la même ch'tite macro qui va bien.

Petit bonus: le fichier "OuiNon.xls" est ouvert lors du lancement de la macro d'un fichier excel "Nouveau.xls" par exemple, les quelques lignes rajoutées permettent d'empêcher cette apparition mais l'écriture dans celui ci est faite.

Merci encore,
Kikumaru