Rechercher une valeur et mise en format de la colonne correspondante

  • Initiateur de la discussion Initiateur de la discussion Elodie195
  • 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 !

Elodie195

XLDnaute Occasionnel
Bonjour,

Je sollicite votre aide pour une macro Excel.

J'ai un tableau avec des intitulés en première ligne puis des résultats numériques en dessous.

Je souhaiterais une macro qui repère l'intitulé "PFOS" sur la première ligne (la colonne ou est affichée cet intitulé est variable)

Puis, que cela applique une mise en forme conditionnelle à la colonne correspondante : c'est à dire :
- si la valeur est comprise entre 0.001 et 0.01 on met 4 décimales
- si la valeur est comprise entre 0.01 et 0.1 on met 3 décimales

Merci d'avance de votre aide.

Bonne journée.
 

Pièces jointes

Bonjour,

démonstration selon les critères énoncés :

VB:
Sub Demo()
    With ActiveSheet.UsedRange.Rows
            C = Application.Match("PFOS*", .Item(1), 0)
            If IsError(C) Then Beep: Exit Sub
            Application.ScreenUpdating = False
        For R& = 3 To .Count
            With .Cells(R, C)
                If .Value < 0.1 And .Value >= 0.001 Then .NumberFormat = "0." & String$(3 - (.Value < 0.01), "0")
            End With
        Next
            Application.ScreenUpdating = True
    End With
End Sub
_______________________________________________________________________________
Merci de cliquer sur J'aime ce post en bas à gauche de chaque message ayant aidé …

_______________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …
 
Rationnellement des nombres d'une colonne devant être affichés selon un format unique :

VB:
Sub Demo2()
    With ActiveSheet.UsedRange.Rows
        V = Application.Match("PFOS*", .Item(1), 0)
        If IsNumeric(V) Then .Item("3:" & .Count).Columns(V).NumberFormat = "0.00000 "
    End With
End Sub
_______________________________________________________________________________
Merci de cliquer sur J'aime ce post en bas à gauche de chaque message ayant aidé …

_______________________________________________________________________________
Copier / Coller n'est pas coder …
 
Dernière édition:
Re : Rechercher une valeur et mise en format de la colonne correspondante

Bonjour à tous,

Avec les MFC je n'arrive pas à compiler les intitulés et le format.
Ci joint un exemple avec le format en MFC et un second tableau par formule.

JHA
 

Pièces jointes

- 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