XL 2010 sélection plage

pierrejean

XLDnaute Barbatruc

• 15 Octobre 2016

• #2

Bonjour
A tester:
Sub test()
If Range("A1") = "" Then
x = Range("A1").End(xlDown).Row
Else
x = 1
End If
Range("A" & x & ":B" & Range("A" & Rows.Count).End(xlUp).Row).Select
End Sub

 

Dernière édition: 15 Octobre 2016

Vote positif 0 Vote négatif

B

BAZOUZ

XLDnaute Nouveau

• 15 Octobre 2016

• #3

Merci beaucoup de votre réponse
en fait la zone que je souhaite sélectionner c'est uniquement de la colonne B en partant de la derniere celule vide jusqu a la dernière cellule de A
cad B3:B5
B3:B5

 

Pièces jointes

• TEST.xlsx

  8.8 KB · Affichages: 33

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Octobre 2016

• #4

Bonsoir à tous

Ce qui revient à sélectionner les cellules vides de la CurrentRegion, non ?

VB:

Sub a()
[A1].CurrentRegion.SpecialCells(xlCellTypeBlanks).Select
End Sub

 

Vote positif 0 Vote négatif

B

BAZOUZ

XLDnaute Nouveau

• 15 Octobre 2016

• #5

Staple1600 à dit:

Bonsoir à tous

Ce qui revient à sélectionner les cellules vides de la CurrentRegion, non ?

VB:

Sub a()
[A1].CurrentRegion.SpecialCells(xlCellTypeBlanks).Select
End Sub

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

B

BAZOUZ

XLDnaute Nouveau

• 15 Octobre 2016

• #6

Bonsoir
oui c'est ça
merci c'est ça marche super
j'ai encore modifié le code de monsieur jean et ça donne le meme resultat
If Range("A1") <> "" Then
x = Range("B1").End(xlDown).Row + 1
Else
x = 1
End If
Range(("B") & x & ":B" & Range("A" & Rows.Count).End(xlUp).Row).Select

 

Vote positif 0 Vote négatif