Sujet Précédent Sujet Suivant

Importation excel à la suite

Fermé
Dioups Messages postés 13 Date d'inscription mercredi 30 octobre 2013 Statut Membre Dernière intervention 8 juin 2020 - 13 mars 2016 à 08:37
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 17 mars 2016 à 08:32
Bonjour,

J'ai un tableur sur lequel je note tout ce que je fais par semaine. Je souhaiterai regrouper les données pour, à terme, regrouper les informations par clients pour avoir une liste des tâche effectuées par dossiers.
Mon idée est d'enregistrer une macro pour exporter les données intéressantes dans un autre tableur. Une fois regroupée, je les mets en tableau croisé dynamique.
La macros est bien enregistrée mais ça range les informations toujours à partir de la cellule B2. Moi je voudrai que ça puisse être mis à la suite chaque fois.
Est-il possible de faire en sorte de changer dans la macro B2 par quelque chose comme "dans la première ligne disponible de la colonne B"? Si oui, comment faire? Et si vous avez des solutions plus simples ou intéressantes, je suis preneur.

D'avance merci à tous.



A voir également:

5 réponses

Réponse 1 / 5
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
13 mars 2016 à 08:46
Bonjour
Pour trouver la 1° ligne vide dans une colonne

S=i la celle B1 est toujours occupée
Lig = Columns("B").Find("", range("B1")).Row

si la cellule B1 peut ^tre vide
Lig = Columns("B").Find("", Cells(Cells.Rows.Count, "B")).Row
0
Réponse 2 / 5
Dioups Messages postés 13 Date d'inscription mercredi 30 octobre 2013 Statut Membre Dernière intervention 8 juin 2020 2
13 mars 2016 à 11:45
Merci Michel pour la réponse.

Pour te répondre, la ligne sera toujours remplie, hormis la première fois.

Par contre, entre temps, j'ai changé de ligne pour insérer les boutons. La première ligne à remplir est maintenant B6. Est-ce que ça modifie ta réponse?

Je ne sais pas non plus à quel niveau il faut insérer ce que tu m'as dit. Voici ce que ça donne : 



Sub EXPORT()
'
' EXPORT Macro
'

'
    Range("B9:B120,H9:K120").Select
    Range("H120").Activate
    Selection.Copy
    Windows("Classeur base TCD.xlsm").Activate
    Range("B6").Select
    ActiveSheet.Paste
    Windows("Classeur Temps 3.0 tests.xlsx").Activate
    Range("A1:B1").Select
    Application.CutCopyMode = False
End Sub


Question bonus :

Concrètement, comment fait-on pour apprendre à faire ce genre de chose? Est-ce "simplement" une sorte d'autre langage ou autre? Apprendre à faire des macros est vraiment un truc que je voudrais faire mais ça me paraît tellement énorme que je ne sais pas par où commencer ! AAvez-vous de pistes ?
0
Réponse 3 / 5
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
13 mars 2016 à 15:04 
Option Explicit
Sub transfert()
Dim Xxx As Variant, Lig As Integer 'préciser type de vaiable de xxx
     Xxx = Range("H120")
    Windows("Classeur base TCD.xlsm").Activate
    With Sheet("feuil1") 'A adapter au contexte
        Lig = .Columns("B").Find(what:="", after:=.Range("B6")).Row
        Range("B" & Lig) = Xxx
    End With
    Windows("Classeur Temps 3.0 tests.xlsx").Activate
End Sub


Pour commencer à apprendre VBA
regarde de ce coté: très cool et pédagogique
http://www.info-3000.com/vbvba/
0
Réponse 4 / 5
Dioups Messages postés 13 Date d'inscription mercredi 30 octobre 2013 Statut Membre Dernière intervention 8 juin 2020 2
16 mars 2016 à 19:01
Merci pour ta réponse et pardon pour le temps de réponse me concernant. Le début de semaine a été speed!

Par contre, je le mets où ça car je vois bien le "end sub" mais pas le "sub export"? Et, te serait-il possible de me l'expliquer pour que je vois en gros ce que tu as fait STP? Si tu me réponds que je gourmand et chi***, je comprendrais!

Et merci pour le lien, j'ai regardé en diagonale car je n'avais pas trop de temps mais je m'y pencherais quand je pourrai.
0

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

Posez votre question
Réponse 5 / 5
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
17 mars 2016 à 08:32
Bonjour

..." Par contre, je le mets où ça car je vois bien le "end sub" mais pas le "sub export"? "...

Ah bon ?
Si ce n'est trop te demander, lis la 2° ligne du code
0