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

 

[Pierrot93]

Re : Rajouter une deuxieme couleur

Bonjour,

peut être en modifiant ainsi, enfin si j'ai bien compris... :

If Cellule.Interior.Color = 13082801 Or Cellule.Interior.Color = xxxxx Then

bonne journée
@+

 

[lostheroe]

Re : Rajouter une deuxieme couleur

Ca marche nickel. Merci Pierrot.
Par contre c'est possible de cloisonner la recherche à une plage de colonne au lieu de scanner toute la feuille.

 

[Pierrot93]

Re : Rajouter une deuxieme couleur

Bonjour,
pour une colonne :

Dim c As Range
For Each c In Feuil1.Columns(1).Cells
    c.Select
Next c

mais préférable de borner la plage de cellule concernée :

Dim c As Range
With Feuil1
    For Each c In .Range("A1:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
        c.Select
    Next c
End With

code à adapter...

bonne journée
@+

 

[lostheroe]

Re : Rajouter une deuxieme couleur

Bonjour,

J'arrive pas à l'intégré dans ma macro pour que cela fonctionne correctement.

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

'Pour chaque cellule de la colonne 1 utilisée dans la feuille idée
For Each c In Feuil1.Range("A1:AW1").Cells
c.Select

'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
Next c
End Sub

 

[Pierrot93]

Re : Rajouter une deuxieme couleur

Re,

en l'état :

For Each c In Feuil1.Range("A1:AW1").Cells

ne boucle pas sur une colonne mais sur une partie de la ligne 1...

A noter "Feuil1" est le codename de la feuille sur laquelle est déterminée la plage...

 

[lostheroe]

Re : Rajouter une deuxieme couleur

Il faut rajouter EntireColumn pour prendre les colonnes complète?

For Each c In Feuil1.Range("A1:AW1").EntireColumn.Cells

Par contre j'ai toujours un problème avec la macro. Elle bloque sur c.Select

 

[Pierrot93]

Re : Rajouter une deuxieme couleur

Re,

Il faut rajouter EntireColumn pour prendre les colonnes complète?

dans ce cas bouclera sur toutes les cellules des colonnes A à AW....

Elle bloque sur c.Select

attention, la feuille n'est peut être pas la bonne... elle doit être active pour que cela fonctionne... mais c'était un exemple, rarement utilies les "select" en vba...

 

[lostheroe]

Re : Rajouter une deuxieme couleur

Ca bloque maintenant sur If Cellule.Interior.Color.
Erreur d'execution '91'
Variable objet ou variable de bloc with non definie

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

'Pour chaque cellule des colonnes A à AW utilisée dans la feuille idée
For Each c In ThisWorkbook.Worksheets("idée").Range("A1:AW1").EntireColumn.Cells
c.Select

'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
Next c
End Sub

 

[Pierrot93]

Re : Rajouter une deuxieme couleur

Re,

enlève "Cellule" partout dans ton code, c'est "c" qui est utilisé comme variable... tu peux enlever aussi le c.select qui n'était là que pour l'exemple....

 

[lostheroe]

Re : Rajouter une deuxieme couleur

Je voudrais maintenant rajouter usedRange afin de scanner que les celulles contenant une donnée. Pour éviter de scanner toute les cellules vide pouvant être contenu dans les colonnes A à AW
J'ai essayé de la rajouter avant range ("A1;AW1"), mais malheureusement ca ne marche pas

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

'Pour chaque cellule des colonnes A à AW utilisée dans la feuille idée
For Each Cellule In ThisWorkbook.Worksheets("idée").Range("A1:AW1").EntireColumn.Cells

'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
Next Cellule
End Sub

 

[Pierrot93]

Re : Rajouter une deuxieme couleur

Re,

Je voudrais maintenant rajouter usedRange afin de scanner que les celulles contenant une donnée

"usedrange" représente la plage utilisée dans la feuille de calcul, ne fait pas de distingo si il y a ou pas des cellules vides dans cette plage...

 

[Pierrot93]

Re : Rajouter une deuxieme couleur

Re,

utilise plutôt "SpecialCells "

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

 

[lostheroe]

Re : Rajouter une deuxieme couleur

Y'a encore un petit problème. La macro s'arrête sur la première colonne ou il des cellules contenant la couleur violette.
Mais la macro ne passe pas ensuite au colonne suivante.

 

[Pierrot93]

Re : Rajouter une deuxieme couleur

Bonjour,

bah... sans voir le code utilisé ni les données traitées... pas facile de te répondre... regarde put être si les cellules ne contiennent pas en fait des formules...

bonne journée
@+