Formulaire pr repartition donnees feuil diffe Fermé

Question

Bonjour, 

Permettez moi de vous souhaiter mes voeux les meilleurs a tous utilisateurs de ce site, ceux qui demandement l'assistance et ceux qui se rendent disponible pour nous l'apporter, pour cette annee 2012.

Je vous soumets un gros soucis et je remercie d'avance quiconque viendra a mon secours et mon assistance.

J'utilise Excel 2007 sous Windows Vistas.
Je voudrais, pour l'enregistrement des donnees qui concernent le mouvement d'un certain nombre d'article, creer un formulaire d'enregistrement de toutes les donnees et par un code ou une cellule nommee qui fait reference a l'article, incrementer automatiquement les enregistrements dans les feuilles ou onglets des articles.
Supposant que feuil1 saisisse toutes les donnees (formulaire a creer) dont les etiquettes sont:
Date de l'operation
Designation
Code (liste deroulante: exemple AB et CM)
Nom de l'article
Montant
...
La feuil 2 recupere les enregistrements du formulaire dont le code est AB
La feuil 3 recupere les enregistrements du formulaire dont le code est CM
ces recuperations s'incrementent automatiquement sur ces feuilles.
Notez que les feuil 2 et 3 contiennent les memes etiquettes, sauf qu'elles n'enregistrent que les donnees d'un seul article.

J'espere qu'il ya quelqu'un qui a saisie le probleme et est pret a m'enlever de mon ignrance. Toute fois, a la lumiere de vos demande ou orientation, je pourrais comprendre moi meme le sujet et m'exprimer autrement.

Merci et bonne journee.

 

 


Configuration: Windows Vista / Internet Explorer 7.0

boby5151 · Answer

Je résume (et dis-moi si je me trompe); Tu saisis tout en feuil1 et tu veux que feuil2 et 3 récupére exactement les données de feuil1,  avec un code article particulier?  Donc il y aura autant de lignes pour chaque feuille et des données vides pour les feui2/3 pour les articles qui ne les concernent pas?

exzact8 · Answer

Slt Boby5151,
Merci de votre assistance.
vous avez compris ma preoccupation mais sauf que les feuil 2 & 3 en recuperant les donnees dela feuille 1 (formulaire) ne laisse pas de vide entre les lignes de donnees du meme article.
exemple.
Feuil 1 (formulaire)
Date:
Nom article:
Code:
Montant:
Button Valider (Enregistrer)

Date: 16 janv 2012 (1)
date: 17 janv 2012 (2)
date: 22 janv 2012 (3)
date: 25 janv 2012 (4)

Nom article: consommable bureau (1)
Nom article: Materiaux (2)
Nom article: Materiaux (3)
Nom article: Consommable bureau (4)

Code: AB (1)
Code: CM (2)
code: CM (3)
Code: AB (4)

Montant: 23 (1)
Montant: 17 (2)
Montant: 45 (3)
Montant: 33 (4)

Apres enregistrement de chaque saisie, je veux avoir:
Feuil 2 (Consommable de bureau):
Date: 16 janv 2012
Nom article: Consommable bureau
Code: AB
Montant: 23
date: 25 janv 2012
Nom article: consommavle bureau
Code: AB
Montant: 33

Feuil 3 (Materiaux)
date
date: 17 janv 2012
Nom article: materiaux
Code: CM
Montant: 17
date: 22 janv 2012
nom article: materiaux
code: CM
Montant: 45

Les feuil 2 & 3 presentent les donnees sous forme d'un journal (enregistrement chronologique) dont les etiquettes sont en tete de colonne
Date      Nom article     Code    Montant    ...
Le code peut certainement etre masque

Certainement que l'idee est un peu + clair.
En attente,
Merci de votre contribution.

pijaku · Answer

Bonjour,
Regarde cet exemple, et si cela te convient, dis nous ce qu'il faut adapter à ton cas.

exzact8 · Answer

Bonjour,

Je ne puis que te remercie Pijaku pour la comprehension de mon questionnement.
C'est bien ce que j'attendais et voudrais bien comprendre et aussi en etre capable des manipulations
certainement, c'est bien tres en retard que je me rend compte de ta reaction a mon interrogation a cause de quelques tracas qui m'ont eloigne d'un suivi soutenu de ma requete.
Le principe est donc bien celui la mais en comment arriver la?, je t'avoue que je n'ai presque rien compris, sauf une idee vague orientee vers les macros.
si tu pouvais revenir pour une clarite dans la demarche.

Cependant, ce que j'ai observe est qu'apres la validation, les donnees restent figees dans les champs au lieu de s'effacer.
Au plaisir d'echanger,
Je reste sur ma soif.
See you soon!

Thx.

pijaku · Answer

Salut,
Je passe vite fait...

Oui il s'agit bien de macro.
On a deux choses importantes pour cette macro :
1- tous les champs doivent être remplis
2- le nom de la feuille recevant les données.

Voici le code avec quelques commentaires :

'Procédure se déclenche lorsqu'on clic sur le bouton
Private Sub CommandButton1_Click()
Dim Wsh As Worksheet, Lig As Long

'dans la feuille "formulaire"
With Sheets("Formulaire")
    'on vérifie que les 4 cellules sont remplies
    If Application.CountA(.Range("D5:D8").Value) <> 4 Then
        'si ce n'est pas le cas, message + quitter la procédure
        MsgBox "Merci de remplir les 4 champs", vbCritical
        Exit Sub
    End If
    'si les cellules sont remplies, on étudie le contenu de D7
    Select Case .Range("D7").Value
        'si D7 = "AB"
        Case "AB"
            'on attribue à notre variable feuille (Wsh) la valeur "Consommables"
            Set Wsh = Sheets("Consommables")
        'si D7 = "DM"
        Case "CM"
            'on attribue à notre variable feuille (Wsh) la valeur "Matériaux"
            Set Wsh = Sheets("Matériaux")
        'tous les autres cas : message + quitter la procédure
        Case Else
            MsgBox "Erreur de saisie dans le champs : code", vbCritical
            Exit Sub
            
    End Select
End With
'on remplit la feuille contenue dans notre variable Wsh
With Wsh
    Lig = .Range("A" & Rows.Count).End(xlUp).Row + 1
    .Range("A" & Lig) = Sheets("Formulaire").Range("D5").Value
    .Range("B" & Lig) = Sheets("Formulaire").Range("D6").Value
    .Range("C" & Lig) = Sheets("Formulaire").Range("D7").Value
    .Range("D" & Lig) = Sheets("Formulaire").Range("D8").Value
End With
End Sub

exzact8 · Answer

Slt pijaku.
Je venais de me debrouiller mais je n'ai pas pu le realiser.
Y a t'il une possibilite de joindre mon fichier afin qu'on echange sur comment faire les adaptations?
Ma base ne contient pas que les nombres mais aussi le texte et les autres cellules peuvent ne pas recevoir les donnees a enregistrer (Qty: entree ou sortie)
Thx in advance to all for giving more.
Help svp!
A+

Formulaire pr repartition donnees feuil diffe

6 réponses

Discussions similaires