Discussion :

[yoann03]

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.

[Invité]

Poste déjà ce que tu as fait

[yoann03]

voila ce que j ai fait tu devrais mieux comprendre, si tu a une solution plus simple ou meilleur je suis preneur

[yoann03]

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+

[yoann03]

sa devrais être mieu la.

[Invité]

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,

[Invité]

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
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

[Invité]

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,

[Invité]

Apparemment Yoann03 a pris des vacances prolongées

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

Code :

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

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.

[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,

[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,

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 :

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

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.

[yoann03]

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