Discussion :

[Titus_stagiaire]

Bonjour tout le monde !

J'ai une petite question, je dois copier différents ranges d'une même colonne d'une page excel à une autre.

Le problème c'est qu'il y a des cellules vides entre ces différents ranges.

Je n'arrive pas à trouver le moyen d'ignorer ces cellules.

Quelqu'un aurait une idée ?

Merci

[Jean-Philippe André]

Salut,

tu peux nous montrer le code VBA que tu utilises stp ?
Qu'on parte de l'existant pour te donner les meilleures pistes de solution =]

Tu nous dis egalement qu'il y a des cellules vides "entre", ca veut dire qu'il y a des "trous" avant ou apres ta copie ?

[Philippe Tulliez]

Bonjour,

Quelqu'un aurait une idée ?

Manuellement, il y a au moins deux façons de le faire.

1. Sélectionner les cellules remplies (cellules non contiguës).
   Copier les cellules sélectionnées et les coller dans la cellule cible
2. Copier la plage complète (avec les lignes vides)
   Copier la plage sélectionnée et Coller en sélectionnant la cellule cible
   Utiliser la boîte de dialogue Atteindre en sélectionnant les cellules vides
   Supprimer les lignes entières

Tu exécutes cela avec l'enregistreur de macros et tu reviens te faire aider éventuellement

[Titus_stagiaire]

Les cellules vides se trouve au sein du range A6:A129
Le problèmes c'est que leurs places et nombres peut changer.
Il faudrait donc les "détecter" dans un premier temps puis les coller par la suite.

Voici le code utilisé pour le moment, un simple copier/coller

Code :

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

1
2
3
4
5
6
Sub copy_past_ticker()
 
Worksheets("Morning").Range("A6:A129").Copy _
Destination:=Worksheets("Commnentaire").Range("A57:A106")
 
End Sub

[Titus_stagiaire]

Désolé, je viens seulement de voir ton message.

Si j'enregistre la macro avec une manipulation manuelle, elle prendra toujours en compte les memes ranges. J'ai besoin que la macro s'adapte

[RyuAutodidacte]

Bonjour,
Essaie de voir avec range.SpecialCells (voir l'aide VBA) => SpecialCells(xlCellTypeConstants)
ex (ici je n'ai pas fait le pointage des feuilles):

Code :

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

Range("A6:A129").SpecialCells(xlCellTypeConstants).Copy Destination:=Range("E6")

[Titus_stagiaire]

En bidouillant j'ai codé ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Worksheets("Morning").Select
    Range("A5").Select
    Range("A6:A129").Select
    Selection.SpecialCells(xlCellTypeConstants, 23).Select
    Selection.copy
    Range("U8").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.copy
    Sheets("Commnentaire").Select
    ActiveWindow.SmallScroll Down:=-75
    Range("A57").Select
    ActiveSheet.Paste

Qui me convient parfaitement
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Elle mériterait d'être plus connue

Merci pour votre aide

[RyuAutodidacte]

Re,
pour mettre le code il faut utiliser le bouton # et mettre ton code entre les balises "[CODE ][/CODE ]" (modifier précédent message si possible svp)
Attention dans la plupart des cas, Select, Selection sont à banir, voir l'exemple donné
Le pointage des feuilles : MaFeuille.Range(…… donc on aura :

Code :

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

Worksheets("Morning").Range("A6:A129").SpecialCells(xlCellTypeConstants).Copy Destination:=Worksheets("Commnentaire").Range("A57")