Recopie automatique d'un tableau à un autre
ulia
-
Utilisateur anonyme -
Utilisateur anonyme -
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.
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.
A voir également:
- Recopie automatique d'un tableau à un autre
- Tableau word - Guide
- Trier un tableau excel - Guide
- Imprimer un tableau excel - Guide
- Réponse automatique thunderbird - Guide
- Logiciel de sauvegarde automatique gratuit - Guide
2 réponses
Bonjour,
Utiliser les fonctions personnalisé !
Lupin
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
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
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 ...)
Lupin
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
Merci!!!!!