Discussion :

[starrlaz]

Bonjour,

Pour finaliser mon fichier, j’ai besoin d’un coup de main.
Dans la feuille « En cours » les colonnes vont de A à AO.

Dans ma macro actuelle, comme je l’ai indiqué dans le module 3, elle copie de A1 à J1 de la feuille « En cours » et colle les contenus dans la feuille « Terminés » à partir de la cellule A2.

Ce que je voudrais,
Lorsque je finis de remplir les cellules qui m’intéresse, je sélectionne une cellule de la ligne qui m’intéresse par exemple A2 et je voudrais en cliquant sur le bouton « transférer dans Terminés », que la macro transfère uniquement le contenu des cellules qui m’intéresse dans la feuille « Terminer » par exemple le contenu de la colonne A, C et D.

Pour info :
A l’ouverture du fichier, si la cellule G1 est rouge, cela signifie que les macros sont désactivées. Si elle est verte, les macros sont actives.

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
Sub ARCHIVER()
 
 'ActiveCell.Offset(0, -9).Range("A1").Select      ' décale vers la 1ère colonne de la ligne
    ActiveCell.Range("A1:j1").Select
 
  Selection.Copy                                     ' Copie la ligne sélectionnée
 
 
 
    Sheets("Terminés").Select                      'Sélectionne la feuille de destination, cellule A2000
    Range("A2000").Select                ' b remonte vers la 1ère ligne remplie
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A2").Select      'Décale de 1 ligne vers le bas et colle les données
    ActiveSheet.Paste                               'Reviens vers la feuille de départ
 
 
End Sub

Merci pour votre aide.

[patricktoulon]

re
oulah!!! je remplace tout simplement tout ton code par ceci:

Code :

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

Range("A1:j1").Copy Destination:=Range("A2000").End(xlUp).Offset(1, 0)

[starrlaz]

Bonjour Patricktoulon,

Ce code

Code :

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

Range("A1:j1").Copy Destination:=Range("A2000").End(xlUp).Offset(1, 0)

ne m'a pas apporté de solution. j'ai trouvé un code encore meilleur. mais je n'ai toujours pas résolu mon problème.

je souhaite faire le choix d'un échantillon pré-définie, que l'on peut modifier à souhait.
si on choisit de copier le contenu des cellules A, C et D dans un début est très bien, on pourra toujours en ajouter ou retrancher en cas d’évolution du fichier.

Code :

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

1
2
3
4
5
6
7
8
9
10
   Sub archiver()
    Dim O As Worksheet 'déclaration pour appeler une feuille avec juste une lettre
    Dim S As Worksheet 'pareil
    Dim Dl& 'variable qui va permettre de trouver la dernière ligne remplie
    On Error Resume Next
    Set O = Worksheets("en cours") ' la feuille "en cours" s’appellera o plus facile et rapide a écrire
    Set S = Worksheets("terminés") ' pareil qu'au dessus
    Dl = S.Range("A" & Rows.Count).End(xlUp).Row ' cherche la dernière ligne remplie de la feuille terminés
    O.Range(ActiveCell, ActiveCell.Offset(0, 10)).Copy S.Range("A" & Dl + 1) 'Dl+1 car tu veux écrire sur la ligne d'en dessous
    End Sub

[Al__22]

Essaye ceci (par contre ça ne copie que la première ligne)

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 archiver()
    Dim O As Worksheet
    Dim S As Worksheet
 
    On Error Resume Next
    Set O = Worksheets("en cours")
    Set S = Worksheets("terminés")
 
    Dl = S.Range("A" & Rows.Count).End(xlUp).Row
 
Col1 = InputBox("Veuillez entrer la première colonne de la plage à copier (juste la lettre !!)")
Col2 = InputBox("Veuillez entrer la dernière colonne de la plage à copier (juste la lettre !!)")
 
S.Range(Col1 & Dl + 1 & ":" & Col2 & Dl + 1).Value = O.Range(Col1 & "1:" & Col2 & "1")
    End Sub