Macro copie de la ligne si colonne A renseignée

[Elodie195]

Bonjour,

je souhaiterais créer une macro qui me fait l'équivalent d'un CTRL+C.

J'ai un tableau qui va de la colonne A à la colonne Z.

Certaines cellules sont vides mais c'est normale.

je voudrais une macro qui, quand la cellule de la colonne A n'est pas vide, me sélectionne pour ma copie jusqu'à la colonne Z (et non la ligne entière, car j'ai des données à ne pas copié au dela de la colonne Z)..

Avec une sorte de boucle qui voit de ligne en ligne si la suivante est vide ou pas, et que la macro s'arrête si A est vide.

Tout ceci me créant un CTRL+C de tout mon tableau remplissant cette condition.

Mon but est d'avoir une copie qui va de A2 à Z(variable).

Est-ce possible ?

merci d'avance.

Elo

 

[phlaurent55]

Re : Macro copie de la ligne si colonne A renseignée

Bonjour Elodie

pas trop facile à comprendre tes explications sans voir le fichier,

je souhaiterais créer une macro qui me fait l'équivalent d'un CTRL+C.

je suppose qu'après avoir copié, il faudra coller: Où ????

à+
Philippe

 

[Elodie195]

Re : Macro copie de la ligne si colonne A renseignée

Bonjour Philippe,

je le copierais sur un autre classeur Excel.

j'ai ajouté mon fichier.

Donc en gros un bouton macro devrait me sélectionner de A2 à Z14.

mais si jamais je rajoute des lignes je voudrais que la macro sélectionne bien mes lignes ajoutées.

 

[phlaurent55]

Re : Macro copie de la ligne si colonne A renseignée

Re,

voici un code qui répond à la demande mais sans plus de détails ??????????????
il est nécessaire de connaitre le non du second classeur ainsi que l'endroit exact où les données seront copiées

Dim cellule As Range
For Each cellule In Range("A1:A20")
If cellule <> "" Then
Range(Cells(cellule.Row, 1), Cells(cellule.Row, 26)).Copy
' et indiquer l'endroit où seront collées les cellules
'
'
End If
Next cellule

à+
Philippe

 

[Elodie195]

Re : Macro copie de la ligne si colonne A renseignée

merci beaucoup, je teste.

Le nom du second classeur est Année2012.xls

et l'endroit exact est l'onglet 1 qui s'appelle feuil1.

Le tableau sera identique, de A2 à Z.

 

[Elodie195]

Re : Macro copie de la ligne si colonne A renseignée

rebonjour,

j'ai un soucis avec cette macro:

j'ai une erreur :

For Each cellule In Range("A2:A20")

"Instruction incorrecte à l'extérieur d'une procédure"

 

[phlaurent55]

Re : Macro copie de la ligne si colonne A renseignée

Re,

sans voir cette ligne dans son contexte ?????????

normalement on doit trouver ceci un peu plus en avant dans le code:
Dim cellule As Range

à+
Philippe

 

[Elodie195]

Re : Macro copie de la ligne si colonne A renseignée

Oui j'ai bien Dim cellule As Range avant

mais toujours la même erreur 🙁

 

[phlaurent55]

Re : Macro copie de la ligne si colonne A renseignée

Re,

Voir fichiers 2 joints (ouvrir les 2 simultanément)
le code est dans le fichier "Classeur2-1.xls"

à+
Philippe

 

[Elodie195]

Re : Macro copie de la ligne si colonne A renseignée

ca marche parfaitement !!

merci beaucoup de votre patience !!!

bonne fin d'apres midi.

Elo

 

[Elodie195]

Re : Macro copie de la ligne si colonne A renseignée

je remonte mon topic pour une petite précision.

j'aimerais que la copie vers le classeur Année 2012.xls se fasse à partir de la cellule A3

car là elle se copie à partir de A2.

Quelle modif dois-je faire dans la macro.

ps: j'utilise les 2 fichiers envoyés par phlaurent. 😉

 

[phlaurent55]

Re : Macro copie de la ligne si colonne A renseignée

Re,

modifie cette ligne:

For Each cellule In Range("A1:A" & Range("A65535").End(xlUp).Row)

comme ceci:

For Each cellule In Range("A3:A" & Range("A65535").End(xlUp).Row)

à+
Philippe

 

[phlaurent55]

Re : Macro copie de la ligne si colonne A renseignée

Re,

si tu parles de la position qui va recevoir la copie dans le classeur Année 2012, oublie la réponse précédente.

Pour coller les données à partir de la cellule A3, il faut que la cellule A2 ne soit pas vide
il suffit de mettre la couleur des caractères identique au fond de la cellule,pour donner l'impression que A2 est vide.


à+
Philippe

 

[Elodie195]

Re : Macro copie de la ligne si colonne A renseignée

Bonjour et merci de votre réponse.

Mais je pense m'être mal expliquée 😱

en fait je ne veux pas perdre une ligne de donnée.

je veux juste que mon tableau soit décalé d'une ligne lorsqu'il apparait dans le fichier Année2012.xls et qu'il commence en A3, mais avec toutes mes données quand même.

car mettre blanc sur blanc me fait perdre une ligne de donnée non ?

 

[phlaurent55]

Re : Macro copie de la ligne si colonne A renseignée

Re,

c'est exactement ma réponse postée au #13 ne pas tenir compte de la réponse du #12

en fait, lors du collage le code détermine la dernière cellule de la colonne et colle les données juste en dessous

Pour que les données se collent en A3, il faut nécessairement que la cellule A2 soit non-vide (contienne quelque chose)
il suffit d'y mettre n'importe quoi ( en A2 ) et éventuellement masquer

à+
Philippe