Sélection plage à partir ligne 2 jq col F

[Marc_du_78]

Bonjour en ce début de Week end,
Voilà je cherche comment sélectionner une plage comprise de la colonne 'A' à la colonne 'F' dont le nombre de ligne est variable.
J'y parviens à partir de la première ligne, mais pas à partir de la seconde.
En vous en remerciant et vous souhaitant un bon Week end.

 

[bertgrav]

peux tu aller plus loin, est ce que le début de ta sélection est par exemple de A1 à F1 et que la fin est la dernière ligne, ou est ce une donnée fixe ?

mets une piéce jointe, avec 2 exemples et des lignes supplémentaires

chantal

 

[Marc_du_78]

Bonjour Chantal, le Forum,
Je ne peux hélas fournir un fichier exemple étant au boulot. Mais voici la présentation de chaque feuille du classeur (il y en a une par secteur) et vous verrez que ce n'est pas simple.

Col A : Date (n'apparaît qu'une fois si plusieurs incidents dans les 24 heures)
Col C : Numéro (Seulement si l'envoi d'une patrouille a été nécessaire)
Col C : ligne de texte (relate l'incident)
Col D : Heure de l'incident (si l'incident paraît important)
Col E : Heure départ de patrouille (si l'envoi est jugé nécessaire)
Col F : Observations (au retour de la patrouille)

La difficulté réside dans le fait que rarement sont les lignes remplies intégralement, puisqu'elles sont fonction des évènements et qu'il peut y avoir de 0 à x évènements par jour.

J'ai essayé le code ci-dessous sans succès :
Sub Rapport01()
Sheets('R01').Select
ActiveSheet.Range('A3').CurrentRegion.Select
Selection.Copy
End Sub

La seule certitude est que dans la plage (A:F exemple) et pour chaque lignes qui suivent, la colonne C est toujours renseignée. Ensuite, chaque secteur est recopié sur une feuille 'Historique' qui est imprimée le mois échu pour être archivée.
Merci de vous pencher sur ce problème insoluble pour moi.

 

[Pierrot93]

Bonjour Marc

As tu essayé un code un peu comme celui ci dessous ?

Range('A1:F1', Selection.End(xlDown)).Select

1 étant la ligne de titre des colonnes.

Si cela peut t'aider !!!

Bon week end

 

[Pierrot93]

Re Marc

on peut aussi affiner le code comme suit

Range('C2', Selection.End(xlDown)).CurrentRegion.Select

@+

 

[Marc_du_78]

Bonsoir Pierrot93,
Je te remercie, mais ca sélectionne également la ligne de titre, ce dont je ne souhaite pas;
Je te souhaite un bon week end, moi je vais continuer à chercher.

 

[Pierrot93]

Bonjour Marc

Désolé j'avais mal compris, dans ce cas il faut également utilisé la propriété resize comme ci dessous.

J'espère que cette fois...

Bon dimanche

Sub test()
Dim MonTab As Range
Set MonTab = Range('C2', Selection.End(xlDown)).CurrentRegion
MonTab.Offset(1, 0).Resize(MonTab.Rows.Count - 1, MonTab.Columns.Count).Select
End Sub