Discussion :

[visto94]

Bonjour!

Je vais vous expliquez dans un premier temps ce que je veux de mon programme.


1. Je veux qu'il parcourt ma colonne 6 (donc F).
2. Qu'il recherche dans cette colonne les chiffres qui sont en "dur" ( qui non donc pas de formule de type "=Rules!$K$28").
3.Qu'il colorie la cellule de ces chiffres la en Rouge.
4. Et je veux qu'il fasse cela pour tout mes onglets avec comme format "xx-wwww"(=>42 - SGGS)


Voila mon code :

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
Sub controle_formule()
Dim S As Byte
Dim r As Long, DerLig As Long
 
For S = 6 To Sheets.Count 'Boucle sur les feuilles
    If Sheets(S).Name Like "*-*" Then 'Evite de de vérifier les formules sur la feuille Rules qui ne devrait pas en contenir, donc gain de temps
 
 
        DerLig = Sheets(S).Cells(Columns(6).Cells.Count, 6).End(xlUp).Row 'Détermine la dernière ligne remplie de la feuille
        For r = 1 To DerLig 'Boucle sur toutes les lignes remplies
            If Sheets(S).Cells(r, 6).Formula <> "=Rules*" And ActiveCell.Value <> "" Then
'                If ActiveCell.Value = "" Then 'Or ActiveCell.Value <> [:digit:] Then
'
'                Else
                    Sheets(S).Cells(r, 6).Interior.ColorIndex = 3            'Si la cellule n'a pas la "formule" alors en rouge
'                End If
            End If
        Next r
    End If
Next S
 
End Sub

PS: les commentaires que je laisse sont idées que j'ai eu...


Donc le problème de ce code c'est qu'une fois lancé je me retrouve avec toute mes colonnes F en rouges...

J'aurai donc grandement besoin d'aide!

En vous remerciant !

[mercatog]

Code :

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

1
2
3
4
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
    If InStr(Sh.Name, "-") > 0 Then Sh.Range("F:F").SpecialCells(xlCellTypeConstants, xlNumbers).Interior.ColorIndex = 3
Next Sh

[visto94]

Salut mercatog!

J'ai essayé ton script, mais malheureusement il ne fonctionne pas...
je n'obtiens aucune erreur, en faite je n'obtiens rien...

[babaothe]

salut

HasFormula est une propriété d'un objet Range. Elle est à True (si formule) ou à False (si pas de formule)
C'était bien là ton problème ? (pas sûr).

[visto94]

Youhou merci cela marche!
Merci babaothe!
J'ai une dernière petite question comment ne pas prendre en compte les cellules vide et les cellules contenant une chaine de caractère?
Car j'obtiens bien le résultat voulu, c'est a dire les cellules qui ne contienne pas de formule en rouge mais du coup les cellules vides aussi deviennent rouge:

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 controle_formule()
Dim S As Byte
Dim r As Long, DerLig As Long
 
For S = 6 To Sheets.Count 'Boucle sur les feuilles
    If Sheets(S).Name Like "*-*" Then 'Evite de de vérifier les formules sur la feuille Rules qui ne devrait pas en contenir, donc gain de temps
        DerLig = Sheets(S).Cells(Columns(6).Cells.Count, 6).End(xlUp).Row 'Détermine la dernière ligne remplie de la feuille
        For r = 1 To DerLig 'Boucle sur toutes les lignes remplies
            If Sheets(S).Cells(r, 6).HasFormula = False Then
                If ActiveCell.Value <> "" Then
                    Sheets(S).Cells(r, 6).Interior.ColorIndex = 3            'Si la cellule n'a pas la "formule" alors en rouge
                End If
            End If
        Next r
    End If
Next S
End Sub

Comme vous pouvez le voir j'ai essayer de créer une condition...

[visto94]

Ok... Je retire ce que j'ai dit je me suis débrouillé pour les cellules vides...
Cependant je ne vois pas trop comment faire pour mes cellules contenant des titres!