Discussion :

[dodo28]

bonjour,
je voudrais que cette macro s applique a toutes les feuilles mais ca ne marche pas

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
Sub MfcDateDeDemande()
 
Dim y As Variant
X = Sheets.Count
n = 18
For Each y In Worksheets
For i = 1 To X
 While Cells(n, 30) <> ""
    If CDate(Cells(n, 30).Value) > CDate("13/3/2009") Then
    Cells(n, 30).Interior.ColorIndex = 3
    End If
 n = n + 1
 Wend
 n = 18
 Next i
 Next y
 
 
End Sub

merci

[Godzestla]

Bonjour,
il te manque la référence à ta feuille.

Essaie comme ceci :

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
 
Sub MfcDateDeDemande()
 
Dim y As Variant
 
n = 18
For each sh in sheets
 with sh
 While .Cells(n, 30) <> ""
    If CDate(.Cells(n, 30).Value) > CDate("13/3/2009") Then
    .Cells(n, 30).Interior.ColorIndex = 3
    End If
 n = n + 1
 Wend
 n = 18
 end with
 Next

[Krovax]

J'ai du mal a comprendre ce que tu veux faire avec ton code
Mais regare cette macro qui écrit bob dans toute les cellules A1

Code :

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

1
2
3
4
Dim sh As Worksheet
For Each sh In Worksheets
    sh.Cells(1, 1) = "bob"
Next sh

Après je modifierais ta macro ainsi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub MfcDateDeDemande()
Dim y As Worksheet
 
For Each y In Worksheets
n = 18
 While y.Cells(n, 30) <> ""
    If CDate(y.Cells(n, 30).Value) > CDate("13/3/2009") Then
    y.Cells(n, 30).Interior.ColorIndex = 3
    End If
 n = n + 1
 Wend
 Next y

Après j'ai pas compris ton i et X mais bon visiblement tu voulais choisir ton onglet avec mais dans ce cas fallait faire (ca devrait marché je n'ai pas testé)

Code :

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

1
2
3
4
X = Sheets.Count
For i = 1 To X
sheets(i).cells(1,1)="Bob"
next i

Arf c'est vraiment pas mon jour aujourd'hui a chaque fois je suis trop long a taper mon message Enfin Bonjour Godzestla

[laetitia]

bonjour dodo28 le forum peut etre comme cela!!

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
Sub MfcDateDeDemande()
 Dim y As Variant
Application.ScreenUpdating = False
X = Sheets.Count
n = 18
For Each y In Worksheets
Sheets(y.Name).Activate
For i = 1 To X
 While Cells(n, 30) <> ""
    If CDate(Cells(n, 30).Value) > CDate("13/3/2009") Then
    Cells(n, 30).Interior.ColorIndex = 3
    End If
 n = n + 1
 Wend
 n = 18
 Next i
 Next y
 End Sub

[dodo28]

la macro de godzestla marche bien
merci