Discussion :

[blackty1]

Bonjour,

Je voudrais intégrer une macro avec les conditions suivantes :
si la ligne 3 est vide ; alors copier (B2:L2) sur la ligne 7 de l'onglet (annexe); sinon copier Range (B2:L2).select
Range (Selection, Selection.End (XlDown)).select
sur la ligne 7 de l'onglet (annexe)

[rjamin]

Bonjour,
Je me pose des questions.

si la ligne 3 est vide ; alors copier (B2:L2) sur la ligne 7 de l'onglet (annexe)

Pour quoi copier une ligne vide su la ligne 7 de la feuille ANNEXE ligne qui contient un titre ?

sinon copier Range (B2:L2).select
Range (Selection, Selection.End (XlDown)).select
sur la ligne 7 de l'onglet (annexe)

Je suppose qu'il s'agit de copier le contenu de B2:L2 sur la première ligne vide de Annexe et pas sur la ligne 7 ?

[blackty1]

Oui tout à fait sur la première ligne vide la ligne 8

[rjamin]

Bonjour,
Voilà la macro
J'ai utilisé la valeur 65536 pour assurer la compatibilité avec Excel 2003 et antérieur.

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
16
17
18
19
20
Option Explicit
Sub test()
'Déclaration des variables
Dim DerLignRens As Integer, PremLignVide As Integer
'Pour déterminer la ligne à transférer (dernière ligne renseignée de la feuille Asie_hors_japon)
Sheets("Asie_hors_japon").Activate
DerLignRens = Range("A65536").End(xlUp).Row
'Copie des données de la ligne dans le presse papier
Range(Cells(DerLignRens, 2), Cells(DerLignRens, 12)).Copy
 
'Activation de la feuille Annexe
Sheets("Annexe").Activate
'Pour déterminer la première ligne vide de la feuille Annexe
PremLignVide = Range("A65536").End(xlUp).Row + 1
'Coller les données copiées
Cells(PremLignVide, 1).Select
ActiveSheet.Paste
'Effacer les pointillés de la sélection copiée
Application.CutCopyMode = True
End Sub

A recopier dans un module
Je joins votre fichier
Encodez une nouvelle ligne dans Asie_hors_japon et cliquer sur transfert.

[Marc-L]

Bonjour,

juste une remarque !

Pour assurer la compatibilité, ne surtout pas mettre en dur un Range mais partir plutôt du nombre de lignes : Rows.Count …

Comme cela, peu importe la version, cela fonctionnera toujours !

Exemple : DerLignRens = Cells(Rows.Count, 1).End(xlUp).Row …

[rjamin]

Bonjour,

Merci à Marc-L pour la remarque pertinente

Code :

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

DerLignRens = Cells(Rows.Count, 1).End(xlUp).Row …

[blackty1]

Merci pour ces précisions.
Mais en essayant la macro ne prend en compte que la dernière
ligne à copier ex : ligne 4; alors que je voudrait qu'elle copie de la ligne 2 à la ligne 4

[Didier Gonard]

Bonjour,

Code :

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

DerLignRens = Range(Cells(Rows.Count, 1).End(xlUp), Cells(2, 1))

cordialement,

Didier