Macro pour selectionner lignes sous conditions

gourdin

XLDnaute Impliqué
Bonjour,

Avec une macro, je souhaite sélectionner uniquement les lignes d'un tableau dans lesquelles une des ces colonnes n'est pas vide.

Un petit exemple slimplifié en fichier joint

MERCI
 

Pièces jointes

  • Classeur1.xls
    20.5 KB · Affichages: 262
  • Classeur1.xls
    20.5 KB · Affichages: 278
  • Classeur1.xls
    20.5 KB · Affichages: 282

job75

XLDnaute Barbatruc
Re : Macro pour selectionner lignes sous conditions

Bonjour gourdin, salut Pascal,

Par exemple, si dans la feuille le tableau est nommé tablo :

Code:
Intersect([tablo], Columns("B").SpecialCells(xlCellTypeConstants).EntireRow).Select

Mais en général il est inutile d'utiliser select en VBA...

A+
 

vbacrumble

XLDnaute Accro
Re : Macro pour selectionner lignes sous conditions

Bonjour



Code:
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 04/05/2009 par VBACrumble
'
Dim r As Range
Set r = Sheets(1).Columns("B").Cells.SpecialCells(xlCellTypeConstants, 23)
'ou équivalent
'Set r = Sheets(1).Columns(2).SpecialCells(xlCellTypeConstants, 23)
r.Resize(, 3).Select
End Sub

EDITION: bonjour job75 , désolé pour la collision
 
Dernière édition:

job75

XLDnaute Barbatruc
Re : Macro pour selectionner lignes sous conditions

Bonjour vbacrumble :)

Une autre solution, si en 1ère colonne il se trouve des formules :

Code:
Sub Selectionner()
Dim z As Range, cel As Range
Set z = [tablo].Columns(1).Find("*", LookIn:=xlValues)
If z Is Nothing Then Exit Sub
For Each cel In [tablo].Columns(1).Cells
If cel <> "" Then Set z = Union(cel, z)
Next
Intersect([tablo], z.EntireRow).Select
End Sub

A+
 

Discussions similaires

Réponses
7
Affichages
228

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 846
dernier inscrit
Silhabib