Selection plage en VBA

[patsyl60]

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 😕

 

[Pierrot93]

Re : Selection plage en VBA

Bonjour,

regarde peut être le code ci-dessous, à noter que les "select" sont rarement utiles en vba :

With Range("A1").CurrentRegion
    .Resize(.Rows.Count - 1, .Columns.Count - 1).Offset(1, 1).Select
End With

bonne journée
@+

 

[ROGER2327]

Re : Selection plage en VBA

Bonjour patsyl60, Pierrot93

Ou encore :

Sub toto()
   ActiveSheet.Range(Cells(2, 2), Cells(Cells(Rows.Count, 1).End(xlUp).Row, Cells(1, Columns.Count).End(xlToLeft).Column)).Select
End Sub

Tout dépend des critères de sélection qu'on retient...​

ROGER2327
#3523

Samedi 7 Merdre 137 (Nativité de Monsieur Plume, propriétaire, SQ)
5 Prairial An CCXVIII
2010-W21-1T08:08:43Z

 

[patsyl60]

Re : Selection plage en VBA

Bonjour ROGER2327, Bonjour Pierrot93

Merci pour vos réponses rapides.

Les 2 réponses répondent parfaitement à ma demande.

Question résolue pour moi.

Encore merci.

Bonne journée à tous.

Patsyl60 😉

 

[ROGER2327]

Re : Selection plage en VBA

Re...

Bonjour ROGER2327, Bonjour Pierrot93

Merci pour vos réponses rapides.

Les 2 réponses répondent parfaitement à ma demande.

Question résolue pour moi.

Encore merci.

Bonne journée à tous.

Patsyl60 😉

Parfait !

Notez tout de même que les trois procédures donnent des résultats différents.​

ROGER2327
#3526

Samedi 7 Merdre 137 (Nativité de Monsieur Plume, propriétaire, SQ)
5 Prairial An CCXVIII
2010-W21-1T09:38:05Z

 

[Staple1600]

Re : Selection plage en VBA

Bonjour à tous


Une autre solution qui fait strictement ce que tu disais dans ton premier message.

Dans ce fichier, je dois sélectionner les valeurs et pas le texte

Sub Macro1()
[A1].CurrentRegion.SpecialCells(xlCellTypeConstants, 1).Select
End Sub

 

[ROGER2327]

Re : Selection plage en VBA

Re...

Bien vu ! Ce qui donne une solution différente de toutes les autres...
Pour le cas où des formules viennent s'immiscer dans le calcul des nombres, une autre proposition donnant encore autre chose :

[COLOR="DarkSlateGray"][B]Sub tutu()
   With [A1].CurrentRegion
      Union(.SpecialCells(xlCellTypeConstants, 1), .SpecialCells(xlCellTypeFormulas, 1)).Select
   End With
End Sub[/B][/COLOR]

On fait exactement ce qu'on veut, pourvu qu'on sache exactement ce qu'on veut...​

ROGER2327
#3530

Samedi 7 Merdre 137 (Nativité de Monsieur Plume, propriétaire, SQ)
5 Prairial An CCXVIII
2010-W21-1T12:29:42Z

 

[pierrejean]

Re : Selection plage en VBA

Bonjour patstil60 ,Pierrot 🙂 ,ROGER 🙂,Staple 🙂

Plus on est de fous ....

Voici une compilation des possibilités
J'ai ajouté la mienne (qui ne fait pas dans la concision)

 

[JCGL]

Re : Selection plage en VBA

Bonjour à tous,

PJ : tu as du te tromper de fichier

A+ à tous

 

[pierrejean]

Re : Selection plage en VBA

Re

Pas bien reveillé moi !!

 

[patsyl60]

Re : Selection plage en VBA

Merci à tous pour votre implication.

Encore une fois, je me suis aperçu que j'avais mal évaluer mes besoins...Comme quoi un mot, un exemple précis est très important.

J'avais finalement retenu la réponse de ROGER2327 qui correspondait tout à fait à mon besoin :

Sub toto()
   ActiveSheet.Range(Cells(2, 2), Cells(Cells(Rows.Count, 1).End(xlUp).Row, Cells(1, Columns.Count).End(xlToLeft).Column)).Select
End Sub

Par contre, mon fichier test n'etait pas tout à fait comme mon fichier d'origine. Le tableau n'est pas en A1 mais en A3. J'ai bien essayé de modifier le code mais je n'y arrive pas.

Pouvez vous encore m'aider.

Je vous joint à nouveau mon fichier test (mais qui correspond à mon fichier d'origine). En jaune la zone à selectionner ( nombre de ligne et nombre de client variables).

D'avance merci.

Patsyl60 😕

 

[tototiti2008]

Re : Selection plage en VBA

Bonjour à tous,

peut-être en modifiant comme ça :

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

la proposition de Roger

Edit : Oups, corrigé

 

[Pierrot93]

Re : Selection plage en VBA

Bonjour à tous,

la première cellule à sélectionner serait plutôt F4, cellules en jaune si j'en crois ton fichier...

bon après midi
@+

 

[ROGER2327]

Re : Selection plage en VBA

Re...

Merci à tous pour votre implication.

Encore une fois, je me suis aperçu que j'avais mal évaluer mes besoins...Comme quoi un mot, un exemple précis est très important.

J'avais finalement retenu la réponse de ROGER2327 qui correspondait tout à fait à mon besoin :

Sub toto()
   ActiveSheet.Range(Cells(2, 2), Cells(Cells(Rows.Count, 1).End(xlUp).Row, Cells(1, Columns.Count).End(xlToLeft).Column)).Select
End Sub

Par contre, mon fichier test n'etait pas tout à fait comme mon fichier d'origine. Le tableau n'est pas en A1 mais en A3. J'ai bien essayé de modifier le code mais je n'y arrive pas.

Pouvez vous encore m'aider.

Je vous joint à nouveau mon fichier test (mais qui correspond à mon fichier d'origine). En jaune la zone à selectionner ( nombre de ligne et nombre de client variables).

D'avance merci.

Patsyl60 😕

Peut-être ceci ?

[COLOR="DarkSlateGray"][B]Sub toto_de_ROGER()
   ActiveSheet.Range(Cells(4, 6), Cells(Cells(Rows.Count, 1).End(xlUp).Row, Cells(6, Columns.Count).End(xlToLeft).Column)).Select
End Sub[/B][/COLOR]

ROGER2327
#3538

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

 

[Pierrot93]

Re : Selection plage en VBA

Re,

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

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

A voir...