Importation de feuille à feuille par un bouton à cliquer
philippe34130
Messages postés
30
Statut
Membre
-
philippe34130 Messages postés 30 Statut Membre -
philippe34130 Messages postés 30 Statut Membre -
Bonjour à tous
Je voudrai par un bouton à cliquer dans la feuille importation, importer à la date renseigné dans la textbox, les éléments d'importation dans la feuille base du fichier.
Je n'arrive pas à trouver la macro nécessaire
Merci à tous de votre aide
http://www.cjoint.com/c/EHdjo20SdP4
Je voudrai par un bouton à cliquer dans la feuille importation, importer à la date renseigné dans la textbox, les éléments d'importation dans la feuille base du fichier.
Je n'arrive pas à trouver la macro nécessaire
Merci à tous de votre aide
http://www.cjoint.com/c/EHdjo20SdP4
6 réponses
-
Bonjour Philippe,
Quels sont les cellules à reporter et où ?
Pour t'aider à composer la macro il faut un exemple de ton fichier
A poster sur cjoint.com, faire créer le lien, le copier et revenir l'indiquer ici
Dans l'attente
Cdlmnt
Via
-
Merci à toi je ne savais plus comment on joint un fichier
-
-
Je veux importer dans la base et dans la colonne C01.01 à la ligne de la date renseignée dans la textbox d'importation , l'index de C01.01 de la feuille importation
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Re
Macro à mettre dans un module puis mettre le nom de la macro dans las ub associée au boutonSub report() Dim Ligne As Long, DerLig As Long ladate = Sheets("Importation").TextBox1.Value Ligne = Sheets("Base").Columns(1).Find(CDate(ladate), , , , xlByColumns, xlNext).Row DerLig = Sheets("Importation").Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row On Error Resume Next For x = 2 To DerLig col = Application.WorksheetFunction.Match(Sheets("Importation").Range("A" & x), Sheets("Base").Range("2:2")) Sheets("Base").Cells(Ligne, col) = Sheets("Importation").Range("B" & x) Next End Sub
Cdlmnt
Via
-
