Importation de feuille à feuille par un bouton à cliquer

Fermé
philippe34130 Messages postés 28 Date d'inscription jeudi 24 janvier 2013 Statut Membre Dernière intervention 3 août 2015 - Modifié par philippe34130 le 3/08/2015 à 11:16
philippe34130 Messages postés 28 Date d'inscription jeudi 24 janvier 2013 Statut Membre Dernière intervention 3 août 2015 - 3 août 2015 à 12:11
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
A voir également:

6 réponses

via55 Messages postés 14499 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 novembre 2024 2 735
3 août 2015 à 10:57
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

0
philippe34130 Messages postés 28 Date d'inscription jeudi 24 janvier 2013 Statut Membre Dernière intervention 3 août 2015
3 août 2015 à 11:16
Merci à toi je ne savais plus comment on joint un fichier
0
philippe34130 Messages postés 28 Date d'inscription jeudi 24 janvier 2013 Statut Membre Dernière intervention 3 août 2015
3 août 2015 à 11:17
http://www.cjoint.com/c/EHdjo20SdP4
0
philippe34130 Messages postés 28 Date d'inscription jeudi 24 janvier 2013 Statut Membre Dernière intervention 3 août 2015
3 août 2015 à 11:58
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
via55 Messages postés 14499 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 novembre 2024 2 735
3 août 2015 à 12:00
Re

Macro à mettre dans un module puis mettre le nom de la macro dans las ub associée au bouton
Sub 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
0
philippe34130 Messages postés 28 Date d'inscription jeudi 24 janvier 2013 Statut Membre Dernière intervention 3 août 2015
3 août 2015 à 12:11
Super !!!!

ça fonctionne très bien


Merci !!!!!
0