Discussion :

[meumeu73.1]

Bonjour à tous,

La situation est la suivante :

Dans Excel, j'ai plusieurs feuilles avec :
- base ou j'ai un identifiant est des données diverses et variées
- d'autres feuilles nommées par Année avec l'indentifiant

J'ai une userform avec plusieurs informations qui viennent de plusieurs feuilles dont la base et les feuilles par année.

J'utilise le Worksheet_BeforeDoubleClick sur la feuille base pour ouvrir la userform, mais je n'arrive pas à récupérer les informations des feuilles par Année, par contre pour la base, je n'ai pas de problème.

Merci de votre aide

Meumeu73

[ESVBA]

très simplement, active les feuilles avant de remplir les textbox dans la UserForm.


Ou faire un déclaration compléte de la cellule voulue. Genre :

Code :

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

TxtBox.Value = WorkBooks("Classeur.xls").WorkSheets("Onglet2010").Range("A123").Value

ESVBA

[Gorfael]

Salut meumeu73 et le forum
Moins tu donnes plus d'informations, plus tu auras des réponses moins interessantes.

J'utilise le Worksheet_BeforeDoubleClick sur la feuille base pour ouvrir la userform

Donc la feuille active est la feuille de base. Toutes les infos sans descriptif clair ont comme préfixe Activesheet, par défaut.

Écrire Range("A1") revient à écrire ActiveSheet.Range("A1") et donc, dans ton cas, Sheets("Base").range("A1").

Il suffit donc d'écrire :
Sheets("Nom d'onglet").Range("A1") pour faire référence à la cellule A1 de la feuille "Nom d'onglet".
A+

[meumeu73.1]

Bonjour et merci,

J'ai trouvé la solution à mon problème :

Code :

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

1
2
Public lgn As Integer
Public pmatricule As String

et

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 
Private Sub RemplissageDonnees()
 
        ' pour cellule modifiable
 
        CNom.Text = Range("D" & lgn).Value
        CPrenom.Text = Range("E" & lgn).Value
 
 
        Dim ligne As Integer
        With Sheets("2010")
            ligne = .Columns(1).Find(pmatricule, , , , xlByRows, xlNext).Row
            IPECEtatCourant.Text = Trim(.Range("E" & lgn).Value)
        End With
 
 
End Sub