Les conditions dans excel

Version imprimable

Voir 40 message(s) de cette discussion en une page

Effectivement, le test sur la dernière ligne ne se fait pas.
ci-joint le code modifié :

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
Sub Remplissage()
Dim I As Integer        ' Numéro de ligne
Dim X As String         ' Valeur de la colonne A
Dim Y As String         ' Valeur de la colonne B
Dim Valeur As String    ' Valeur du test

Valeur = "OK"           ' Initialisation de la valeur de résultat

For I = 1 To ActiveSheet.UsedRange.Rows.Count + 1

X = Range("A" & I) 'Affectation de valeur
Y = Range("B" & I) 'Affectation de valeur

    If X <> Range("A" & I + 1) Then 'Si on est à la dernière d'une série de même numéro
        Range("C" & I) = Valeur     ' Alors la cellule de la colonne C affiche le résultat du test
        Valeur = "OK"               ' Réinitialisation de la valeur de résultat
    Else
        If Y = "D" Or Y = "C" Then  ' Test sur la valeur de la colonne B
            Valeur = "NOK"
        End If
    End If
    If I = ActiveSheet.UsedRange.Rows.Count And Y = "D" Or Y = "C" Then
        Range("C" & I) = "NOK"
    End If 
Next
End Sub

une possibilité avec ceci
en reprenant l'exemple de ouisansdoute

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub test()
Dim t, u, i, p    'les variables
t = Range("a65535").End(xlUp).Row ' la dernière cellule de la colonne A
 For i = 1 To t     ' ici la première cellule est en ligne 1  (un prem = Range("a61").End(xdown).Row pour des lignes variables en descendant est possible
 u = 0 ' un interrupteur la variable peut être mise à Byte
 p = i  ' valeur du débute de boucle tant que 
 While Cells(p, 1).Value = Cells(i, 1).Value   ' le Tant que  
 If Cells(p, 2).Value = "C" Or Cells(p, 2).Value = "D" Then
 u = 1                ' ce qui test la colonne b tant que
 End If               ' la valeur en colonne A est la même 
 p = p + 1          ' on incrémente en B
 Wend               ' fin de test sur colonne A 
 i = p - 1           ' on réajuste I à la bonne position (p-1)
 If u = 1 Then     ' si l'iterrupteur est mit 
 Cells(i, 3).Value = "Nok"   ' la valeur en Colonne C
 Else
 Cells(i, 3).Value = "Ok"     ' sinon la valeur en colonne C
 End If
 Next                  ' on refait jusqu'à atteindre la valeur de T
End Sub

Toujours merci pour a vous pour vos interventions .
Alors mon code avance toujours et la je seche , je vais de nouveau avoir besoin de votre aide^^.Voici le code comme je l'est en ce moment, maintenant il faudrait que:
-La condition "Not assigned" lorsquelle est seul ou qu'il y a un groupe compose uniquement de la condition "Not assigned" dans ce cas si on dois avoir comme resultat du test not allow.
Dans le cas ou il y a des "Not assigned" avec des autres conditions aui sont bonnes le resultat du test est "allow".
C'est un peu mal explique mais j'espere que vous aller comprendre

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
32
33
34
35
36
37
38
39
40
41
Sub Remplissage()
Dim I As Integer        ' Zeilenummer
Dim X As String         ' value  column D
Dim Y As String         ' value  column E
Dim Valeur As String    ' value of the test
 
Valeur = "Allow" ' Initialisation de la valeur de résultat
 
Columns("AB:AB").Select
    Range("AB30").Activate
    Selection.ClearContents
 
Max = ActiveSheet.UsedRange.Rows.Count '
MsgBox "Der Wert der Variable Max lautet : " & Max
 
 
 
 
For I = 43 To Max
 
 
X = Range("B" & I) 'Affectation de valeur ECM
Y = Range("W" & I) 'Affectation de valeur de Phase type
 
    If X <> Range("B" & I + 1) Then    'Si on est à la dernière ligne d'une série de même numéro
        If Y = "Develop Phase" Or Y = "Design Phase" Or Y = "Study Phase" Or Y = "Implement Phase" Or Y = "Not assigned" Then      'Or Y = "Study Phase" Then
            Valeur = "Not Allow"
        End If
 
 
        Range("AB" & I) = Valeur    ' Alors la cellule de la colonne C affiche le résultat du test
        Valeur = "Allow"               ' Réinitialisation de la valeur de résultat
    ElseIf Y = "Develop Phase" Or Y = "Design Phase" Or Y = "Study Phase" Or Y = "Implement Phase" Or Y = "Not assigned" Then        ' Test sur la valeur de la colonne E
            Valeur = "Not Allow"
 
 
 
    End If
Next I
 
End Sub

Suite a mon intervention precedente j'ai fiinalement reussi a obtenir ce que je voulais avec ce code :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
 
Sub Remplissage()
Dim I As Integer        ' Zeilenummer
Dim X As String         ' value  column D
Dim Y As String         ' value  column E
Dim Valeur As String    ' value of the test
 
Valeur = "Allow" ' Initialisation de la valeur de résultat
                 ' nouvelle variable
Columns("AB:AB").Select
    Range("AB30").Activate
    Selection.ClearContents
 
Max = ActiveSheet.UsedRange.Rows.Count '
MsgBox "Der Wert der Variable Max lautet : " & Max
Cells(42, 28) = "Status"
 
 
 
For I = 43 To Max
 
 
X = Range("B" & I) 'Affectation de valeur ECM
Y = Range("W" & I) 'Affectation de valeur de Phase type
 
    If X <> Range("B" & I + 1) Then    'Si on est à la dernière ligne d'une série de même numéro
        If Y = "Develop Phase" Or Y = "Design Phase" Or Y = "Study Phase" Or Y = "Implement Phase" Or Y = "Not assigned" Then      'Or Y = "Study Phase" Then
            Valeur = "Not Allow"
        End If
 
 
        Range("AB" & I) = Valeur    ' Alors la cellule de la colonne C affiche le résultat du test
        Valeur = "Allow"               ' Réinitialisation de la valeur de résultat
    ElseIf Y = "Develop Phase" Or Y = "Design Phase" Or Y = "Study Phase" Or Y = "Implement Phase" Then         ' Test sur la valeur de la colonne E
            Valeur = "Not Allow"
 
    ElseIf Y = "Develop Phase" Or Y = "Design Phase" Or Y = "Study Phase" Or Y = "Implement Phase" And Y = "Not assigned" Then
    Valeur = "Not Allow"
 
 
    End If
 
 
Next I
 
End Sub

Ce n'est sans doute pas la meilleur facon de faire mais fonctionne :):
Je vais maintenant essayer de mettre un compteur qui me compte tous mes "Allow" et "Not Allow",sa dois surement etre facile a programmer mais pour moi sa ne coule pas de source encore :).

08/06/2009, 09h16
Barbie123

Bonjour a tous , j'essaye toujours de perfectionner ma macro et j'aurais a nouveau besoin de votre aide.

OuiSansDoute tu m'avais envoyer un fichier "remplisage.zip":
Sur le même exemple il faudrait rajouter une nouvelle condition.
Dans ton exemple des qu'il y avait un C ou D le resultat etait NOK.
Maintenant si je m'adapte a ton exemple moi il me faudrais un nouveau resultat (Almost ok) si par exemple dans la serie il n'y a que 2C Ou 2D ou 1C et 1D.

Si il y en a plus sa restera NOK comme avant.
Je vous remercie d'avance @+

je reprends l'exemple avec iterrupteur

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub test()
Dim t, u, i, p    'les variables
t = Range("a65535").End(xlUp).Row ' la dernière cellule de la colonne A
 For i = 1 To t     ' ici la première cellule est en ligne 1  (un prem = Range("a61").End(xdown).Row pour des lignes variables en descendant est possible
 u = 0 ' un interrupteur la variable peut être mise à Byte
 p = i  ' valeur du débute de boucle tant que 
 While Cells(p, 1).Value = Cells(i, 1).Value   ' le Tant que  
 If Cells(p, 2).Value = "C" Or Cells(p, 2).Value = "D" Then
 u =u+1                ' ce qui test la colonne b tant que
 End If               ' la valeur en colonne A est la même 
 p = p + 1          ' on incrémente en B
 Wend               ' fin de test sur colonne A 
 i = p - 1           ' on réajuste I à la bonne position (p-1)
 If u > 2 Then     ' si l'iterrupteur est mit 
 Cells(i, 3).Value = "Nok"   ' la valeur en Colonne C
 Elseif u>0 and u <=2 then
 Cells(i, 3).Value = "(Almost ok)"     ' sinon la valeur en colonne C
else
 Cells(i, 3).Value = "Ok"
 End If
 Next                  ' on refait jusqu'à atteindre la valeur de T
End Sub

parce que finalement il y a peu de modif ( et que j'aime bien les boucles while_wend ) :mouarf:

Merci Daranc pour ton code precedent mais j'ai finalement trouver une solution qui fonctionne moi même ^^.Essaye d'ecrire des codes simples car je suis encore super debutant :) .

Maintenant par contre j'ai un gros probleme:
Petite illustration:
http://imgur.com/dFbXR.jpg

Alors j t'explique les conditions "negatives" sont Ferrari et Porche

Des qu'il y en a plus de 2 dans 1 serie on doit passer dans la boucle N°3.

Des qu'il y en a moin 2 mais au moin 1 et que la serie comporte au moin 2 cellules de on doit passer dans boucle N°2.

Si la series comporte 1 seul cellule alors on passe dans la boucle 1.

En vrai je travail avec des conditions beaucoup plus complexe mais c'est pour faire simple.
Mon probleme est que lorsque j'ai une condition negative placer en derniere ligne avant une nouvelle serie (dans tous les autres cas sa marche parfaitement) , dans ce cas la il rentre dans la boucle 1 au lieu de rentrer dans la 3.

J'espere que tu as un peu compris et aue tu pourra m'aider merci :
Voici le code:
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 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 Sub EWC_Ready_test() Dim I As Integer ' Zeilenummer Dim x As String ' value column B Dim Y As String ' value column W Dim Value As String ' value of the test ConditionNegative = 0 Value = "Ready For EWC" ' Defaut value Columns("AB:AB").Select 'For Refresh column AB (28) Range("AB30").Activate Selection.ClearContents Max = ActiveSheet.UsedRange.Rows.Count ' MsgBox "Der Wert der Variable Max lautet : " & Max Cells(42, 28) = "Status" For I = 43 To Max x = Range("B" & I) ' ECM value Y = Range("W" & I) ' Value Phase type If x <> Range("B" & I + 1) Then 'If we are on the last line of a series of same number If Y = "Ferrari" Or Y = "Porche" Then 'conditions for the last cell when just one cell Value = "1" End If Range("AB" & I) = Value ' Then the cell of the column C posts the result of the test Value = "" ' Rebootstrapping of the value of result ConditionNegative = 0 ElseIf Y = "Ferrari" Or Y = "Porche" Then ' Test of the column W ConditionNegative = ConditionNegative + 1 If ConditionNegative <= 2 Then Value = "2" Else Value = "3" End If Next I End Sub
ps: ne fait pas attention au numero de ligne et nom des ligne c'est surtout les boucles aui devraient t'interesser

dans tes conditions

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
For I = 43 To Max
x = Range("B" & I)              ' ECM value
Y = Range("W" & I)              ' Value Phase type
If Y = "Ferrari" Or Y = "Porche" Then 
Value = "1"                     ' ici je ne comprends pas value à deux valeurs qui se suivent
Value = ""                      ' dont une vide la variable
ConditionNegative = 0
ElseIf Y = "Ferrari" Or Y = "Porche" Then          ' le test précédent étant valide celui ci est ignoré (et c'est le même)
ConditionNegative = ConditionNegative + 1
If ConditionNegative <= 2 Then
Value = "2"
Else
Value = "3"
End If

donc il ne peut pas aller à la boucle trois
c'eyt un peu le même truc que les mise en forme conditionnelles
1°) si x>10 rouge 2°)si x> 50 bleu 3°)si x>100 vert
tu auras chaque fois du rouge la première condition étant vérifiée les autres sont ignorées

Voir 40 message(s) de cette discussion en une page