Discussion :

[saninx]

Salut à tous,

J'aimerais savoir si quelqu'un d'entre vous sait comment obtenir la ligne et la colonne d'une cellule colorée sur Excel avec VBA.

Merci de bien vouloir m'aider.

[PierrotMfff]

à ta place j'essaierai le test:

Code :

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

1
2
3
4
5
 
If MaCellule.Interior.Color <> RGB(255,255,255) then 'Différent d'une cellule blanche
     MaRow = MaCellule.Row
     MaColumn = MaCellule.Column
endif

Edit: Par exemple sur double click de ta cellule:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
If Target.Interior.Color <> RGB(255, 255, 255) Then
     MaRow = Target.Row
     MaColumn = Target.Column
     MsgBox ("Ligne: " & MaRow & Chr(10) & "Colonne: " & MaColumn)
End If
 
End Sub

[Ashireon]

essai ca

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub rechercellule()
Dim Cel As Variant
 
For Each Cel In ActiveSheet.Cells
    If Cel.Interior.ColorIndex <> xlColorIndexNone Then
        MsgBox "la Ligne de la cellule est" & Cel.Row & " et colonne de la cellule est " & Cel.Column
        Exit For
 
    End If
Next
 
End Sub

++

[mercatog]

Si tu recherche une couleur bien définie (Rouge par exemple, La coloration par MFC n'est pas prise en compte), l'utilisation de Find

Code :

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

1
2
3
4
5
6
7
8
9
Dim c As Range
 
Application.FindFormat.Interior.Color = LaCouleur
Set c = Worksheets("Feuil4").UsedRange.Find("", SearchFormat:=True)
If Not c Is Nothing Then
    MsgBox "Cellule trouvée à l'adresse " & c.Address(0, 0) & " (Ligne: " & c.Row & " , Colonne: " & c.Column & ")"
    Set c = Nothing
End If
Application.FindFormat.Clear

[saninx]

Merci et bravo à vous pour toutes ces réponses !

Cordialement !