XL 2016 Remplissage automatique info

Ethlios · 21 Février 2022

Bonjour à tous,

Je cherche à réutiliser cette fonction que j'utilise pour remplir mon fichier de suivi, mais dans une version différente, afin de remplir automatiquement une fiche pour retranscrire les infos de la fiche 1 sur la fiche 2. Quand j'utilise cette fonction pour remplir ma fiche, je reçois un message d'erreur d'exécution "1004" erreur défini par l'application ou par objet. Que dois-je changer pour réutiliser la fonction correctement ?

J'ai ajouté un fichier pour illustrer mon système de fiche 1, fiche 2

Fonction utilisée sur mon fichier de suivi :

Sub Validation()

Dim dl As Long
dl = Sheets("Fiche suivi").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("Fiche suivi").Range("A" & dl).Value = Range("B4").Value
Sheets("Fiche suivi").Range("B" & dl).Value = Range("B6").Value
Sheets("Fiche suivi").Range("C" & dl).Value = Range("B5").Value
Sheets("Fiche suivi").Range("D" & dl).Value = Range("B8").Value
....

End Sub

Merci d'avance

Ethlios

JM27 · 21 Février 2022

Bonjour
Pour info : un fichier XLSX n'a pas de macro .
merci de mettre un fichier xlsm , comme cela on pourra t'aider

Ethlios · 21 Février 2022

Bonjour @JM27

Voici le fichier en XLSM.

JM27 · 21 Février 2022

il y a aucune macro dans ton fichier
Je pourrais réécrire ta macro , mais le but est de corriger l'erreur !

Ethlios · 21 Février 2022

Avec la macro

JM27 · 21 Février 2022

mettre dans un module standard

VB:

Sub Validation()
    Dim dl As Long
        dl = Sheets("Fiche 2").Range("B" & Rows.Count).End(xlUp).Row + 1
        Sheets("Fiche 2").Range("B" & dl).Value = Sheets("Fiche 1").Range("C1").Value
        Sheets("Fiche 2").Range("B" & dl + 1).Value = Sheets("Fiche 1").Range("C2").Value
        Sheets("Fiche 2").Range("B" & dl + 2).Value = Sheets("Fiche 1").Range("C3").Value
        Sheets("Fiche 2").Range("B" & dl + 3).Value = Sheets("Fiche 1").Range("C4").Value
        Sheets("Fiche 2").Range("B" & dl + 4).Value = Sheets("Fiche 1").Range("C5").Value
End Sub

les données (en ligne) s'ajouteront les unes après les autres

Ethlios · 21 Février 2022

JM27 à dit:

mettre dans un module standard

VB:

Sub Validation()
    Dim dl As Long
        dl = Sheets("Fiche 2").Range("B" & Rows.Count).End(xlUp).Row + 1
        Sheets("Fiche 2").Range("B" & dl).Value = Sheets("Fiche 1").Range("C1").Value
        Sheets("Fiche 2").Range("B" & dl + 1).Value = Sheets("Fiche 1").Range("C2").Value
        Sheets("Fiche 2").Range("B" & dl + 2).Value = Sheets("Fiche 1").Range("C3").Value
        Sheets("Fiche 2").Range("B" & dl + 3).Value = Sheets("Fiche 1").Range("C4").Value
        Sheets("Fiche 2").Range("B" & dl + 4).Value = Sheets("Fiche 1").Range("C5").Value
End Sub

les données (en ligne) s'ajouteront les unes après les autres

Justement, je ne veux pas qu'il s'ajoute les unes après les autres, dans l'idée, je veux rentrer les infos dans la fiche 1, redirigé les infos vers la fiche 2 et l'extraire la fiche 2 en pdf par exemple puis rechanger les données d'entrée de la fiche 1 et recommencer. Je ne sais pas si c'est plus clair comme explication ^^'

JM27 · 21 Février 2022

tout simplement

VB:

Sub Validation()
        Sheets("Fiche 2").Range("B1").Value = Sheets("Fiche 1").Range("C1").Value
        Sheets("Fiche 2").Range("B2").Value = Sheets("Fiche 1").Range("C2").Value
        Sheets("Fiche 2").Range("B3").Value = Sheets("Fiche 1").Range("C3").Value
        Sheets("Fiche 2").Range("B4").Value = Sheets("Fiche 1").Range("C4").Value
        Sheets("Fiche 2").Range("B5").Value = Sheets("Fiche 1").Range("C5").Value
End Sub

Ethlios · 21 Février 2022

La fonction marche très bien sur l'exemple envoyé c'est ce qu'il me faut ! Mais sur mon fichier j'ai un message : " Erreur d'exécution '9': l'indice n'appartient pas à la sélection." D'où peut venir cette erreur ?

JM27 · 21 Février 2022

Nom des feuilles incorrect dans la macro ?
Mais ma boule de cristal est rayée
sais tu qu'il existe un enregistreur de macro, pour débuter c'est super !

Ethlios · 21 Février 2022

JM27 à dit:
Nom des feuilles incorrect ?
Mais ma boule de cristal est rayé
sais tu qu'il existe un enregistreur de macro, pour débuter c'est super !

Je ne connais pas du tout ! C'est quoi ?

JM27 · 21 Février 2022

L'enregistreur de macro permet d'enregistrer tout les actions que tu réalises , les unes après les autres.
en fait cela te crées une macro
Voila ce que cela donne avec l'enregistreur de macro

VB:

Sub Macro1()
    
 Sheets("Fiche 1").Select
    Range("C1:C5").Select
    Selection.Copy
    Sheets("Fiche 2").Select
    Range("B1").Select
    ActiveSheet.Paste
End Sub

cela va te créer un module standard avec la macro
évidemment le code n'est pas optimisé mais c'est un début

Ethlios · 9 Mars 2022

JM27 à dit:
L'enregistreur de macro permet d'enregistrer tout les actions que tu réalises , les unes après les autres.
en fait cela te crées une macro
Voila ce que cela donne avec l'enregistreur de macro

VB:

Sub Macro1() Sheets("Fiche 1").Select Range("C1:C5").Select Selection.Copy Sheets("Fiche 2").Select Range("B1").Select ActiveSheet.Paste End Sub

cela va te créer un module standard avec la macro
évidemment le code n'est pas optimisé mais c'est un début

Bonjour !

Désolé pour le retard, je n'avais pas vu votre message !! La fonction est géniale, comment ajouter cette fonction sur Excel ?

Ethlios · 9 Mars 2022

Ethlios à dit:
Bonjour !

Désolé pour le retard, je n'avais pas vu votre message !! La fonction est géniale, comment ajouter cette fonction sur Excel ?

Mea-culpa j'ai répondu trop vite la fonction est de base !

XL 2016 Remplissage automatique info

Ethlios

XLDnaute Junior

Pièces jointes

JM27

XLDnaute Barbatruc

Ethlios

XLDnaute Junior

Pièces jointes

JM27

XLDnaute Barbatruc

Ethlios

XLDnaute Junior

Pièces jointes

JM27

XLDnaute Barbatruc

Pièces jointes

Ethlios

XLDnaute Junior

JM27

XLDnaute Barbatruc

Ethlios

XLDnaute Junior

JM27

XLDnaute Barbatruc

Ethlios

XLDnaute Junior

JM27

XLDnaute Barbatruc

Pièces jointes

Ethlios

XLDnaute Junior

Ethlios

XLDnaute Junior

Discussions similaires