XL 2016 Syntaxe

[benarivo]

Bonjour,
J'aimerai créer un bulletin de notes de mon établissement.
Je me suis plante lors de l'insertion des notes. Les données que j'ai entrée se répète en même temps chaque fois que j'entre une nouvelle donné dans la ligne suivante.

 

[Oneida]

Bonjour,
Un fichier serait le bienvenu pour vous aider

 

[benarivo]

Bonjour,
Un fichier serait le bienvenu pour vous aider

Voici le projet avec laquelle j'ai besoin d'aide

 

[Phil69970]

Bonjour à tous

@benarivo

Il manque les macros avec le fichier fourni !!!!!

 

[benarivo]

Bonjour à tous

@benarivo

Il manque les macros avec le fichier fourni !!!!!

Bonjour à tous
Oui, je suis débutant en macro excel. Je vais essai de le faire et je vais vous montré plus tard

 

[Phil69970]

@benarivo

Ce que l'on veut c'est de voir ce qui a été fait donc par exemple cette macro

A noter :
Si tu réponds une fois par jour avec des infos au compte goutte tu risques fort de décourager tout le monde et de n'avoir plus de réponses.....

De plus il sera sympa d'avoir un résultat avec les valeurs que tu attends rempli à la main sans avoir à chercher de partout ce que tu veux faire

 

[Sermoisien]

Voici le projet avec laquelle j'ai besoin d'aide

Un classeur avec macro a une extention .xlsm
Si on créé une macro et qu'on enregistre en .xlsx, on perd la macro.
Il me faut un fichier en xlsm svp

 

[benarivo]

Un classeur avec macro a une extention .xlsm
Si on créé une macro et qu'on enregistre en .xlsx, on perd la macro.
Il me faut un fichier en xlsm svp

Bonjour,
Merci pour votre remarque.
Voici le fichier avec extension .xlsm

 

[cathodique]

Bonjour,
Merci pour votre remarque.
Voici le fichier avec extension .xlsm

Bonjour tout le monde,

@benarivo : ta macro simplifiée à tester.

Option Explicit

Sub entrée_auto()
    Dim ShSource As Worksheet
    Dim ShDestination As Worksheet
   
    Set ShSource = Sheets("Formulaire de saisie")
    Set ShDestination = Sheets("FICHE DE NOTE")
   
    ' Insérer une nouvelle ligne en haut de la feuille "FICHE DE NOTE"
    ShDestination.Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

    ' Copier les données de "Formulaire de saisie" vers "FICHE DE NOTE"
    ShDestination.Range("D2").Value = ShSource.Range("C13").Value
    ShDestination.Range("E2").Value = ShSource.Range("E13").Value
    ShDestination.Range("G2").Value = ShSource.Range("C17").Value
    ShDestination.Range("H2").Value = ShSource.Range("E17").Value
    ShDestination.Range("J2").Value = ShSource.Range("C21").Value
    ShDestination.Range("K2").Value = ShSource.Range("E21").Value
    ShDestination.Range("M2").Value = ShSource.Range("H13").Value
    ShDestination.Range("N2").Value = ShSource.Range("J13").Value
    ShDestination.Range("P2").Value = ShSource.Range("H17").Value
    ShDestination.Range("Q2").Value = ShSource.Range("J17").Value
    ShDestination.Range("S2").Value = ShSource.Range("H21").Value
    ShDestination.Range("T2").Value = ShSource.Range("J21").Value
    ShDestination.Range("V2").Value = ShSource.Range("O5").Value
    ShDestination.Range("W2").Value = ShSource.Range("Q5").Value
    ShDestination.Range("Y2").Value = ShSource.Range("O9").Value
    ShDestination.Range("Z2").Value = ShSource.Range("Q9").Value
    ShDestination.Range("AB2").Value = ShSource.Range("O13").Value
    ShDestination.Range("AC2").Value = ShSource.Range("Q13").Value
    ShDestination.Range("AE2").Value = ShSource.Range("O17").Value
    ShDestination.Range("AF2").Value = ShSource.Range("Q17").Value
    ShDestination.Range("AH2").Value = ShSource.Range("O21").Value
    ShDestination.Range("AI2").Value = ShSource.Range("Q21").Value
    ShDestination.Range("AK2").Value = ShSource.Range("H4").Value
    ShDestination.Range("AL2").Value = ShSource.Range("K4").Value

    ' Effacer les cellules source
    ShSource.Range("K4,C4,C13,E13,C17,E17,C21,E21,H13,J13,H17,J17,H21,J21,O5,Q5,O9,Q9,O13,Q13,O17,Q17,O21,Q21,H4,K4").ClearContents
End Sub

 

[cathodique]

Je me suis plante lors de l'insertion des notes. Les données que j'ai entrée se répète en même temps chaque fois que j'entre une nouvelle donné dans la ligne suivante.

Un Formulaire est plus indiqué dans ton cas.
Utiliser une feuille pour ton formulaire n'est pas pratique du tout.
Enfin, c'est mon avis.

 

[cathodique]

un aperçu de ce que pourrait être ton formulaire de saisie des notes.

Pour le bulletin, j'aurais mis un seul sur la feuille qui serait complété via un code et enregistré en pdf dans un dossier approprié.

 

[benarivo]

Bonjour tous le monde,
Merci je vais essayé et je vous le montre après

 

[benarivo]

un aperçu de ce que pourrait être ton formulaire de saisie des notes.Regarde la pièce jointe 1219444
Pour le bulletin, j'aurais mis un seul sur la feuille qui serait complété via un code et enregistré en pdf dans un dossier approprié.

 

[benarivo]

Bonjour tous le monde,
D'après votre premier conseil, j'avais essayé de change le formulaire comme suis.
Merci beaucoup de votre aide, celle que vous m'avez proposé là est praticable.

 

[benarivo]

Mes

Bonjour tous le monde,
D'après votre premier conseil, j'avais essayé de change le formulaire comme suis.
Merci beaucoup de votre aide, celle que vous m'avez proposé là est praticable.

Mon problème est que je commence à apprendre le Vba et j'avais beaucoup de difficulté sur l’écriture en langage de programmation.
Est ce vous pouvais me proposer qu'elle leçons dois-je consulté pour que je puisse m'avançais rapidement et efficace.