Selection multiple de lignes avec condition (vba)

[hemerode]

Bonjour à tous!


Je souhaite sélectionner les lignes (simultanément) d'un tableau.
La macro vise à sélectionner ( Mat & valeur) dont la valeur est supérieur à 0.

Merci pour votre aide.

 

[Papou-net]

Re : Selection multiple de lignes avec condition (vba)

Bonsoir hemerode,

Ci-joint un exemple de macro à adapter à ton classeur.

Cordialement.

 

[hemerode]

Re : Selection multiple de lignes avec condition (vba)

Merci Papou-net. C'est exactement ce que je cherche. Sauf que c'est toute la ligne qui est sélectionnée (cel.EntireRow). Comment limiter la sélection à mon tableau et non toute la feuille.
Merci.

 

[Papou-net]

Re : Selection multiple de lignes avec condition (vba)

Bonjour hemerode,

Modifie le code comme ceci:

Private Sub CommandButton1_Click()
Dim Cel As Range, Plage As Range

With ActiveSheet
  For Each Cel In ActiveSheet.Range("C1:C25")
    If Cel > 0 Then
      If Plage Is Nothing Then
        Set Plage = .Range("A" & Cel.Row & ":E" & Cel.Row)
        Else
        Set Plage = Application.Union(Plage, .Range("A" & Cel.Row & ":E" & Cel.Row))
      End If
    End If
  Next
End With
Plage.Select
End Sub

Bien entendu, tu remplaces les lettres de colonnes (A et E) par les limites de ton tableau.

Bonne journée.

Cordialement.

 

[hemerode]

Re : Selection multiple de lignes avec condition (vba)

Bonsoir Papou-net

C'est super ce que tu a fait.
Merci pour ton aide.