Microsoft 365 Recherchev valeur + couleur

  • Initiateur de la discussion Initiateur de la discussion leks74
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

leks74

XLDnaute Nouveau
Bonjour,
En utilisant la fonction recherchev, y'a t-il une astuce pour trouver ou renvoyer à la fois la valeur, la couleur de la valeur ou cellule ainsi autres caractéristiques telles que valeur barrée 13?
Ci-joint, un exemple.
D'avance merci
 

Pièces jointes

Bonjour Leks, Job,
Peut être avec une fonction perso en VBA :
VB:
Function Paramètre(C As Range, Typ)
    Dim Cell As Range: Set Cell = Range(C.Address)
    Select Case Typ
        Case 1: Paramètre = Val(Cell.Value)
        Case 2: Paramètre = Cell.Font.Color
        Case 3: Paramètre = Cell.Interior.Color
        Case 4
            If Cell.Font.Bold = True Then Paramètre = "Gras" Else Paramètre = "Non gras"
        Case 5
            If Cell.Font.Italic = True Then Paramètre = "Italique" Else Paramètre = "Non italique"
        Case 6
            If Cell.Font.Underline > 0 Then Paramètre = "Souligné" Else Paramètre = "Non souligné"
        Case 7
            If Cell.Borders.LineStyle > 0 Then Paramètre = "Encadrée" Else Paramètre = "Non encadrée"
    End Select
End Function
Cette fonction permet de détecter 7 paramètres : Valeur, Couleur de police, Couleur de fond, Gras, Italique, Souligné et Encadré.
Après tout dépend de ce que vous voulez en faire ... 🙂
 

Pièces jointes

Bonjour Leks, Job,
Peut être avec une fonction perso en VBA :
VB:
Function Paramètre(C As Range, Typ)
    Dim Cell As Range: Set Cell = Range(C.Address)
    Select Case Typ
        Case 1: Paramètre = Val(Cell.Value)
        Case 2: Paramètre = Cell.Font.Color
        Case 3: Paramètre = Cell.Interior.Color
        Case 4
            If Cell.Font.Bold = True Then Paramètre = "Gras" Else Paramètre = "Non gras"
        Case 5
            If Cell.Font.Italic = True Then Paramètre = "Italique" Else Paramètre = "Non italique"
        Case 6
            If Cell.Font.Underline > 0 Then Paramètre = "Souligné" Else Paramètre = "Non souligné"
        Case 7
            If Cell.Borders.LineStyle > 0 Then Paramètre = "Encadrée" Else Paramètre = "Non encadrée"
    End Select
End Function
Cette fonction permet de détecter 7 paramètres : Valeur, Couleur de police, Couleur de fond, Gras, Italique, Souligné et Encadré.
Après tout dépend de ce que vous voulez en faire
 
Merci, je ne connais pas trop vba, je vais devoir l'apprendre. Mon objectif c'est de faire afficher sur un tableau des données provenant d'un autre tableau. Certaine de ces données sont barrées, donc on doit les supprimer dans le nouveau tableau. Or Recherchev me les remonte mais sans le format barré. Je vais devoir les repasser une à une.
Cdt
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour