Selection plage en VBA

patsyl60 · 24 Mai 2010

Bonjour à tous.

Encore besoin de votre savoir. Dans un tableau, je dois sélectionner une plage sans les lignes de titre au-dessus et sur le côté gauche. J'ai trouvé pour ne pas prendre la ligne du dessus (voir ma macro) mais pas les 2 à la fois.

Je vous joins un fichier exemple. Dans ce fichier, je dois sélectionner les valeurs et pas le texte. Sachant que le nombre de colonnes et le nombre de lignes sont variables dans mon tableau final

D'avance merci.

Patsyl60 😕

ROGER2327 · 25 Mai 2010

Re : Selection plage en VBA

Re...

Pierrot93 à dit:
Re,

Perso, je détecterais peut être la dernière colonne à partir de la ligne 3...

Code:

Range(Cells(4, 6), Cells(Cells(Rows.Count, 1).End(xlUp).Row, Cells(3, Columns.Count).End(xlToLeft).Column)).Select

A voir...

Exact ! Merci pour votre vigilance.

ROGER2327
#3539

Dimanche 8 Merdre 137 (Cocuage de Monsieur le Père Ubu, SS)
6 Prairial An CCXVIII
2010-W21-2T11:04:52Z

pierrejean · 25 Mai 2010

Re : Selection plage en VBA

Re

Une proposition (a partir de ma proposition precedente)
Peu concise je l'accorde mais qui peut facilement s'adapter (changement de l'adresse du coin haut gauche de la plage ici F4)

Code:

Sub essai2()
Dim plage As Range
Dim cel As Range
Set plage = Range("F4")
For Each cel In ActiveSheet.UsedRange
  If (IsNumeric(cel.Value) Or cel.Value = "") And cel.Row >= plage.Row And cel.Column >= plage.Column Then
   Set plage = Application.Union(plage, cel)
  End If
Next cel
plage.Select
End Sub

patsyl60 · 26 Mai 2010

Re : Selection plage en VBA

Encore une fois, merci à tous pour vos solutions multiples.

J'ai finalement opté pour le code de ROGER2327 avec la modification de Pierrot93.

Bonne journée à tous.

Patsyl60 😉

Selection plage en VBA

patsyl60

XLDnaute Occasionnel

Pièces jointes

ROGER2327

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

Pièces jointes

patsyl60

XLDnaute Occasionnel

Discussions similaires

Selection plage en VBA

patsyl60

XLDnaute Occasionnel

Pièces jointes

ROGER2327

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

Pièces jointes

patsyl60

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency