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

[Skyna]

Bonjour à tous,

Pouvez-vous m'aider svp à trouver une macro?

Ce que je souhaiterais réaliser c'est réaliser la macro uniquement sur la 1ère cellule colorée, à savoir réaliser des multiplication sur les cellules d'à côté. La cellule perdra sa couleur une fois la macro réalisée (mise en forme conditionnelle déjà réalisée).
Puis si l'on relance la macro, elle se produira sur la prochaine cellule colorée, etc etc..

Pouvez-m'aider à réaliser cela svp?

Merci par avance.

 

[job75]

Bonsoir Skyna,

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

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+

 

[Skyna]

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

 

[job75]

Re,

Sur toute version Excel on peut utiliser :

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+

 

[Skyna]

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

 

[Skyna]

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

 

[job75]

Bonjour Skyna,

Personne n'a d'idée svp?

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

MsgBox c

A+

 

[Skyna]

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.

 

[job75]

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 :

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

A+