XL 2019 remplissage automatisée de données

virginie83 · 28 Mars 2021

Bonjour à tous je suis nouvelle sur le site et je tiens à préciser que je pars complètement de 0 concernant le VBA. Je sais que la question à déjà été posée et malgré mes recherches je n'arrive pas à adapter les codes donc voilà mes problématiques.

J'ai un fichier excel dans lequel je créé un code unique et pour lequel je saisie certaines données. J'injecte tous les jours une nouvelle feuille excel qui reprend ce même code mais sur laquelle il y a de nouvelles données pour lesquelles je voudrais automatiser la saisie.
Donc sur ma "feuille1" se trouve mon code + mes données saisies. Sur ma "feuille2" (que j'injecte tous les jours) se trouve également ce code unique mais avec d'autres informations que je voudrais rajouter sur "ma feuille1" - En sachant que j'ai plusieurs codes uniques à compléter tous les jours donc

Mon code unique se trouve colonne F sur la feuille 1 - mes nouvelles données se trouvent sur la feuille 2 avec mes codes uniques (colonne A) comme données communes : je voudrais remplir les colonnes A/B/K/L/S/T/AC de la feuille 1 avec les colonnes B/C/J/R/N/O/V de la feuille 2

PS: je n'arrive pas à mettre un exemple de mon fichier à priori trop volumineux

En espérant vraiment que vous pourrais aider une âme larguée en VBA

Merci à tous de vos retours

MgLina · 29 Mars 2021

sylvanu à dit:

Re,
Un essai en PJ avec simplement :

VB:

Sub Transfert()
'Je voudrais remplir les colonnes A/B/K/L/S/T/AC de la feuille 1 avec les colonnes B/C/J/R/N/O/V de la feuille 2
Application.ScreenUpdating = False
DL1 = Sheets("Feuil1").Range("A65500").End(xlUp).Row    ' Nb ligne Feuil1
DL2 = Sheets("Feuil2").Range("A65500").End(xlUp).Row    ' Nb ligne Feuil2
Set F = Sheets("Feuil2")
With Sheets("Feuil1")
    For L = 2 To DL2                                    ' Pour toute ligne de feuil2
        DL1 = DL1 + 1                                   ' Incrément N° ligne de transfert
        .Cells(DL1, "A") = F.Cells(L, "B")              ' Transfert cellules
        .Cells(DL1, "B") = F.Cells(L, "C")
        .Cells(DL1, "K") = F.Cells(L, "J")
        .Cells(DL1, "L") = F.Cells(L, "R")
        .Cells(DL1, "S") = F.Cells(L, "N")
        .Cells(DL1, "T") = F.Cells(L, "O")
        .Cells(DL1, "AC") = F.Cells(L, "V")
    Next L
End With
End Sub

En espérant avoir tout compris.

Bonjour Sylvanu, j'ai besoin de votre aide pour mon problème (transfert de données avec bouton de commande, comparaison, remplissage automatisé), en fait, quand je cherchais sur le forum, vos solutions à différents problèmes correspondent pas mal à ce que je cherche. Mais comme je suis débutante dans VBA, et j'aimerais combiner l'ensemble de vos solutions, donc je n'ai pas arrivé à le faire...

Si vous avez le temps et vous êtes intéressé, pourriez-vous regarder ma discussion svp?

XL 2013 - Importer le nouveau fichier et mettre à jour les données automatiquement

Bonjour ! Je suis tout nouveau ici, c'est ma première discussion, et aussi tout nouveau dans VBA ... J'ai vraiment besoin de votre aide ! On a un fichier partagé où les différentes personnes peuvent mettre à jour les dates de complétion, j'avais mis des formules pour que les indicateurs du...

www.excel-downloads.com

Je vous remercie beaucoup!

virginie83 · 29 Mars 2021

@Phil69970 pardon par manque d'habitude je n'avais pas vu que vous étiez 2 . Donc je parlais du code de sylvanu. Le tien j'essayerai ce soir car du travail je n'arrive pas à accéder à la macro.

Phil69970 · 31 Mars 2021

@virginie83 , le forum

virginie83 à dit:
Le tien j'essayerai ce soir

Ce serait sympa d'avoir un retour !!!

@Phil69970

XL 2019 remplissage automatisée de données

virginie83

XLDnaute Nouveau

MgLina

XLDnaute Nouveau

XL 2013 - Importer le nouveau fichier et mettre à jour les données automatiquement

virginie83

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Discussions similaires