Bonjour, je souhaiterais un peu d'aide concernant deux problèmes distincts:

-Le premier, j'ais le code suivant qui est sensé mettre 1 ou 0 dans la colonne E selon si le texte de la cellule voisine ( en D ) est "VRAI" ou "FAUX", mais ce dernier ne me met rien :s

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
32
33
34
Dim i As Integer
Dim Compt As Integer
'Worksheets("Fournitures").Cells(2, 10).Value = 1
'Worksheets("Fournitures").Cells(3, 10).Value = 0
 
Compt = 1
While Cells(Compt, 3).Value <> ""
    Compt = Compt + 1
'Cells(2, 8).Value = Compt
Worksheets("Fournitures").Cells(Compt - 1, 5) = "0"
Wend
 
For i = 2 To Compt - 1
 
'Select Case Worksheets("Fournitures").Cells(i, 4).Value
 
'    Case Worksheets("Fournitures").Cells(i, 4).Value = "VRAI"
'         Worksheets("Fournitures").Cells(i, 5).Value = "1"
'    Case Worksheets("Fournitures").Cells(i, 4).Value = "FAUX"
'         Worksheets("Fournitures").Cells(i, 5).Value = "0"
'End Select
 
    If Worksheets("Fournitures").Cells(i, 4).Value = "FAUX" Then
    Worksheets("Fournitures").Cells(2, 9) = "0"
    End If
    If Worksheets("Fournitures").Cells(i, 4).Value = "VRAI" Then
    Worksheets("Fournitures").Cells(i, 5).Value = "1"
    End If
 
 
    'Cells(3, 8).Value = i
    'Cells(4, 8).Value = Worksheets("Fournitures").Cells(i, 4).Value
    'Cells(5, 8).Value = Worksheets("Fournitures").Cells(i, 5).Value
Next i
-Second problème, pour masquer les lignes qui ont dans la colonne D un "FAUX" mon code à beau être exécuté, il ne fait rien :s

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
Dim i As Integer
Dim Compt As Integer
 
Compt = 1
 
While Cells(Compt, 4).Value <> ""
    Compt = Compt + 1
Wend
 
 
 
    For i = 2 To Compt - 1
        If Cells(i, 4) = "FAUX" Then Rows(i).Hidden = True
        If Cells(i, 4) = "VRAI" Then Rows(i).Hidden = False
 
    Next i
Pourriez vous m'éclairer, sachant que je débute en VB