listbox dynamique vba

Version imprimable

16/12/2013, 10h06
yoann03

listbox dynamique vba

Bonjour a tous,

Je suis apprentis en licence Pro et on me demande de développer une application pour gérer et enregistrer les demande d'intervention en maintenance, problème je suis technicien d'usinage de base et je n'y connais rien en programmation VBA ou du moins très peu, ça fait une semaine que je bosse dessus et j'avance pas.

Je souhaite que le choix proposer de la listbox ou combobox (je ne sais pas quoi utiliser) numéro deux soit en fonction de la première (en fonction du type de ligne les opérateurs on le choix des machines) le park machine bouge régulièrement donc il faut que les liste soit facilement modifiable.

J'ai chercher sur l'incroyable Google des solution et malgré toutes les aide que j ai trouvé je n'y arrive toujours pas si vous pouvez m'aider sa serait super parce que tous sa c'est un peut du chinois pour moi merci a ce qui voudrons bien m'aidez ça serait vraiment génial.
17/12/2013, 13h48
Invité

Bonjour,

Poste déjà ce que tu as fait:mouarf:
19/12/2013, 08h19
yoann03

1 pièce(s) jointe(s)

voila ce que j ai fait tu devrais mieux comprendre, si tu a une solution plus simple ou meilleur je suis preneur
19/12/2013, 09h34
yoann03

1 pièce(s) jointe(s)

Apres un peut de temp repasser dessus j'arrive a sa mais je n'arrive pas à aller a la ligne après chaque validation ni remettre les case a zero et encore mon a régler les statuts.
toujours preneur d'une meilleur solution
merci de m aider
a+
19/12/2013, 12h58
yoann03

1 pièce(s) jointe(s)

sa devrais être mieu la.
20/12/2013, 12h38
Invité

1 pièce(s) jointe(s)

Bonjour,

Je suis débutant donc j'ai tenté de te donner un petit coup de main.

Je ne sais pas si j'ai tout compris, je te joins ton fichier modifié mais incomplet. En espérant que quelqu'un puisse le compléter.

Désolé, vu mon niveau c'est tout ce que j'ai pu faire.

Cordialement,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Function Status(ShSource As Worksheet) As String
Status = ""
On Error Resume Next
For i = 1 To ShSource.Shapes.Count
    Debug.Print ShSource.Shapes(i).ControlFormat.Value
    If Err = 0 Then
        If ShSource.Shapes(i).ControlFormat.Value = 1 Then
            Status = ActiveSheet.Shapes(i).AlternativeText
        End If
    End If
    Err.Clear
Next
On Error GoTo 0
End Function
Sub validation()
Dim ShSource As Worksheet
Dim ShCible As Worksheet
Dim derlign As Long
Set ShSource = Sheets("Formulaire")
Set ShCible = Sheets("demande d'intervention")
 derlign = ShCible.UsedRange.Rows.Count + 1
ShCible.Cells(derlign, 1) = ShSource.Range("B3")
 ShCible.Cells(derlign, 2) = ShSource.Range("E3")
 ShCible.Cells(derlign, 3) = ShSource.Range("E6")
 ShCible.Cells(derlign, 4) = ShSource.Range("E9")
 ShCible.Cells(derlign, 5) = ShSource.Range("B6")
 ShCible.Cells(derlign, 6) = ShSource.Range("E12")
 ShCible.Cells(derlign, 7) = ShSource.Range("E15")
ShCible.Cells(derlign, 8) = Status(ShSource)
 
End Sub

21/12/2013, 09h32
Invité

1 pièce(s) jointe(s)

Bonjour Rdurupt,

Je te remercie pour ton intervention. Avec mes maigres connaissances, j'ai tenté une approche pour venir en aide à yoann03.

Je lui ai fait une userform, mais j'ai bloqué pour les comboboxs en cascades (je suis encore dessus pour trouver une solution).

Vu ton niveau, je suis sûr que ta solution est bonne, mais personnellement je ne sais pas comment utiliser ta fonction.

Pourrais-tu m'éclairer sur son utilisation?

Merci.

Bon week-end et bonnes fêtes.

Cordialement,

Bonjour,

j'ai modifié ton fichier, je pense que c'est ce que tu voudrais comme résultat mais avec userform.

cordialement,

Apparemment Yoann03 a pris des vacances prolongées

Une petite erreur dans le code rdurupt, il manquait juste un "i" dans le next

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function Status(ShSource As Worksheet) As String
Status = ""
On Error Resume Next
For i = 1 To ShSource.Shapes.Count
    Debug.Print ShSource.Shapes(i).ControlFormat.Value
    If Err = 0 Then
        If ShSource.Shapes(i).ControlFormat.Value = 1 Then
            Status = ActiveSheet.Shapes(i).AlternativeText
        End If
    End If
    Err.Clear
Next i            '***ici***
On Error GoTo 0
End Function

joyeuses fêtes de fin d'années.

25/12/2013, 23h44
Invité

Oups! ma proposition n'a pas séduit, normal je suis débutant. Mais bon, je ne tiens pas rigueur à celui qui m'a mal noté. ça ne m'empêchera pas de dormir ce soir.

Joyeuses fêtes de fin d'année!

Cordialement,
26/12/2013, 00h29
Invité

Citation:

Envoyé par cathodique

Oups! ma proposition n'a pas séduit, normal je suis débutant. Mais bon, je ne tiens pas rigueur à celui qui m'a mal noté. ça ne m'empêchera pas de dormir ce soir.

Joyeuses fêtes de fin d'année!

Cordialement,

bonjour,
en tout cas si ta proposition n'a pas séduit, ce n'est pas de mon point de vue.

peut on sanctionner la bonne volonté. je n'aurai jamais validé ce genre de pratique.

pour être tout à fait franc, je me suis intéresse au sujet, justement parce que tu avais souhaité y participé; car comme tu l'as fait remarqué le sujet ne préoccupe pas beaucoup son auteur.

en ce qui concerne:

Code:

Next i

le i n'est pas obligatoire, même certain langage comme le VBSCRIPT cousin pas si éloigné de VBA le proscrivent.

en touts cas bravo de t’investir, les postes de ce forums sont des bon sujet pour progresser. le plus difficile quand on veut apprendre c'est l'inspiration. là tu es confronté à de vraie problématiques et il est bien de ce faire les dents dessus. félicitation pour cette initiative.
20/01/2014, 11h57
yoann03

excuse plate et sincere

je suis sincèrement desoler de ne plus avoir donner signe de vie...ce la ne vous interreseras surment pas mais depuis ma derniere publication ma femme ma quitter mon année de licence a capoter et par consequent je n est plus de travail donc oui ce sujet ne pas vraiment preaucuper c'est dernier temps