Macro copier/coller

HESSLE Tobias · 10 Avril 2017

Bonjour à tous,

Je navigue sur plusieurs forum sans trouver exactement ce qu'il me faut. Je poste donc une discussion ici pour trouver de l'aide. Je suis convaincu qu'il s'agit de quelque chose de très simple mais je ne maitrise pas du tout les macros.

Je met ci joint un exemple de fichier illustrant ma demande. Veuillez l'ouvrir avant de lire la suite

Je voudrais qu'en cliquant sur le bouton, la première ligne vide du tableau (A8:H17) se remplisse à l'aide des données actualisées du tableau (A3:H4).

L'idée étant de faire un suivi hebdomadaire de données (qui sont récupérées dans plusieurs feuilles) et donc de figer à un instant T, les données en les listant dans le second tableau. Lequel fera par la suite l'objet d'un graph.

Merci d'avance !

Tobias

Lolote83 · 10 Avril 2017

Salut,
Dans un module Standard, copie le code suivant et associe le à ton bouton

Code:

Sub CopieColle()
    xDerLig = Range("A1000").End(xlUp).Row
    xNewLig = xDerLig + 1
    Range("A4:H4").Copy Range("A" & xNewLig)
End Sub

@+ Lolote83

DoubleZero · 10 Avril 2017

Bonjour à toutes et à tous,

Bienvenue sur XLD, HESSLE Tobias.

Autre possibilité :

VB:

Option Explicit
Sub Déplacer()
    With Sheets("Feuil1").Range("a4:h4")
        .Copy Range("a" & Rows.Count).End(xlUp)(2)
        .Value = ""
    End With
End Sub

A bientôt

HESSLE Tobias · 10 Avril 2017

Ah Super merci ça fonctionne !

Comment je peux faire pour afficher un message lorsque quelqu'un clique sur le bouton ?
L'idée serait d'afficher un message d'information à l'écran disant "Attention, un seul enregistrement par semaine est requis".

j'ai tenté de faire ça avec la fonctionnalité "Validation de données" mais ça ne fonctionne qu'avec une cellule sellectionnée

DoubleZero · 10 Avril 2017

Re-bonjour,

Une suggestion en pièce jointe.

A bientôt

HESSLE Tobias · 10 Avril 2017

Là ça devient compliqué pour moi, je n'arrive pas à l'appliquer

DoubleZero · 10 Avril 2017

Re-bonjour,

HESSLE Tobias à dit:
... je n'arrive pas à l'appliquer

D'où la nécessité de déposer, dès le premier message, le véritable fichier de travail (allégé et sans donnée confidentielle).

Quel est l'obstacle ?

A bientôt

Macro copier/coller

HESSLE Tobias

XLDnaute Nouveau

Pièces jointes

Lolote83

XLDnaute Barbatruc

DoubleZero

XLDnaute Barbatruc

HESSLE Tobias

XLDnaute Nouveau

DoubleZero

XLDnaute Barbatruc

Pièces jointes

HESSLE Tobias

XLDnaute Nouveau

DoubleZero

XLDnaute Barbatruc

Discussions similaires