Recopie automatique d'un tableau à un autre

Question

Bonjour,

J'aurai besoin de quelques rensignements concernant l'élaboraion de tableau.
En effet je dois créer une gestion de stock. Je voudrais pour voir réaliser un tableau général et aller incrémenter une autre feuille selon une seule donnée.
Pour être plus claire : dans mon stock général seront enregistrés toutes les données pôur tous mes clients. Puis je voudrais réaliser une feuille individuelle pour chaque client en faisant une recopie automatique. J'ai déjà essayé avec la Recherche V mais je ne m'en sors pas! Avez vous d'autres fonctions? Ou bien quelques tuyaux...?

Je vous remercie et attends de vos nouvelles.

Utilisateur anonyme · Answer

Bonjour,

Utiliser les fonctions personnalisé !


Function MaFunctionDeRecherche(ByVal UnePlage As Range) As Variant

    Dim Resultat As Long

    Application.Volatile
    Resultat = 0
    ' ... suite du code !

    MaFunctionDeRecherche = Resultat

End Function
'

Lupin

Utilisateur anonyme · Answer

Bonsoir,

alors voilà un exemple :

Posons comme postulat :

La feuille de toute les données se nomme [Donnee]
La feuille du client n se nomme [Client_n]

ponsons ensuite que sur la feuille [Donnee] chaque ligne est un client
la première colonne étant un indice unique au client.

Une macro qui n'a rien à voir avec la fonction demandé mais qui permet la construction des feuilles clients


Sub CreerClasseur()

    Dim Boucle As Integer
    
    Application.ScreenUpdating = False
    With ActiveWorkbook
        For Boucle = 1 To 10
            If (Boucle < 10) Then
                Worksheets.Add.Name = "Client_0" & Boucle
            Else
                Worksheets.Add.Name = "Client_" & Boucle
            End If
        Next Boucle
    End With
    Application.ScreenUpdating = True
    
End Sub
'


sur la feuille client, en Cellule [A1], l'indice du client [ Client_n ].

sur la feuille client, en Cellule [A2], la fonction personnalisé retournant le nom du client ( ou tout autre info, ex code de validation ...)


Public Function RecherchePerso(ByVal Plage As Range) As Variant

    Dim Cellule As Range, PlageRecherche As Range, Feuille As String
    Dim Limite As Long

    Application.Volatile
    
    Feuille = ActiveSheet.Name
    Limite = Sheets("Donnees").Range("A1").End(xlDown).Row
    Set PlageRecherche = Sheets("Donnees").Range("A1:A" & Limite)
    
    For Each Cellule In PlageRecherche
        If (Plage.Value = Cellule.Value) Then
            RecherchePerso = _
                 Worksheets("Donnees").Cells(Cellule.Row, Cellule.Column + 4).Value
            Exit For
        End If
    Next Cellule
    
    
End Function
'


Lupin

Recopie automatique d'un tableau à un autre

2 réponses

Discussions similaires

Newsletters