XL 2013 VBA

[Roseline]

Bonjour,
J'ai besoin de votre aide.
J'ai un fichier dans lequel j'aimerais que les données se transpose à un autre onglet mais je ne sais pas comment faire.
Je vous explique. Dans mon onglet 1, la personne met son nom et inscrit son sujet et met la date requise.
Je voudrais qu'en cliquant sur le bouton exporter, les données suivantes: date, nom et sujet se transpose dans l'onglet correspondant à la date indiqué dans l'onglet 1.
Est-ce que vous pouvez m'aider svp. J'ai joint mon fichier.
Merci beaucoup de votre aide.

 

[Jacky67]

Bonjour,

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

Bonjour,
Une piste avec ce code en PJ

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

 

[Roseline]

Bonjour,
Merci beaucoup vous m'aider énormément….avec cela je vais pouvoir adapter le reste. Vous m'avez sauvé énormément de temps.
Bonne journée et merci encore.

 

[Roseline]

Bonjour,
Une piste avec ce code en PJ

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

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

 

[patricktoulon]

bonsoir
si tu veux ajouter a la suite et non ecraser c'est
Range("a4", Cells(derlg, dercol)).Copy .cells(rows.count,"A").end(xlup).offset(1)

 

[Jacky67]

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

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

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

par

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

 

[Roseline]

Bonjour à vous,
Vous m'avez été d'une grande aide. Je vous remercie énormément et tout fonctionne comme je le désirais. Une chance que vous êtes là, c'est appriécié. Bonne journe

 

[Roseline]

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

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

par

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

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

 

[patricktoulon]

re
ben alors tu copy pas tu calque
.cells(.rows.count,"A").end(xlup).offset(1).resize(derlg-5,dercol)=Range("a5", Cells(derlg, dercol))

 

[Jacky67]

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

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

 

[patricktoulon]

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 !!!

 

[Roseline]

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

Merci beaucoup avec ca je suis en voiture comme on dit. Une chance que vous êtes là. Bonne journée et merci encore

 

[Roseline]

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 !!!

Merci de l'information et tout fonctionne maintenant avec un copy destination… ma commande n'était pas correcte. Bonne journée et merci encore de votre aide