XL 2019 correction macro

[Michelrib]

bonjour

J'ai un souci avec ma macro, je suis nul en VBA, quelqu'un pourrait me dépanner ?

 

[job75]

Bonjour,

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

A+

 

[Michelrib]

Bonjour,

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

A+

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

 

[Michelrib]

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

 

[Staple1600]

Bonsoir le fil, Michelrib, job75

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

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

 

[Michelrib]

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

 

[Staple1600]

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.

 

[Nicolas JACQUIN]

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).

 

[Michelrib]

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

 

[Michelrib]

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).

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

 

[Staple1600]

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

Tu parles de mon code?

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

 

[Michelrib]

Tu parles de mon code?

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

merci Salut