Macro - Dernière ligne d'un tableau et copie

[Kodama]

Bonjour à tous,

Je suis débutant dans l'utilisation des macros et j'aurai besoin de votre aide.

Mon problème est le suivant :

Mon fichier comporte 3 onglets. Le premier est un tableau de saisie, le second un tableau statistique et le 3ème un bordereau de suivi.
Je souhaite que certains éléments de la dernière ligne du tableau de saisie s'incrémente automatiquement dans le 3ème onglet.
Ainsi, la dernière cellule active de la colonne B de l'onglet 1 sera copié dans la case A3 de l'onglet 3 dès l'exécution de la macro. De même pour la colonne C dans la case C7.

Et une petite question bonus : J'aimerai que suite à cette manoeuvre, il y ait une impression automatique de la plage A1:E8 de l'onglet 3.

Et histoire d'embêter le monde (et surtout progresser), avoir une explication des commandes utilisées serait parfait.

Merci par avance,

Sylvain

 

[job75]

Re : Macro - Dernière ligne d'un tableau et copie

Bonsoir Kodama, bienvenue sur XLD,

Pour vous le problème est peut-être clair, moi je n'ai pas du tout compris ce que que doit faire la macro.

Que voulez-vous dire par incrémenter ?

Un petit fichier (<48 ko) montrant ce que vous voulez obtenir sera bien utile.

A+

 

[Kodama]

Re : Macro - Dernière ligne d'un tableau et copie

Effectivement c'était clair pour moi, la prochaine fois j'arriverai peut être à expliquer du 1er coup ^^

Je reprends donc, en mettant cette fois le document en lien, ca aidera effectivement mieux à comprendre mon propos.

Dans l'onglet 1, les agents saisissent les informations dans les 11 colonnes.
On retrouve certaines de ces infos dans le 2ème onglet. Je souhaite donc leur éviter une double saisie.

Ainsi, je veux qu'en cliquant sur un bouton, la macro sélectionne la dernière ligne du tableau puis envoie les infos dans le 3ème onglet.
Exemple : Je souhaite qu'on trouve la valeur de B20 du 1er onglet dans la case D3 du 2ème onglet. Ainsi que C20 dans I3 et E20 dans E8.
Ensuite, j'aimerai que ca imprime la zone définie du second onglet.

J'espère avoir été un peu plus clair. Dans le cas contraire, je tenterai ma chance à nouveau !

 

[job75]

Re : Macro - Dernière ligne d'un tableau et copie

Bonsoir Kodama,

Voyez si le fichier joint vous convient.

La macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub CommandButton1_Click()
Dim ref As Range
Set ref = Range("B65536").End(xlUp)
With Sheets("Feuil2")
  .Range("D3,I3,E8") = ""
  .Range("D3") = ref
  .Range("I3") = ref.Offset(, 1)
  .Range("E8") = ref.Offset(, 3)
  .PageSetup.FitToPagesWide = 1
  .PageSetup.FitToPagesTall = 1
  .PrintOut
End With
End Sub

A+

 

[Kodama]

Re : Macro - Dernière ligne d'un tableau et copie

C'est exactement ca.

Merci beaucoup !