XL 2013 VBA

Roseline à dit:

Bonjour,

Est-ce que vous pouvez m'aider svp. J'ai joint mon fichier.
Merci beaucoup de votre aide.

Cliquez pour agrandir...

Sub transfertJJ()
    Dim derlg&, dercol&
    On Error GoTo PasDeFeuille
    With Sheets(Format([b1], "yyyy-mm-dd"))
        .[b1] = [b1]
        derlg = Cells(Rows.Count, "A").End(xlUp).Row
        dercol = Cells(4, Columns.Count).End(xlToLeft).Column
        Range("a4", Cells(derlg, dercol)).Copy .Range("a3")
    End With
    Exit Sub
PasDeFeuille:
    MsgBox "Feuille " & Format([b1], "yyyy-mm-dd") & " inexistante", , "Information"
End Sub

Jacky67 à dit:

Bonjour,
Une piste avec ce code en PJ

VB:

Sub transfertJJ()
    Dim derlg&, dercol&
    On Error GoTo PasDeFeuille
    With Sheets(Format([b1], "yyyy-mm-dd"))
        .[b1] = [b1]
        derlg = Cells(Rows.Count, "A").End(xlUp).Row
        dercol = Cells(4, Columns.Count).End(xlToLeft).Column
        Range("a4", Cells(derlg, dercol)).Copy .Range("a3")
    End With
    Exit Sub
PasDeFeuille:
    MsgBox "Feuille " & Format([b1], "yyyy-mm-dd") & " inexistante", , "Information"
End Sub

Cliquez pour agrandir...

Roseline à dit:

Tout fonctionne parfaitement et je vais pouvoir l'adapter….Sauf que si je veux insérer les lignes une après l'autre et non les écraser, je ne sais pas où changer le tout.
Merci encore de votre aide

Cliquez pour agrandir...

Range("a4", Cells(derlg, dercol)).Copy .Range("a3")

Range("a5", Cells(derlg, dercol)).Copy .cells(.rows.count,"A").end(xlup).offset(1)

Jacky67 à dit:

RE..
Comme le signale Patrick, que je salue au passage
remplacer cette ligne

Code:

Range("a4", Cells(derlg, dercol)).Copy .Range("a3")

par

Code:

Range("a5", Cells(derlg, dercol)).Copy .cells(.rows.count,"A").end(xlup).offset(1)

Il faudra néanmoins supprimer la ligne 25 "Compte rendu de la réunion" et laisser les titres sur les feuilles individuelles

Cliquez pour agrandir...

Roseline à dit:

J'ai terminé mon code et tout fonctionne parfaitement, cependant il cole mes données avec la mise forme de mon document et je voudrais juste les valeurs des cellules. J'ai ajouté "pastespecial paste:=xlpastevalues"mais cela ne fonctionne pas. Probablement qu'il n'est pas au bon endroit. Avez-vous une tite idée pour moi encore une fois. Merci

Cliquez pour agrandir...

Jacky67 à dit:

Re..
Une version un peu plus complète et qui crée les feuilles si elles n'existent pas

Cliquez pour agrandir...

patricktoulon à dit:

re
Bonjour @Roseline
il colle rien avec un quelconque format d'ailleurs c'est même pas un copier coller
si tu a fait auparavant un copy destination il est certain que maintenant le format est installé

on fait un .value=.value c'est tout

value c'est value et rien d'autre !!!

Cliquez pour agrandir...