Discussion :

[shaku]

Bonjour , je dois écrire une macro qui demande quelle plage on veut sélectionner . Alors avec inputbox je n'y arrive pas car je dois saisir une valeur , voici la ligne de inputbox :

Code :

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

1
2
surface = Application.InputBox("Quelle surface doit être remplie ?", _
                             Default = Selection, Type:=8)

Mais ça ne marche pas , je veux que l'inputbox me demande de selectionner une plage de cellules , comment faire ?

merci

[drakkar_agfa]

Bonjour,

Quand tu veux dire sélectionner une plage de cellules, veux-tu une sélection comme dans les formules d'excel, que tu sélectionnes directement les plages?

Ou l'utilisateur entre "B1:C6" ?

[PPz78]

Voici quelques éléments qui devraient te permettre de progresser.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    MsgBox (Sh.Name)
    a = Target.Areas(1).Rows.Count
    b = Target.Areas(1).Columns.Count
    MsgBox ("Nombre de cellules : " & a & " lignes et " & b & " colonnes ")
    b = Target.Row
    C = Target.Column
    MsgBox ("Première cellule : " & b & "  " & C)
End Sub

Il faut se souvenir qu'une sélection peut contenir plusieurs zones de cellules, chacune étant composée de plusieurs cellules adjacentes.

[ouskel'n'or]

Non, Application.InputBox(...., Type:=8) fait bien ce que tu souhaites. Simplement, tu places selection à la place du titre. Ajoute une virgule et à la place de selection, mets Selection.address, sinon tu as un range, alors qu'Application.InputBox attend ici une adresse et donc un string

Code :

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

1
2
3
4
Sub test()
surface = Application.InputBox("Quelle surface doit être remplie ?", , _
                            Selection.Address, Type:=8)
End Sub

[shaku]

merci les gars , mais ouskel ça ne marche pas je suis désolée , avec ce que tu as écrit ça me demande bien dans une fenêtre quelle surface doit être remplie , mais ensuite moi je veux sélectionner manuellement cette surface et quand je le fais ça me sélectionne ma plage en pointillés et non en bleu comme d'hab , et ensuite j'ai le message d'erreur :

variable objet ou variable de bloc with non définie , je ne comprends pas...

[ouskel'n'or]

Alors ne mets pas de valeur par défaut

Code :

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

1
2
3
4
5
6
Sub test2()
Dim Surface As Range
    Range("A1").Select
    Set Surface = Application.InputBox("Quelle surface doit être remplie ?", Type:=8)
    MsgBox Surface.Address
End Sub