Discussion :

[NamName]

Bonjour le forum,

Dans mon Userform, grâce à une commande, l'utilisateur est invité à sélectionner une plage de données dans le classeur Excel <Admettons que celui-ci sélectionne la plage A1:A10>.
Je voudrais que ma textbox affiche l'information "A1:A10".

Est ce possible ?
A titre d'information, j'ai essayé ça, mais la dernière ligne de code ne fonctionne pas

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
 
Set Donnees = Application.InputBox("selectionnez la plage -Material Brand Name- (sans les entêtes de colonnes).", Type:=8)
 
Donnees.Interior.ColorIndex = 6
 
TextBox1 = Donnees
 
End Sub

Merci d'avance!

[Philippe Tulliez]

Bonjour,

Je voudrais que ma textbox affiche l'information "A1:A10".

Il faut utiliser la propriété Address de l'objet Range et si tu veux l'adresse complète à savoir classeur + feuille + plage de cellules, il y a lieu d'ajouter à cette propriété l'argument External avec comme valeur True

Exemple

Code :

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

1
2
3
4
5
Private Sub UserForm_Activate()
  Dim rng As Range
  Set rng = ThisWorkbook.Worksheets("Feuil1").Range("A1:A10")
  Me.TextBox1.Value = rng.Address(External:=True)
End Sub

Attention, qu'il affichera $A$1:$A$10 si tu souhaites A1:A10 il faut alors utiliser les arguments RowAbsolute et/ou ColumnAbsolute

Code :

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

  Me.TextBox1.Value = rng.Address(RowAbsolute:=False, ColumnAbsolute:=False, External:=True)

et si tu ne souhaites pas l'adresse complète, tu enlèves l'argument External

[NamName]

Ca fonctionne très bien, merci encore!