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
A voir également:
- Importation de feuille à feuille par un bouton à cliquer
- Bruler feuille de laurier - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Feuille a5 - Guide
- Feuille de score belote a imprimer ✓ - Forum LibreOffice / OpenOffice
- Votre appareil ne dispose pas des correctifs de qualité et de sécurité importants - Guide
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
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
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 bouton
Cdlmnt
Via
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
