XL 2019 correction macro

job75

XLDnaute Barbatruc

• 9 Janvier 2021

• #2

Bonjour,

Un titre non significatif et un message insipide ne donnent pas envie d'ouvrir le fichier.

A+

 

Vote positif 0 Vote négatif

M

Michelrib

XLDnaute Nouveau

• 9 Janvier 2021

• #3

job75 à dit:

Bonjour,

Un titre non significatif et un message insipide ne donnent pas envie d'ouvrir le fichier.

A+

Cliquez pour agrandir...

Fichier formulaire pour remplir 2 tableaux un parent un élève, j'ai un bug au début de ma macro ajouter,
Est-ce plus clair comme ça vous faut-il d'autres renseignements ?
Cordialement

 

Vote positif 0 Vote négatif

M

Michelrib

XLDnaute Nouveau

• 9 Janvier 2021

• #4

Fichier formulaire pour remplir 2 tableaux nommé "parent" un autre "eleve", j'ai un bug au début de ma macro "ajouter"
Est-ce plus clair comme ça vous faut-il d'autres renseignements ?
Cordialement

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Janvier 2021

• #5

Bonsoir le fil, Michelrib, job75

Une 1ère proposition
(que je le laisse compléter sur la même trame pour la feuille ELEVE)

VB:

Sub ajouter()
Dim vals
    With Sheets("IMPRIMER")
        vals = Array(.[F6], .[I6], .[L6], .[F9], .[I9], .[L9], .[F12], .[I12], .[L12])
    End With
    With Sheets("PARENT").Cells(Rows.Count, 1).End(3)(2).Resize(, 9)
        .Value = vals: .Borders.Weight = 2
    End With
    Sheets("IMPRIMER").Range("F6,I6,L6,F9,I9,L9,F12,I12,L12") = ""
End Sub

NB: Normalement, tu devrais me poser des questions sur ce code VBA.
Si ce n'est pas le cas, c'est que tu ne débutes pas en VBA

 

Vote positif 0 Vote négatif

M

Michelrib

XLDnaute Nouveau

• 9 Janvier 2021

• #6

Merci pour ta réponse
Non seulement je débute en VBA mais je n'y connais encore rien, je me débrouille mieux avec les formules, mais ça ne suffit pas.
Merci encore pour ta réponse, je vais essayer

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Janvier 2021

• #7

Re

On a tous débuté un jour.
Pour tester, remplace ton code pour le bouton Ajouter par le mien.
Remplis les "cases" sur la feuille IMPRIMER
Puis cliques sur AJOUTER
Normalement, il doit se passer des choses sur la feuille PARENT.

 

Vote positif 0 Vote négatif

Nicolas JACQUIN

XLDnaute Occasionnel

Supporter XLD

• 9 Janvier 2021

• #8

Bonjour à tous,
Pour retrouver le parent qui correspond à l'enfant ou l'inversse, ça ne va pas être évident par la suite, et si en plus l'un et l'autre ne porte pas le même nom (remariage ou autre).

 

Vote positif 0 Vote négatif

M

Michelrib

XLDnaute Nouveau

• 9 Janvier 2021

• #9

Super c'est ok, j'ai suivi ton conseil, j'ai compléter pour la feuille "eleve", et ça marche, Merci et meilleurs voeux

 

Vote positif 0 Vote négatif

M

Michelrib

XLDnaute Nouveau

• 9 Janvier 2021

• #10

Nicolas Jacquin à dit:

Bonjour à tous,
Pour retrouver le parent qui correspond à l'enfant ou l'inversse, ça ne va pas être évident par la suite, et si en plus l'un et l'autre ne porte pas le même nom (remariage ou autre).

Cliquez pour agrandir...

il suffira de juxtaposer les tableaux sur une même feuille, non ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Janvier 2021

• #11

Michelrib à dit:

Super c'est ok, j'ai suivi ton conseil, j'ai compléter pour la feuille "eleve", et ça marche, Merci et meilleurs voeux

Cliquez pour agrandir...

Tu parles de mon code?

Tant mieux alors
Tu vois que tu t'en sors pas si mal avec le VBA.

 

Vote positif 0 Vote négatif

M

Michelrib

XLDnaute Nouveau

• 9 Janvier 2021

• #12

Staple1600 à dit:

Tu parles de mon code?

Tant mieux alors
Tu vois que tu t'en sors pas si mal avec le VBA.

Cliquez pour agrandir...

merci Salut

 

Vote positif 0 Vote négatif