Discussion :

[Florent6744]

Bonjour,

Voila trois jours que je m'arrache les cheveux pour réussir à créer une macro.

je souhaite réaliser une macro qui depuis le classeur A va créer un classeur B puis copier la première ligne et la ligne active du classeur A dans le classeur B et enfin s'enregistre.

Pour le moment j'arrive à créer le classeur B, ça bloque au niveau de la copie des lignes (et j'avoue je ne sais pas comment choisir la ligne active) et j'arrive a enregistrer.

J'ai mis un fichier test pour que vous puissiez voir la macro que j'ai réaliser.

Je vous remercie d'avance pour votre aide.

essai macro.xlsm

[Invité]

Bonjour,

Une solution possible dans ce fichier. Clic droit sur une cellule de la colonne 1, chemin à adapter.

[ARTURO83]

Bonjour,

pour copier la ligne de la cellule sélectionnée

Code :

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

    Range(Cells(ActiveCell.Row, "A"), Cells(ActiveCell.Row, "E")).Copy

pour recopier la lignes des titres dans la plage A10:E10 par exemple (si c'est toujours pareil bien sûr):

Code :

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

1
2
     Titres = Array("Num devis", "Date", "Acheteur", "Vendeur", "Méthode")
     [A10:E10] = Titres

Autre chose, j'ai vu que vous aviez créé la macro "Sub selection()". Pour nommer des macros ou des variables, vous n'avez pas le droit d'utiliser des termes réservés à Excel, mettez le mot au pluriel si vous voulez conserver ce nom "Sub Selections()"

Cdlt

[unparia]

Bonjour ARTURO83
Ta remarque est justifiée.
Pour être toutefois totalement dans le même esprit que celui de VBA en matière de nommage des variables, il est plus convenable de réserver l'utilisation du "pluriel" (suffixe "s") pour désigner une collection (cela permet un examen visuel plus facile lors d'interventions de maintenance).

[Florent6744]

Bonjour,

Merci pour votre aide, la macro marche nickel (une fois qu'on a compris qu'il faut donner une adresse et un nom pour l'ouverture du nouveau fichier), mais j'aimerais juste remplacer le click droit par un bouton.
Par contre il y a une chose que je ne comprend pas.
A quoi sert les fonctions Annéemoisjour et heureminute?

[Invité]

A quoi sert les fonctions Annéemoisjour et heureminute?

Bonjour,

Elles servent à horodater les versions successives au cas où, dans le nom des fichiers générés. Vous n'êtes pas obligé de les utiliser.

[OrDonc]

Bonsoir
Quel est l'intérêt de créer des classeurs de 2 lignes ?
Il est plus simple d'ajouter un onglet de sauvegarde !
Première macro dans la fenêtre des codes de l'onglet source (Alt F11)

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_SelectionChange(ByVal R As Range)
    Dim P As Range
    If R.Row > 1 And R.Column = 1 And Application.CountA(R.Resize(, 5)) = 5 Then
       If MsgBox("à enregistrer ?", 4, "") = 7 Then Exit Sub
       Set P = R.Resize(, 5)
       P.Copy Feuil2.Cells(Rows.Count, 1).End(xlUp)(2)
       Rows(R.Row).Delete
    End If
  End Sub

Seconde macro en utilisant un Tableau dans l'onglet (hélas très souvent ignoré bien que présentant de nombreux avantages notamment de n'avoir à prendre en compte un déplacement)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_SelectionChange(ByVal R As Range)
  Dim L As Integer, P As Range
  If Not Intersect(R, [Bd].Columns(1)) Is Nothing Then
    L = R.Row - [Bd].Row + 1 'ligne sélectionnée du tableau
    Set P = [Bd].Item(L, 1).Resize(, 5)
    If Application.CountA(R.Resize(, 5)) = 5 Then
       If MsgBox("à enregistrer ?", 4, "") = 7 Then Exit Sub '7 pour non
         P.Copy Feuil2.Cells(Rows.Count, 1).End(xlUp)(2)
         [Bd].Rows(L).Delete
    End If
  End If
End Sub