Discussion :

[DaumSt]

Bonjour,

J'aurais besoin d'un petit coup de main.
Depuis une feuille d'accueil, j'ouvre un formulaire de saisie (via macro) et qui va écrire sur une autre feuille, donc c'est bien.
Mais quand je lance un autre formulaire (modif et supression), la feuille s'affiche ce que je ne veux pas. Je veux rester sur la feuille d'accueil.
Bon, cela est dû à Sheets().Activate.
J'ai donc Googlé mon problème et testé des "contournements" sans résultat, ou plutôt c'est concrêtement le fait que je ne maitrise pas grand chose, du coup je modifie à taton en essayant de comprendre.

Chou blanc pour l'instant.

Dans mon Userform3 j'ai ça :

Code :

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

1
2
3
4
5
Private Sub UserForm_Initialize()
Sheets("Liste").Activate
Ligne = Range("A" & Rows.Count).End(xlUp).Row
ComboBox1.RowSource = "B2:B" & Ligne
End Sub

Liste est la feuille où se trouve mon tableau.
La ComboBox1 lit la colonne B, et en fonction du choix affiche les colonnes A et C dans 2 textbox. Ensuite via cet userform soit je modifie une donnée ou j'efface la ligne.

Code :

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

1
2
3
4
5
6
7
8
Private Sub ComboBox1_Change()
ligne1 = [A2].Offset(ComboBox1.ListIndex, 0).Row
Me.TextBox1.Text = Cells(ligne1, 1)
Me.TextBox2.Text = Cells(ligne1, 3)
Label3.Caption = ComboBox1.ListIndex + 1
Label4.Caption = ComboBox1.ListCount
Range("A2").Offset(ComboBox1.ListIndex, 0).Select
End Sub

J'ai bien sûr essayé de mettre des Liste!A2 et autre pour préciser la feuille où prendre les infos, mais soit ça marche pas soit cela affiche la feuille Liste.
Seule la feuille Accueil doit rester affichée.

Des idées ?

Merci

[joe.levrai]

Bonjour,

ta feuille est affichée, parce que c'est ce que tu as demandé à Excel de faire en premier lieu lors de l'initialisation de ton Userform

Code :

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

Sheets("Liste").Activate

tu l'affiches pour ensuite travailler sur ses objets (Range etc...) sans avoir besoin de nommer la feuille
alors c'est très simple à mettre en place

1) supprime cette vilaine ligne
2) chaque fois dans ton code que tu fais référence à une zone (1 ou plusieurs cellules) de ta feuille, il faut préfixer le range avec le nom de la feuille

Code :

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

Thisworkbook.Worksheets("MaFeuille").Range("A1")

ainsi, ta feuille n'est pas affichée, et tu travailles dedans en indiquant à VBA le chemin complet de ta plage de cellules.

[DaumSt]

Merci !

Je ne suis plus très loin de mon but.

Code :

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

1
2
3
4
5
Private Sub UserForm_Initialize()
Sheets("Liste").Activate
Ligne = Range("A" & Rows.Count).End(xlUp).Row
ComboBox1.RowSource = "B2:B" & Ligne
End Sub

Devient :

Code :

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

1
2
3
4
Private Sub UserForm_Initialize()
Ligne = ThisWorkbook.Worksheets("Liste").Range("A" & Rows.Count).End(xlUp).Row
ComboBox1.RowSource = "Liste!B2:B" & Ligne
End Sub

J'ai bien le contenu colonne B dans mon userform depuis la feuille accueil.
Ca roule.

Mais comment placer cette ligne référente ci dessous pour avoir l'affichage dans les 2 TextBox ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub ComboBox1_Change()
ligne1 = [A2].Offset(ComboBox1.ListIndex, 0).Row
devient :
ligne1 = ThisWorkbook.Worksheets("Liste").Range("A2").Offset(ComboBox1.ListIndex, 0).Row
Me.TextBox1.Text = Cells(ligne1, 1)
Me.TextBox2.Text = Cells(ligne1, 3)
Label3.Caption = ComboBox1.ListIndex + 1
Label4.Caption = ComboBox1.ListCount

Range("A2").Offset(ComboBox1.ListIndex, 0).Select
devient :
ThisWorkbook.Worksheets("Liste").Range("A2").Offset(ComboBox1.ListIndex, 0).Select
End Sub

Si je fais

Code :

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

ThisWorkbook.Worksheets("Liste").Range("A2").Offset(ComboBox1.ListIndex, 0).Select

Dès que je selectionne un produit dans la combo j'ai un message d'erreur sur cette ligne : la méthode select de la classe Range à échoué
Je n'ai pas bien sûr d'informations dans les textbox.
J'ai loupé un truc?

[joe.levrai]

Alors deux choses :

1) les Cells(x,y) doivent être traités comme les Range : on préfixe avec la feuille et (idéalement) le classeur
2) tu ne peux pas Selectionner une cellule d'une feuille qui n'est pas affichée. Là je ne te suis pas, tu ne voulais pas que la feuille soit affichée, mais tu veux quand même changer la position du curseur, pourquoi ?

Avant de .Select un Range, il faut .Activate la feuille qui le contient.
tu ne peux pas avoir le beurre et l'argent du beurre

[DaumSt]

Mince, effectivement.
Je dois selectionner pour en modifier le contenu si besoin. Et effacer la ligne aussi si besoin.

Merci pour les explications !

[joe.levrai]

Encore là, nul besoin d'activer des choses pour agir avec

Voici comme tu conçois la chose, un bête exemple :

Code :

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

1
2
3
4
5
Sub testPasBon()
ThisWorkbook.Worksheets("Feuil1").Activate
ThisWorkbook.Worksheets("Feuil1").Range("A1").Select
Selection.Value = "MaValeur en A1"
End Sub

tu actives la feuille, tu sélectionnes la cellule, tu modifies la valeur de la cellule active.
non seulement, ça ralentit l'exécution et la longueur du code, mais en plus tu es obligé de prévoir des mécanismes pour que ça soit transparent pour l'utilisateur

dans ce second exemple, on active rien, on dit juste à Excel ce qu'il doit faire "là où on veut"

Code :

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

1
2
3
Sub testBon()
ThisWorkbook.Worksheets("Feuil1").Range("A1").Value = "MaValeur en A1"
End Sub

les deux codes auront strictement le même résultat, mais y'en a un qui fait le tour de la France pour joindre Paris et Orléans, l'autre il prend direct l'autoroute et suit le chemin "à vol d'oiseaux"