Discussion :

[Chewi]

Bonjour,

Afin de garder en mémoire mon classeur actif et ma feuille active à un moment donnée, j'enregistre leurs références dans des cellules.

Code :

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

1
2
3
4
5
With Workbooks("Progr.xls").Worksheets("MemoiresUFS")
.Range("H1") = Macellule.Address
.Range("H2") = Mafeuille.Name
.Range("H3") = Monclasseur.Name
End With

J'enregistre ces données dans des cellules plutôt que de passer par des variables car je réutilise ces données dans d'autres modules:

Code :

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

1
2
3
4
5
6
With Workbooks("Progr.xls").Sheets("MemoiresUFS")
Dim Mafeuille As String

Set Mafeuille = "Workbooks("" .Range("H3").Value & "")" & ".Sheets("" & .Range("H2").Value & "")"

    If Mafeuille.Range("R3") = "Utilisateur: Dupont" Then

Comme vous l'aurez certainement déjà remarqué, une erreur survient lors de la rédaction de mon code sur la ligne en gras.

J'ai donc 1 (ou2) question: Comment mettre des guillemets entre guillemets pour former ma chaîne?

Ou alors dois-je faire autrement ? (ce que je suppose)

Merci d'avance

[cafeine]

Hello,

Je n'ai pas testé mais je vois plus un truc du genre ...

Code :

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

1
2
3
4
5
Dim Mafeuille As Worksheet
With Workbooks("Progr.xls").Sheets("MemoiresUFS")
   Set Mafeuille = Workbooks( .Range("H3").Value).Sheets( .Range("H2").Value )
End With
If MaFeuille.Range("A1") <> ...

[illight]

Alors, au lieu d'écrire ça :

Code :

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

Set Mafeuille = "Workbooks("" .Range("H3").Value & "")" & ".Sheets("" & .Range("H2").Value & "")"

Essaye ça :

Code :

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

Set Mafeuille = Workbooks(Range("H3").Value).Sheets(Range("H2").Value)

ça devrait mieux marcher je pense (j'ai pas testé )

[Chewi]

Bonjour et déjà merci à tous les deux,

Lorsque mon userform s'active, c'est OK:

Code :

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

1
2
3
4
5
6
7
Private Sub UserForm_Activate()
Dim Mafeuille As Worksheet
With Workbooks("Progr.xls").Sheets("MemoiresUFS")
    Set Mafeuille = Workbooks(.Range("H3").Value).Sheets(.Range("H2").Value)
    If Mafeuille.Range("R3") = "Utilisateur: Dupont" Then
        UfRouleauAV.TextBox1 = .Range("C1").Value
...

Mais par après, j'ai une erreur sur la ligne en gras:

Code :

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

1
2
3
4
5
6
7
8
Dim Mafeuille As Worksheet

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
With Workbooks("Progr.xls").Sheets("MemoiresUFS")
    If Mafeuille.Range("R3") = "Utilisateur: Dupont" Then
        .Range("C1") = UfRouleauAV.TextBox1
...

Run-time error '91':
Object variable or With block not set

(J'ai placé ma déclaration de variable tout en haut du module de l'UF pour la réutiliser dans une autre procédure du même module.)

??

[ouskel'n'or]

Si MaFeuille est une autre feuille, tu dois l'instancier

Code :

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

Set MaFeuille = WorkSheets("NomDeTafeuille")

Et ça même si ta déclaration est dans les déclarations de la feuille de code de l'UF
A+

[cafeine]

Pourquoi ne fermes-tu pas ton bloc With ?

[Chewi]

Caféïne a écrit:

Pourquoi ne fermes-tu pas ton bloc With ?

Je le ferme de cette manière:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
With Workbooks("Progr.xls").Sheets("MemoiresUFS")
    If Mafeuille.Range("R3") = "Utilisateur: Dupont" Then
        .Range("C1") = UfRouleauAV.TextBox1
        .Range("C2") = UfRouleauAV.TextBox2
        .Range("C3") = UfRouleauAV.TextBox3
        .Range("C4") = UfRouleauAV.ComboBox1
    ElseIf Mafeuille.Range("R3") = "Utilisateur: Barre" Then
        .Range("E1") = UfRouleauAV.TextBox1
        .Range("E2") = UfRouleauAV.TextBox2
        .Range("E3") = UfRouleauAV.TextBox3
        .Range("E4") = UfRouleauAV.ComboBox1
    End If
End With

Y vois-tu une erreur?
(Je n'avais pas mis le reste du code pour faire plus court)

Ouskel'nord, je regarde ce que tu me dis

[Chewi]

Vous cassez plus la tête pour le second problème, tout est de ma faute (en même ça ne saurait être celle du voisin )

je déclare bien ceci en haut de module:

Code :

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

Dim Mafeuille As Worksheet

Mais je l'avais remis dans:

Code :

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

Private Sub UserForm_Activate()

Je crois que le problème vient de là car je n'ai plus d'erreur.

Merci