Sélection plage cellule

[gourdin]

Bonjour,

Soit un tableau correspondant à la plage C8:E30

Je souhaite connaitre le code macro qui sélectionne la plage correspondant à la première ligne vide sous le tableau jusqu'à la 100e ligne, soit dans mon exemple la plage C31:E100 sachant que la dernière ligne du tableau est variable
(si mon tableau est C8:E65 => sélection par macro = C66:E100)

Merci

Voir fichier joint

 

[Efgé]

Re : Sélection plage cellule

Bonjour gourdin

Le nombre de post où la méthode est utilisée est assez conséquent. Tu aurais pu trouver en cherchant un peu... 🙄

Sub test()
Dim x As Long
With Sheets("Feuil1")
    x = .Cells(.Rows.Count, 3).End(xlUp).Row + 1
    .Range("$C$" & x & ":$E$100").Select
End With
End Sub

Cordialement

 

[gourdin]

Re : Sélection plage cellule

Merci

PS : j'ai cherché mais sans doute mal.

 

[13GIBE59]

Re : Sélection plage cellule

Bonjour gourdin et Efgé.

Gourdin, si tu veux en savoir-connaître-apprendre et découvrir plus sur le vba, vois ce site.

A plus.

 

[Staple1600]

Re : Sélection plage cellule

Bonsoir à tous


Je plussoie aux propos d'Efgé et je propose une macro un chouia plus courte 😉

Sub testII()
Sheets("Feuil1").Cells(Rows.Count, 3).End(3)(2).Resize(98, 3).Select
End Sub

 

[Efgé]

Re : Sélection plage cellule

Re
Salut Staple
Tu n'as pas peur de dépasser la 100[SUP]em[/SUP] ligne ? 😀
Cordialement

 

[Staple1600]

Re : Sélection plage cellule

Bonsoir Efgé

Efgé
Avant de poster mon précédent message, j'ai testé ton code puis le mien et j'obtiens la même sélection, non ?
Voir le test ci-dessous

Sub BlancBonnetEtBonnetBlanc()
Dim x As Long
With Sheets("Feuil1")
.[C1] = "ABC"
    x = .Cells(.Rows.Count, 3).End(xlUp).Row + 1
    .Range("$C$" & x & ":$E$100").Select
End With
MsgBox Selection.Address
[A1].Select
Sheets("Feuil1").Cells(Rows.Count, 3).End(3)(2).Resize(98, 3).Select
MsgBox Selection.Address
End Sub

EDITION: Tu as raison Efgé, j'avais testé... mais mal (je mérite un coup de gourdin 😉 )
Mais normalement avec cette version, on est équivalent "vbatiquement" parlant, non ? 😉

Sub testIII()
Sheets("Feuil1").Range(Sheets("Feuil1").Cells(Rows.Count, 3).End(3)(2), Sheets("Feuil1").Cells(100, "E")).Select
End Sub

 

[Efgé]

Re : Sélection plage cellule

Re
Staple:
Oui, oui, mais....

....sachant que la dernière ligne du tableau est variable
(si mon tableau est C8:E65 => sélection par macro = C66:E100)

😀
Cordialement

Edit suite a ton Edit 😀
Là, ouaip

 

[Staple1600]

Re : Sélection plage cellule

Re


Efgé:
Tu as vu mon EDITION ?
Ou je mérite toujours un coup de gourdin 😉 ?

 

[Efgé]

Re : Sélection plage cellule

Re
Staple:
Tu évites ,de justesse, les coups de gourdin, pour cette fois 😀

J'en profite pour signaler que Rows.count tel quel peut poser problèmes:
Cela renvoi la même chose que Application.Rows.count.
J'ai eu un plantage avec un classeur 2003 ouvert sous 2007.
La feuille faisait, bien entendu, 65536 lignes, et la cellule $A$1048576 n’existait, bien évidement pas 😀
Depuis, je rattache toujours le Rows.count à la feuille, comme ça j'ai le bon nombre de lignes quelque soit la version utilisée.

C'était le quart d'heure "J'en profite pour"

Cordialement

EDIT
A bien y regarder, tu évite les coups, mais je pense que 45Mn de Céline Dion ne pourront que t'être profitable (en cas de rupture de CD de Céline, j'accepte Julio Iglesias. Je sais je suis trop bon) 😀