Macro pour selectionner lignes sous conditions

[gourdin]

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

 

[PascalXLD]

Re : Macro pour selectionner lignes sous conditions

Bonjour

Fil déplacé dans le bon forum

 

[job75]

Re : Macro pour selectionner lignes sous conditions

Bonjour gourdin, salut Pascal,

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

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

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

A+

 

[vbacrumble]

Re : Macro pour selectionner lignes sous conditions

Bonjour

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

 

[job75]

Re : Macro pour selectionner lignes sous conditions

Bonjour vbacrumble 🙂

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

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+

 

[gourdin]

Re : Macro pour selectionner lignes sous conditions

GRAND MERCI A TOUS

Tout fonctionne parfaitement

 

[analyseaux]

Re : Macro pour selectionner lignes sous conditions

bonjour tout le monde

Je voudrais extraire d'une base de données des lignes avec criteres pointdeau,annee
Merci

 

[job75]

Re : Macro pour selectionner lignes sous conditions

Bonsoir analyseaux,

Ouvrez une autre discussion, et surtout soyez beaucoup plus clair dans votre question.

A+