cellule non grisée

[Michel68000]

Bonjour à tous,


Je cherche à récupérer la valeur de la première cellule non grisée d'une colonne.J'ai joint un petit tableau pour la compréhension .
Merci pour vos idées

 

[vgendron]

Hello
un exemple avec une fonction personnalisée dont le code est dans un module standard

 

[Michel68000]

bonjour vgendron,
J'ai essayé mais ça ne se met pas à jour la cellule D13, quand on grise ou non une partie de A2:A25

 

[Fred0o]

Bonjour Michel vgendron.

Je viens de passer 10 mins a developper la meme fonction personnalisee que vgendron et finalement, cela ne correspond pas exactement a ta demande car tu ne l'as pas exprime clairement au depart.
Grrrrr.
Je ne connais pas d'autre moyen que de lancer un calcul de la feuille, car je crois qu'Excel ne considere pas le fait de colorer une cellule comme un evenement, mais je peux me tromper.

 

[phlaurent55]

Bonjour à tous,

avec ce code pour le feuille concernée:

Private Sub Worksheet_SelectionChange(ByVal target As Range)
For Each cellule In Range("A2:A25")
If cellule.Interior.ColorIndex = xlNone Then
        [D13] = cellule.Value
        Exit Sub
End If
Next cellule
End Sub

Le résultat en D13 sera actualisé lors d'un changement (sélection) de cellule

Le fait de changer la couleur d'un cellule n'est pas considéré comme étant un évènement c'est pour celà que j'ai mis le code dans :
Private Sub Worksheet_SelectionChange

à+
Philippe

 

[job75]

Bonjour Michel68000, vgendron, Fred0o, Philippe,

Dans ce genre de problème on utilise généralement une MFC, voir le fichier joint.

Bonne journée.