macro pour copier des données dans un tableau

Question

Bonjour,

j'ai un fichier avec environ 3000 lignes. Ce tableau regroupe 25 établissements. le nom de l'établissement est dans la colonne A.

Je voudrais avec une macro pour alimenter 25 tableaux (un par établissement) j'ai une feuille par mois dans mes 25 tableaux.

Actuellement j'utilise le filtre automatique et le copier/coller, je voudrais gagner du temps. Si quelqu'un a une solution, merci.

soleil_levant · Answer

BOnjour,

Il existe dans ce forum une charte, dans laquelle interdit de faire le travail des autres!

Faut savoir qu'ici c'est un forum d'entraide et non de faire le travail à ta place.

Te conseille de faire une procédure VBA, fais la, et essaieron de la corriger.

Bn courage

Le Pingou · Answer

Bonjour,
Juste au passage, pouvez-vous être plus explicite voir mettre un exemple.

volesk · Answer

pour exemple :

colonne A : n° de département
colonne B : ville
colonne C : Nom
colonne D : Prénom
colonne E : date d'entrée dans la société


C'est donnée sont actualisées tous les mois, je les mets dans un tableau avec une feuille par mois.

Voilà, j'espére avoir été assez précis.

Le Pingou · Answer

Bonjour,
Oui pour les colonnes titres c'est bien, mais où l'on trouve les données pour remplir les diverses colonnes et sous quelle forme sont-elles ?

Le Pingou · Answer

Bonjour,
Oui d'accord, dans se cas il vous suffit de faire un copier/coller ce sera beaucoup plus rapide qu'une macro.
Sans un exemple de se que vous désirez je ne peut rien de plus.

Le Pingou · Answer

Bonjour,
Merci pour votre information.
Est-ce que vous désirez 1 classeur par nom de ville ou de préférence 1 feuille par ville dans 1 seul classeur ?

Le Pingou · Answer

Bonjour,
Le code doit être copié sur un module du classeur de base.
Les classeurs des villes doivent exister  et être placés sur le même répertoire que le classeur de base.
Voici le code : 
Public Sub CopeirFiltrerVersClasseur()
Dim objclaSource As Workbook, objclaCible As Workbook
Dim c, lino, nbli, no, nom, rep
Set objclaSource = ThisWorkbook
rep = objclaSource.Path
Dim shtemp As Worksheet
' créer une feuille temporaire
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Temporaire"
Set shtemp = Sheets("Temporaire")
shtemp.Range("a1").Value = "Liste temporaire"
' liste des villes
nbli = WorksheetFunction.CountA(Sheets("Feuil1").Range("b:b"))
nom = ""
For c = 2 To nbli
    If Cells(c, 2) <> nom Then
        lino = Application.Match(Cells(c, 2), Range("b:b"), 0)
        For no = 1 To nbli
            If Cells(lino, 2) = Cells(c, 2) Then
            Rows(lino).Copy Destination:=shtemp.Rows(shtemp.Cells(3000, 1).End(xlUp).Row + 1)
            lino = lino + 1
            End If
        Next no
' transférer la liste dans son propre classeur
        Application.Workbooks.Open rep & "\" & Cells(c, 2) & ".xls"
        Set objclaCible = ActiveWorkbook
        objclaSource.Activate
        shtemp.Range("2:" & shtemp.Cells(3000, 1).End(xlUp).Row).Copy Destination:=objclaCible.Sheets(1).Rows(objclaCible.Sheets(1).Cells(3000, 1).End(xlUp).Row + 1)
        objclaCible.Close savechanges:=True
        shtemp.Range("2:" & shtemp.Cells(3000, 1).End(xlUp).Row + 1).ClearContents
        nom = Cells(c, 2).Value
    End If
Next c
End Sub

Le Pingou · Answer

Bonjour,
J'ai oublié 2 lignes d'instructions pour supprimer la feuille temporaire.
Application.DisplayAlerts = False
shtemp.Delete
Merci de les placer entre Next c et  End Sub.

Note: le nom du classeur Ville est supposé de se format : [ARGENTEUIL.xls]

Macro pour copier des données dans un tableau

8 réponses

Votre réponse

Discussions similaires

Newsletters