Discussion :

[mumu27]

Bonjour,

J'ai un problème lorsque j'essaye d'ajouter un élément à une zone définie par un nom pour ensuite l'insérer dans un combobox grâce à sa propriété rowsource.

Voici le code:

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
19
20
 
Private Sub CmdFermer_Click()
    Dim Plage As String
    If FrmPwrCtrNomCol.OptAnalyse.Value = True Then
        With Sheets("Parametrage")
            'Plage = .Range("A6:A" & .Range("A65536").End(xlUp).Row).Address
            Plage = "R6C1:R" & .Range("A65536").End(xlUp).Row & "C1"
        End With
        MsgBox ("Plage: " & Plage)
        'FrmPwrCtrNomCol.CboDvlp.RowSource = "Parametrage!" & Plage
        With ActiveWorkbook.Names("ANALYSE")
            .Name = "ANALYSE"
            .RefersToR1C1 = "=Parametrage!R6C1:R8C1"
            '.RefersToR1C1 = "=Parametrage!" & Plage
            '.RefersTo = "=Parametrage!" & Plage
            .Comment = ""
        End With
    End If
    Unload FrmAjoutDvlp
End Sub

Le résultat dans le gestionnaire de noms est pour la référence:

Code :

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

1
2
 
=Parametrage!'L6C1':'L8C1', or il devrait être:

Code :

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

1
2
 
=Parametrage!$A$6:$A$8Voilà, je ne comprends pas trop pourquoi, si vous aviez une idée, cela m'arrangerait. Merci d'avance.

Mumu27!

[zyhack]

Bonsoir

tu as une ligne qui devrait faire l'affaire en ajoutant .address

Code :

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

.RefersTo = "=Parametrage!" & Plage.address

[mumu27]

Apparemment, c'était le .comment qui posait problème. Merci quand même.

Mumu27!