Discussion :

[peligroso]

Bonjour,
Etant débutant en VB Excel, je suis là pour demander votre aide sur un script vraiment élémentaire.

Voila un exemple du tableau sur lequel je vais travailler :





* Opération 1 :

Regarder les lignes correspondant aux opérations, et dès que le statut change, je dois colorier toute la ligne (par exemple dans notre cas, les lignes 2 et 4)

* Opération 2:

Essayer de générer un diagramme avec les différentes transitions(Exemple : X --> Y ligne1 ; et X --> Y --> Z pour la ligne 3).

J'espère que ma demande est bien claire, et je compte vraiment sur votre précieuse aide.

Merci infiniment

[LeForestier]

Bonjour,
Voila déjà un exemple pour déterminer les égalités ou non et coloriser la ligne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub TestEgalite()
Dim i As Integer
Dim NBligne As Integer
    NBligne = 3 'à adapter en fontion du nombre de lignes
    Sheets("feuil1").Activate
    For i = 1 To NBligne
        If Cells(i, 3) = Cells(i, 5) And Cells(i, 3) = Cells(i, 7) Then
        Else
            Rows(i).Select
            Selection.Interior.ColorIndex = 6 'jaune
        End If
    Next i
 
End Sub

Concernant ta 2ém question je ne la comprend pas bien, veux tu expliquer un peu plus.
A+

[peligroso]

Merci LeForestier pour ton aide, ca marche à merveille ^^

En fait le nombre de lignes changent, donc j'ai opté pour la condition :

Code :

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

1
2
 
NBLigne = ActiveSheet.UsedRange.Rows.Count

Afin de trouver le nombre de lignes actives.

Concernant la deuxième question, en fait ces opérations 1, 2 et 3 ont des états transitants, çàd que ca basucle de l'état X à l'état Y, puis X puis Z ... etc

Mon souhait alors, est de faire une sorte de schéma afin de montrer ces transitions dans le temps.



Merci encore

[LeForestier]

Evidemment ont ne peu pas tous connaître, mais en horizontal cela devrait être possible avec un Graph, à la place d'aller de gauche à droite les lignes irraient de haut en bas !
Si ca te convient ont peu éventuellement approfondir...
Mais pour cela il faudrait avoir un peu plus de données.
A+

[LeForestier]

Eh bien même si l'ont est débutant le transfert de connaissance est malgrés tout actif, en effet je ne connaissais pas cette façon de connaître la dernière ligne d'une façon aussi simple, et beaucoups de gens ne la connaisse pas

Code :

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

NBLigne = ActiveSheet.UsedRange.Rows.Count

Pour en revenir au 2ém problème, il faudrait donner des valeurs au symboles
X, Y et Z par exemple 1,2 et 3, pour faciliter l'inscription dans un Graph.
A+

[peligroso]

Je te remercie encore LeForestier pour ton aide ^^

En fait, X Y et Z sont des états, (par exemple : Actif, en attente, Inactif ..) donc ca prend pas de valeur. Le vrai but de ces graphes est de déterminer le nombre de changement d'états pour une opération donnée, ainsi que le délai de transition (se calcul facilement en faisant la différence des dates : Date B - Date A ... etc)

[ouskel'n'or]

Eh bien même si l'ont est débutant le transfert de connaissance est malgrés tout actif, en effet je ne connaissais pas cette façon de connaître la dernière ligne d'une façon aussi simple, et beaucoups de gens ne la connaisse pas

Code :

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

NBLigne = ActiveSheet.UsedRange.Rows.Count

Comme ce n'est pas tout à fait exact, tu ne m'en voudras pas si je t'offre un peu de lecture

[peligroso]

Je n'ai aucune raison de t'en vouloir

Le savoir est toujours bon à partager ^^