Rajouter une deuxieme couleur

[lostheroe]

Bonjour,

J'aimerais rajouter à la macro ci-dessous:
- une deuxième couleur en plus de la couleur violette
- et également cloisonner la recherche des cellules aux colonnes A à AW au lieu de scanner l'ensemble de la feuille.

Sub Tuyautage()
Dim Cellule As Range
Dim NouveauClasseur As Workbook

'Pour chaque cellule utilisée dans la feuille idée
For Each Cellule In Worksheets("idée").UsedRange

'Si l'intérieur de la cellule utilisée est de couleur violette
If Cellule.Interior.Color = 13082801 Then

'Remplacer la valeur de cette cellule par sa valeur actuelle
Cellule.Value = Cellule.Value

'Retourner à un format de cellule sans remplissage
Cellule.Interior.Pattern = xlNone

End If

 

[lostheroe]

Re : Rajouter une deuxieme couleur

Bonjour,

Oui en effet les cellules des formules.

 

[Pierrot93]

Re : Rajouter une deuxieme couleur

Re,

change le type de cellule recherché :

Range("A1:AW1").EntireColumn.SpecialCells (xlCellTypeFormulas)

 

[lostheroe]

Re : Rajouter une deuxieme couleur

Voila le fichier excel avec la macro.
Par contre ça fais pas les deux formules et texte.

 

[Pierrot93]

Re : Rajouter une deuxieme couleur

Re,

essaie comme ceci :

Sub Tuy()
 Dim p As Range, Cellule As Range
With Worksheets("Feuil1").UsedRange
    Set p = Union(.SpecialCells(xlCellTypeConstants), .SpecialCells(xlCellTypeFormulas))
End With
 'Pour chaque cellule des colonnes A à AW utilisée dans la feuille Feuil1
For Each Cellule In p
        'Si l'intérieur de la cellule utilisée est de couleur violette ou saumon
    If Cellule.Interior.Color = 13082801 Or Cellule.Interior.Color = 11851260 Then
        'Remplacer la valeur de cette cellule par sa valeur actuelle
        If IsNumeric(Cellule) Then Cellule.Value = Round(Cellule.Value, 2)
        Cellule.Validation.Delete
        'Retourner à un format de cellule sans remplissage
        Cellule.Interior.Pattern = xlNone
    End If
Next Cellule
End Sub

 

[lostheroe]

Re : Rajouter une deuxieme couleur

Merci Pierrot, ça marche nickel.

Bonne journée a toi