XL 2016 VBA reprendre une valeur pour des plages séparées par des couleurs

AntonG · 27 Janvier 2020

Bonjour à tous,

Mes recherches ne m'ont pas permis de trouver une solution, ce que je veux faire est un peu difficile à expliquer :

Je souhaite qu'une valeur soit reprise pour des donnée entourée par une séparation de couleur. La valeur se trouve à chaque fois en "entête" des données toujours à la même position pour chaque "module de données". La difficulté pour moi est de faire comprendre au programme c'est le fait que la quantité varie à chaque fois.

J'ai mis l'excel en fichier joint, les valeurs doivent aller dans la colonne A à côté des données en colonne B. La valeur à reprendre se situe dans le ruban de couleur supérieur en colonne J en gras.

En vous remerciant par avance pour votre précieuse aide!

Je me tiens à votre disposition si ma demande n'est pas suffisamment claire,

sylvanu · 27 Janvier 2020

Bonjour Anton, PierreJean,
Avec une fonction perso :

VB:

Function ChercheCouleur(Ligne)
For i = Ligne To 1 Step -1                              ' De la ligne courante à 1 en remontant
    If Range("A" & i).Interior.Color = 13434879 Then    ' Cherche la bonne couleur
        i = i - 1                                       ' La valeur se trouve une ligne au dessus
        ChercheCouleur = Range("J" & i)                 ' Renvoie la valeur
        Exit Function                                   ' On sort car on a trouvé
    End If
Next i
End Function

pierrejean · 27 Janvier 2020

Bonjour AntonG

Voir macro test (essayée sur Feuil2)

sylvanu · 27 Janvier 2020

Bonjour Anton, PierreJean,
Avec une fonction perso :

VB:

Function ChercheCouleur(Ligne)
For i = Ligne To 1 Step -1                              ' De la ligne courante à 1 en remontant
    If Range("A" & i).Interior.Color = 13434879 Then    ' Cherche la bonne couleur
        i = i - 1                                       ' La valeur se trouve une ligne au dessus
        ChercheCouleur = Range("J" & i)                 ' Renvoie la valeur
        Exit Function                                   ' On sort car on a trouvé
    End If
Next i
End Function

AntonG · 27 Janvier 2020

Bonjour PierreJean et Sylvanu,

Vos deux solutions marchent à la perfection ! Merci beaucoup

XL 2016 VBA reprendre une valeur pour des plages séparées par des couleurs

AntonG

XLDnaute Nouveau

Pièces jointes

sylvanu

pierrejean

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

AntonG

XLDnaute Nouveau

Discussions similaires