Discussion :

[astridlet]

Bonjour,
J'ai deux feuilles Excel. Une vide que je souhaite remplir(Remplissage) et une (60601) avec les données à sélectionner.
Je sélectionne ma première ligne à copier et je voudrai que la sélection continue dans que chaque ligne du dessous n'est pas vide.

Comment faire (via une boucle peut être?)...?

Voici le début de mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro1()
 
Sheets("60601").Select
Range("B7").Select
Rows(7).Select
 
'-> comment continuer ma séléction tant que la ligne du dessous n'est pas vide?
 
Selection.Copy
Sheets("Remplissage").Select
Range("A2").Select
ActiveSheet.Paste
 
End Sub

[aliasjadawin]

sous Excel, sélectionne la première cellule, puis fais Fin + Flèche du bas.
Cela te sélectionne la dernière cellule non-vide de la plage de cellule.
Regarde ce que ça fait en VBA en enregistrant une macro et tu devrais t'en sortir (avec une boucle For par exemple).

[astridlet]

Alors cela descend bien jusqu'à la dernière ligne non vide mais cela ne sélectionne pas les lignes du dessus ... :/

[Louis.Gruhn]

Bonjour,


Sélectionner une plage de la première à la dernière cellule non-vide d'une colonne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range("A1", Range("A1").End(xlDown)).Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select

Cela vas peut être t'aider.

[astridlet]

Merci Louis !!!
Oui cela est beaucoup mieux car il sélectionne bien toutes les cellules non vides de la premières colonnes ! =) !!
Seulement il manque les cellules des colonnes à côtés... :/

J'ai modifié mon code comme suit mais ça ne marche pas... As-tu une idée?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sheets("60601").Select
Range("B7:R7").Select
Range("B7:R7", Range("B7:R7").End(xlDown)).Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select

[aliasjadawin]

Oui effectivement je ne t'ai pas précisé la sélection du Range, je pensais que tu le déduirais par toi-même.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sheets("60601").Select
Range("B7:R7").Select
Range("B7:R7", Range("B7:R7").End(xlDown)).Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select

J'ai mis ton erreur en gras. En effet, Range prend deux cellules en arguments. Or, "B7:R7" et Range("B7:R7")
Il vaut mieux écrire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Range(Range("B7"), Range("R7").End(xlDown)).Select

[Louis.Gruhn]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sheets("60601").Select
Range("B7:R7").Select  'Sa Sert à quelque chose sa?
Range("B7:R7", Range("B7:R7").End(xlDown)).Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select

Déjà tu sélectionne 2 fois B7:R7 (cf commentaire du code en haut)

Après je sais pas trop pour plusieurs collones, la solution facile c'est de faire collone par collone (huhu) mais sa doit être faisable plus simplement.

[astridlet]

J'ai essayé les deux solutions mais il ne séléctionne toujours que la première colonne B7 et pas jusqu'à R7