XL 2010 RECOPIE DE LIGNE

[polyteis]

Bonjour
je me tourne vers vous pour savoir comment d'un onglet général "base", je peux distribuer alimenter chaque onglet spécifique
exemple toutes les lignes dont appartenant yoan doivent se copier dans l'onglet yoan ( je ne désire pas passer par un TCD).

merci

 

[sylvanu]

Bonjour Polyteis,
Un essai en PJ.
Dans chaque feuille il y a la macro événementielle :

Sub Worksheet_Activate()
    Disribue ActiveSheet.Name
End Sub

qui appelle la macro :

Sub Disribue(Onglet)
Dim Ligne As Integer, L As Integer, C As Integer
Application.ScreenUpdating = False
Sheets(Onglet).Range("A4:M1000").ClearContents
Ligne = 4
For L = 4 To Sheets("base").Range("A65500").End(xlUp).Row
    With Sheets(Onglet)
        If Sheets("Base").Cells(L, 1) = Onglet Then
            For C = 1 To 13
                .Cells(Ligne, C) = Sheets("Base").Cells(L, C)
            Next C
            Ligne = Ligne + 1
        End If
    End With
Next L
[A1].Select
End Sub

 

[polyteis]

Bonjour sylvanu

merci beaucoup
cela fonctionne

 

[polyteis]

Re bonjour,
je viens d'appliquer tes macros à mon fichier, cela fonctionne.
ma question du moment concerne l'entête, du tableau pour chaque onglet, cela ne fait pas partie de la macro, tu avais préparé les différents onglets.
Je tente de faire un copier coller de cette ligne sur les différents onglets, mais celane fonctionne pas,
est ce dû aux macros ?
merci

 

[sylvanu]

Lorsqu'on fait un Copier puis on sélectionne une feuille, la macro s'exécute et vide le presse papiers donc le coller est impossible.
Rajouter cette ligne dans la macro momentanément :

Sub Disribue(Onglet)
Exit sub

Ce qui l'invalide. Faites les modifs d'entête puis retirez cette ligne.

 

[polyteis]

Merci pour cet eclaircissement