Masquage de ligne à la demande avec variable

[DIDPRO]

Bonjour à tous,

Ci-joint la macro me permettant de masquer une ligne à la fois.

Sub Masquer_Lines_()

Dim Vligne1 As Variant
Vligne1 = Val(InputBox("n° de ligne à masquer"))
Rows(Vligne1).Select
Selection.EntireRow.Hidden = True
Range("B22").Select
End Sub

J'aimerais si cela est possible de pouvoir gérer plusieurs lignes dans ma demande. Si vous pouviez me donner une possibilité, je vous en remercie par avance.

Didier,🙂

 

[Pierrot93]

Re : Masquage de ligne à la demande avec variable

Bonjour,

essaye ceci :

Option Explicit
Sub test()
Dim c As Variant
On Error Resume Next
Set c = Application.InputBox("Choisissez des lignes !!!", Type:=8)
If Err.Number = 0 Then c.EntireRow.Hidden = True
On Error GoTo 0
End Sub

bon après midi
@+

Edition : attention je supprime les lignes au lieu de les modifier... modification de "delete" en "hidden"

 

[kjin]

Re : Masquage de ligne à la demande avec variable

Bonjour et bienvenue,

Sub Masquer_Lines_()
Dim sL$, tL, i%
sL = InputBox("Entrer les n° de lignes à masquer séparées par une virgule")
If sL = "" Then Exit Sub
tL = Split(sL, ",")
For i = 0 To UBound(tL)
    On Error Resume Next 'pour les farfelus !
    Rows(tL(i)).Hidden = True
    On Error GoTo 0
Next
End Sub

A+
kjin

 

[DIDPRO]

Re : Masquage de ligne à la demande avec variable

Merci Kjin, je vais essayer de suite .....

 

[DIDPRO]

Re : Masquage de ligne à la demande avec variable

Je te remercie, mais je veux seulement masquer.... je vais essayer avec la proposition de Kjin...

 

[Pierrot93]

Re : Masquage de ligne à la demande avec variable

Re,

je viens d'éditer mon message, désolé pour l'horreur...

 

[DIDPRO]

Re : Masquage de ligne à la demande avec variable

Y a pas de mal, encore merci ....

 

[DIDPRO]

Re : Masquage de ligne à la demande avec variable

La macro fonctionne, encore merci à + ....