Discussion :

[buhrne]

Salut la compagnie,

Je voudrais sélectionner une plage de cellules à partir d'un userform.
Dans ce userform j'ai un combobox proposant une liste de nombres. A partir du nombre choisi, j'aimerais sélectionner une plage qui va de la cellule ( numéro de colonne correspond au nombre + 2, numéro de ligne = 5) jusqu'à la cellule M5.
J'ai essayé ça mais ça ne fonctionne pas, et j'arrive pas à savoir ce qui cloche avec mon objet RANGE.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub CommandButton1_Click()
Dim n, debut
n = nombre.Value + 1
'nombre est la valeur choisi dans mon combobox
 
debut = Cells(5, n + 2)
 
Range(debut & ":" & "M5").Select
 
usf_sondes.Hide
End Sub

[ouskel'n'or]

Code :

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

1
2
3
   Dim Plage as range
    set Plage = Application.inputbox("Saisir la plage " & vbcr & _
           "Tenir ctrl appuyé pour sélectionner plusieurs cellules ou ensembles de cellules", type:=8)

Ensuite tu peux utiliser Plage.address

[tomy7]

Pièce jointe 27143

voila

[buhrne]

merci Ouskel'nor mais un imput box n'est pas ce que je cherche, dans la mesure où je cherche à simplifier un maximum les choses, je ne veux pas laisser à l'utilisateur le soin de choisir la plage à sélectionner. Je veux lui demander ce qu'il veut et le faire à sa place!
Je sais c'est un peu tordu mais si je ne met pas de barrières comme ça, vu le nombre d'utilisateurs derrière, ça risque de mal tourné.

En fait je veux définir une plage à partir d'une variable où la première cellule correspond à ma variable et la fin à une cellule fixe. Et c'est ça qui merde un poil.

Merci tout de même.

[fring]

Si je reprend ton bout de code, cela donnerait

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
Dim n As Integer, debut As String
n = nombre.Value + 1
'nombre est la valeur choisi dans mon combobox
 
debut = Cells(5, n + 2).Address
 
Range(debut & ":M5").Select
 
usf_sondes.Hide
End Sub

[buhrne]

ok merci fring!!

ça merdait au niveau de ma définition de variable en fait!
Là c'est nickel.