Affecter macro sur la 1ère cellule colorée d'une ligne

job75

XLDnaute Barbatruc

• 15 Décembre 2017

• #2

Bonsoir Skyna,

Sur Excel 2007 et les versions suivantes on peut utiliser la propriété DisplayFormat :

Code:

Sub Compléter_MFC()
Dim c As Range
For Each c In [D:D].SpecialCells(xlCellTypeConstants)
  If c.DisplayFormat.Interior.ColorIndex <> xlNone Then
    c(1, 2) = c * 2
    c(1, 3) = c * 3
    c(1, 4) = c * 4
    Exit For
  End If
Next
End Sub

A+

 

Vote positif 0 Vote négatif

S

Skyna

XLDnaute Occasionnel

• 15 Décembre 2017

• #3

Bonjour,
Je n'avais pas vu la macro dans ce sens, c'est parfait!!! Merci!

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Décembre 2017

• #4

Re,

Sur toute version Excel on peut utiliser :

Code:

Sub Compléter_MFC()
Dim c As Range
For Each c In [D:D].SpecialCells(xlCellTypeConstants)
  If c.Interior.ColorIndex <> xlNone Then
    If Application.CountA(c(1, 2).Resize(, 3)) = 0 Then
      c(1, 2) = c * 2
      c(1, 3) = c * 3
      c(1, 4) = c * 4
      Exit For
    End If
  End If
Next
End Sub

et on peut effacer les MFC, elles ne sont pas indispensables.

A+

 

Vote positif 0 Vote négatif

S

Skyna

XLDnaute Occasionnel

• 16 Décembre 2017

• #5

Merci.! Je rajoute une petite question.. Comment récupérer al valeur de la cellule colorée dans un msgbox par exemple ?

 

Dernière édition: 16 Décembre 2017

Vote positif 0 Vote négatif

S

Skyna

XLDnaute Occasionnel

• 16 Décembre 2017

• #6

Personne n'a d'idée svp? J'ai essayé avec des .value mais cela ne fonctionne pas..

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Décembre 2017

• #7

Bonjour Skyna,

Skyna à dit:

Personne n'a d'idée svp?

Cliquez pour agrandir...

C'est vous qui devriez en avoir, je vous laisse placer ceci où il faut :

Code:

MsgBox c

A+

 

Vote positif 0 Vote négatif

S

Skyna

XLDnaute Occasionnel

• 16 Décembre 2017

• #8

Merci pour l'info mais cela ne fonctionne pas chez moi. Je sais d'où vient mon bug.. c'est qu'en fait la macro ne fonctionne qu'avec des chiffres (comme mis dans le classeur d'exemple) mais dans mon classeur réel j'ai des formules dans ces cellules et cela ne fonctionne plus..
Là je suis coincée.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Décembre 2017

• #9

Re,

Comme quoi il faut joindre dès le début un classeur qui reflète bien la réalité !

Puisque ce sont des formules qui renvoient les nombres utilisez au départ :

Code:

For Each c In [D:D].SpecialCells(xlCellTypeFormulas, 1)

A+

 

Vote positif 0 Vote négatif