Discussion :

[Crack1986]

Bonjour, je fais appel à vous afin de m'orienter ou bien de m'aider pour concevoir l'automatisation d'un classeur où il y a plusieurs feuilles.

Je vous fais une petite description du problème.

Il s'agit de créer une sorte de tableau de suivi d'actions prise au sein d'une direction. J'ai réalisé une maquette avec les explication qui vont avec.

Ce que je cherche c'est qu'à travers le bouton demarrer la saisie, on puisse remplir tout les champs de la feuille Resume au fur et a mesure et que celle-ci revienne automatiquement sur la ligne suivante.

Dans le cas des filières il suffit que dans la filière concernée il y est lieu une croix.

Par la suite, tout les champs doivent être saisie à partir de la base de l'onglet informations pour les champs concernées.

Dans un deuxième temps, dans le cas qu'il y est une relation avec le marketing, la date de création doit être saisie par rapport au saisie information mais que cette date soit copiée dans la feuille Test planning CDC. Il faut aussi donc que pour la date limite saisie on la retrouve aussi.

La feuille doit pouvoir être saisie ou bien depuis resume ou bien de la feuille renseignement des dossiers car c'est une deuxième personne qui peut saisir cette feuille.

Enfin, si la réponse dans la colonne AG est oui, alors la ligne doit être basculé sur l'historique.

Donc en résumé il faut que dans la feuille resume soit une sorte de base de données ou personne puisse écrire dessus sans le bouton saisie ( pour que les ligne soit copier au fur et à mesure) et que les informations soit en relation avec les listes qu'on complètera au fur et a mesure du besoin.

Voila je ne sais pas si j'ai réussi à être clair, le problème est complexe pur l'effectuer dans l'automatisation et c'est pour ça que je me demande si vous avez une solution à ce point. Je vous joint le fichier pour que vous compreniez au mieu.

Merci

PS: IL EXISTE DEJA 3 MACROS SUR LA FEUILLE MAIS JE LES AI PAS MIS DANS LE FICHIER D'EXEMPLE CAR IL N'EXISTE PAS DE RELATION AVEC CE QUE JE DEMANDE.

Quelqu'un a une idée ?

[casefayere]

Bonsoir,
J'avais déjà regardé ton fichier et par manque de temps ou par principe, je ne pense pas qu'un abonné va te préparer quelque chose de tout fait.
Il faut que tu t'investisses et poses les questions au fur et à mesure de l'avancement de ton projet
Commences déjà par construire ton USF avec tous les contrôles souhaités, et l'aide viendra sans aucun doute.

Bon courage

[Crack1986]

Merci, mais je n'ai pas compris ce que tu veux dire par USF

première question : comment on fait pour créer une listbox qui me copie le contenu sur la cellule désiré ? Où bien une espèce de textbox. merci

[Philippe Tulliez]

Bonjour,
A lire avant tout Utiliser les contrôles dans un UserForm, en VBA Excel

[Crack1986]

Merci je vais lire ceci voyons si je comprends.

Rebonjour,

Je vous fait un petit point sur mon avancement du projet. La j'attaque le code mais je sais pas vraiment comment m'y prendre.

Je vous joint ici le fichier où vous pouvez voir la maquette que j'ai crée.

L'idée est de pouvoir copier une fois je selectionne toutes les données celles-ci sur la feuille excel.

Dans le cas que la case marketing soit cocher seule les dates et les responsables doivent être copier dans la feuille test cdc.

Le userform1 il faut que a chaque click sur valider il y est une ligne qui s'insère automatiquement à la suite de la dernière créer.

Merci de votre aide; au fur et a mesure je comprends le code mais je suis encore un bon débutant.

ps : pourquoi quand j'ecris ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CommandButton2_Click()
Call UserForm1
End Sub

J'ai pas le userform1 qui s'execute ?

[Philippe Tulliez]

Bonjour,
Pour activer un UserForm à partir d'un Module c'est UserFormName.Show donc dans ton cas UserForm1.Show

[Crack1986]

Merci ça marche.

J'ai refléchi comment faire pour copier les données choisi dans les cellules mais je crois que je fais une erreur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub ListBox1_Click()
Sheets("feuil5").Select
Range("b4") = ListBox1.Value.Selected
End Sub

c'est un exemple.

par contre c'est mieux de le faire a partir du bouton valider non ? car après valider, il faut que toutes les valeurs soit copiées sur la feuille.

Si il y a un tutoriel de comment faire ce genre de manipulation j'aimerai bien le lire.

[Philippe Tulliez]

Bonjour,
Le tuto dont je t'ai donné le lien tout à l'heure explique comment gérer un ListBox.
Les propriétes et méthodes de ComboBox et ListBox se gère de la même manière.

[Crack1986]

J'ai utiliser justement ceci appliquer a mon cas mais ça ne marche pas :

Transférer les données d'une ListBox dans la Feuille de calcul.
Vba

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub ListBox1_Click()
    With ListBox1
        Sheets("Feuil5").Range(Cells(4, 2), Cells(.ListCount, 1)) = .List
    End With

[Philippe Tulliez]

Bonjour,
Comment as-tu chargé le ListBox à l'initialisation du UserForm ?

[Crack1986]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub UserForm_Click()
 
'visualisation des listbox
ListBox1.ColumnHeads = True
ListBox1.RowSource = "informations!d6:d15"
ListBox2.ColumnHeads = True
ListBox2.RowSource = "informations!b6:b15"
ListBox3.ColumnHeads = True
ListBox3.RowSource = "informations!b20:b28"
ListBox4.ColumnHeads = True
ListBox4.RowSource = "informations!h12:h27"
ListBox5.ColumnHeads = True
ListBox5.RowSource = "informations!i12:i27"
ListBox6.ColumnHeads = True
ListBox6.RowSource = "informations!f6:f15"

Voila ceci me donne ce que je cherche mais la le problème qu'il y a c'est le suivant :

1 - je veux que a chaque fois que je valide, la prochaine selection se passe sur la ligne suivante.

2-une fois je valide, je veux que la userform se ferme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
'bouton valider
Range("B4") = ListBox1
Range("Q4") = ListBox2
Range("S4") = ListBox4
Range("T4") = ListBox5
Range("U4") = ListBox6
Range("ac4") = ListBox3
Range("r4") = TextBox1

pour l'instant j'ai fait jusqu'a ce point

[Crack1986]

Bonjour, suite à de nouvelles demandes le projet prends une nouvelle direction. Je dois donc abandonner. Merci de m'avoir aider. Dans le cas du nouveau projet il se peut que j'ai besoin de votre aide à nouveau.