[VBA-E] Copier une séléction de valeur jusqu'à la prochaine cellule non vide

**astridlet** · 22/12/2010, 10h30

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** · 22/12/2010, 10h37

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** · 22/12/2010, 10h49

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

**Louis.Gruhn** · 22/12/2010, 10h51

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** · 22/12/2010, 10h57

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** · 22/12/2010, 11h14

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** · 22/12/2010, 11h17

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** · 22/12/2010, 11h25

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

**astridlet** · 22/12/2010, 11h26

Voici le code:

Code :

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

1
2
3
4
5
6
7
8
Sub test()
 
Sheets("60601").Select
Range("B7:R7", Range("B7:R7").End(xlDown)).Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select
 
Selection.Copy Destination:=Sheets("remplissage").Range("A2")
End Sub

**aliasjadawin** · 22/12/2010, 11h32

je ne comprend pas ce que tu veux exactement

**astridlet** · 22/12/2010, 11h37

En fait je voudrai qu'il sélectionne les éléments entre B7 et R7 ainsi que tous ceux dans les lignes du dessous (tant que les lignes ne sont pas vides).
Cela marche à moitié car pour le moment avec ce code il ne sélectionne bien que les éléments de la colonne B à partir de B7...

**aliasjadawin** · 22/12/2010, 11h40

Bon, enregistre une macro, place toi en B7, fais Shift +Fin + Flèche Droite, puis Shift + Fin + Flèche Bas. Stoppe l'enregistrement.
Qu'obtiens-tu (sur Excel et en VBA) ?
Chez moi ça marche...

**astridlet** · 22/12/2010, 11h45

Voilà le résultat =)

Code :

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

1
2
3
Range("B7").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select

C'est beaucoup mieux =) !!!
Une dernière question:
Si entre B7 et R7 il y a une colonne vide (exemple J7) mais que je veux quand même sélectionner tout jusqu'à R7 tu sais comment on fait?

En tout cas génial pour la réponse !!

**astridlet** · 22/12/2010, 11h50

J'ai fait comme cela:

Code :

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

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

Ca marche c'est génial !!!

Merci beaucoup pour ton aide !!!

**aliasjadawin** · 22/12/2010, 12h15

bien joué

**astridlet** · 22/12/2010, 13h08

Merci =) !!!

Je continue maintenant je suis lancée sur la dernière étape ...
"Grâce à" la résolution du premier problème, j'ai un nouveau soucis en VBA sur ces mêmes fichiers hum...

Voilà plusieurs tableaux identiques (mais avec des données différentes) sur plusieurs feuilles.
Je dois récupérer toutes ces données et les poster sur un unique tableau.
Voici le code vu jusqu'ici pour récupérer les données:

Code :

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

1
2
3
4
5
6
Sub test()
Sheets("60601").Select
Range("B7:R7").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy Destination:=Sheets("remplissage").Range("B2")
End Sub

Je voudrai insérer un code qui permette d'aller récupérer les données des autres sheets (ex: 66666), de repérer la prochaine ligne vide du tableau sur "remplissage" et de les coller...

Je pense qu'il faut faire une boucle avec le nom des feuilles d'où je prends mes données mais je ne vois pas du tout comment... :/

**fring** · 22/12/2010, 20h25

Bonjour,

On peut très bien se passer des "Select" et simplifier le code comme ceci :

Code :

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

1
2
3
4
5
6
7
8
Sub test()
Dim x As Long
 
x = Sheets("60601").Range("R" & Rows.Count).End(xlUp).Row '<-- trouve la dernière ligne utilisée de la colonne R
 
Sheets("60601").Range("B7:R" & x).Copy Sheets("remplissage").Range("B" & Rows.Count).End(xlUp).Offset(1, 0)
 
End Sub

**ANANA49** · 10/07/2018, 10h18

Bonjour,
Complètement novice, je souhaite créer une macro me permettant de copier une plage de formules dans la première colonne vide de mon tableau et qu'il fasse cet action toutes les semaines en se décalant d'une semaine à chaque fois (Colonne vide) et pour corser le tout, qu'il me recolle en valeurs la plage sélectionnée.
Voici le code de macro automatique:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Macro2()
 
    Range("F8").Select
    Range(Selection, Selection.End(xlToRight)).Select
    ActiveWindow.SmallScroll ToRight:=3
    Range("AM8:AM215").Select
    Selection.Copy
 
    Range("AN8").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("AM8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Merci pour votre aide !!!

[VBA-E] Copier une séléction de valeur jusqu'à la prochaine cellule non vide

Macros et VBA Excel

Discussions similaires

Partager

Partager