Importation de feuille à feuille par un bouton à cliquer

philippe34130 Messages postés 28 Date d'inscription   Statut Membre Dernière intervention   -  
philippe34130 Messages postés 28 Date d'inscription   Statut Membre Dernière intervention   -
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 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
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   Statut Membre Dernière intervention  
 
Merci à toi je ne savais plus comment on joint un fichier
0
philippe34130 Messages postés 28 Date d'inscription   Statut Membre Dernière intervention  
 
http://www.cjoint.com/c/EHdjo20SdP4
0
philippe34130 Messages postés 28 Date d'inscription   Statut Membre Dernière intervention  
 
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 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
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   Statut Membre Dernière intervention  
 
Super !!!!

ça fonctionne très bien


Merci !!!!!
0