Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 correction macro

Michelrib

XLDnaute Nouveau
bonjour

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

Pièces jointes

  • INSCRIPTION.xlsm
    43.3 KB · Affichages: 20

Staple1600

XLDnaute Barbatruc
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
 

Staple1600

XLDnaute Barbatruc
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.
 

Discussions similaires

Réponses
8
Affichages
274
Réponses
10
Affichages
380
  • Question Question
XL 2019 Planning
Réponses
2
Affichages
265
Réponses
17
Affichages
547
Réponses
6
Affichages
314
Réponses
13
Affichages
370
  • Question Question
Microsoft 365 Problème de date
Réponses
4
Affichages
286
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…