Pb Macro

Bonjour,

Je suis en train de me prendre la tete sur une macro de débutant et si quelqu'un pouvait m'aider ce serait sympa.

Je souhaiterai faire simplement une macro permettant de copier coller un tableau, et qu'il le colle à chaque fois à la derniere ligne du précedant tableau.

En fait quand j'execute la macro que j'ai fait (mais qui ne fonctionne pas;-(!!!) et bien celle -ci fonctionne la premiere fois, mais ne veut pas fonctionner ensuite.

Je suppose qu'il doit y avoir quelque chose que je ne comprends pas!

Si vous avez besoin du fichier excel, n'hesitez pas je vous l'enverrai.

Bonjour et bienvenue,

Oui, envoie ta feuille ou le fichier

amicalement

Claude.

Dites moi si vous ne comprenez pas.

Cordialement,

bonjour,

Dans la cellule au dessus de points d’évaluation tu colles :

=NB.SI($E$2:$E$100000;"Note globale:") en supposant que cette cellule est "E2"

Sub créernouvelvenement()

Nbval = Range("E1").Value
Range("A3:F11").Copy
Cells(9 * i + 3, 1).Paste
End Sub

Tu affectes cette macro à ton bouton.

en espérant avoir été utile

pierre

Pour Pierre,

J'avoue ne rien avoir suivi à ta manip.

A quoi sert la formule écrite en E2?Et n'y a t'il pas un 0 de trop dans ton "E$100000" le max d'excel c'est 65535!

Et puis le code VB. Je t'avoue que je ne le comprends pas. (Après mes connaissances sont plus que mauvaises la dedans.)

re,

regarde si çà te va

Fichier:

https://www.excel-pratique.com/~files/doc/Tablo.xls

bonne journée

Claude.

Re,

En effet c'est typiquement ça que je voulais.

Tu l'as fait en VB, ou alors en graphique?

Parce que ne connaissant que de nom le VB, je l'ai fait en graphique. Mais ca ne fonctionnait pas.

J'avoue que je ne comprends pas comment tu as fait.

Tu veux bien m'expliquer? Ou c'est trop long?

re,

en VBA

J'ai simplement nommé le 1er tableau "Tablo"

en cliquant sur la macro, on copie Tablo en dessous et efface le 1er (qui reste vide et prêt

pour un nouveau).

J'ai virer toutes les anciennes macros.

Claude.

Ok.

Bon le VBA c'est pas pour moi franchement.

Juste au niveau des notes, celles-ci ne s'effacent pas dans la macro. Et il faut garder les "points d'évaluations".

Tu ne saurais pas, comment je dois m'y prendre pour le faire de façon graphique... genre pour newbie...!!!;-)

ou alors me dire ce qui n'allait pas dans ma macro?

re,

Tu ne saurais pas, comment je dois m'y prendre pour le faire de façon graphique... genre pour newbie...!!!

connais pas !

Pour effacer les notes dans le modèle, ajoute cette ligne dans la macro :

Range("f4:f11").ClearContents

j'ai pas trop compris le format conditionnel !

Claude.

Pour le format conditionnel. Pas de pb.

En fait c'est pour que q'il n y a rien de dans... la case se noircisse.

OK! Merci en tout cas pour ton aide.

C'est vraiment sympa!

Cordialement,

Ah si une autre dernière question.

Comment as tu fait pour figer le tableau comme ça?

Désolé. C'est pas évident quand on connait pas bien.

re,

En sélectionnant la ligne 13 et Fenêtre/Figer les volets

amélioration :

Sub Enregistre()
    Range("Tablo").Copy Destination:=Range("A65536").End(xlUp)(2)
    Range("a4:d11").ClearContents
    Range("f4:f11").ClearContents
    Application.Goto Range("A65536").End(xlUp).Offset(-9, 0), Scroll:=True
End Sub

avec cette macro modifiée, le dernier enregistrement sera en haut de l'écran, sous le modèle.

Pense à mettre le fil en "Résolu"

Claude.

re,

Comme tu es nouveau sur le forum, je te rappelle comment mettre un fil en "Résolu"

En dessous du message, en bas à gauche, tu as cette petite fenêtre,

tu mets "résolu" et "Validez"

il faut être connecté

à+....sur un prochain fil

Claude.

LOL.

Oui je suis pas spécialement habituer à aller sur les forums...

Merci en tout cas.

A bientôt.