1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

XL 2016 Format plage de celulle selon critere (Résolu)

Discussion dans 'Forum Excel' démarrée par semir, 10 Janvier 2019.

Tags:
  1. semir

    semir XLDnaute Nouveau

    Inscrit depuis le :
    8 Février 2015
    Messages :
    17
    "J'aime" reçus :
    0
    Bonjour,

    Je post une macro que j'ai construite via l'aide de ce Forum.

    Ma problematique ici est que je souhaite pour chaque ligne ou le mot total apparait, la mettre en Couleur jusqu'a la colonne P.

    J'ai reussi á le faire mais je prend toute la ligne entierement et malgré toute mes recherches je trouve pas de solution.

    Code (Visual Basic):
    Sub Presentation3FR()

    Dim WS As Worksheet
    Dim DerLgn As Long
    Dim Lgn As Long

    ActiveSheet.UsedRange.Select
      Application.ScreenUpdating = False
         With ThisWorkbook
           For Each WS In .Worksheets
            With WS
             If .Name Like "Direction" Then
               DerLgn = .Cells(.Rows.Count, 1).End(xlUp).Row
               If DerLgn = 1 Then GoTo suite
                 For Lgn = DerLgn To 2 Step -1
                  If .Cells(Lgn, 2) Like "*Total*" Then
                  .Cells(Lgn, 2).EntireRow.Select
        With Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent1
            .TintAndShade = 0.599993896298105
            .PatternTintAndShade = 0
        End With
                    Else
                  End If
                 Next Lgn
             End If
            End With
    suite:
           Next WS
         End With
      Application.ScreenUpdating = True
      End Sub
     

    Voici la macro en Piece jointe. En mode vba si vous la declencher vous verrez que la ligne entiere est mise en bleu mais je n'arrive pas á la limiter á la colonne P.

    Pourriez vous svp m'aider pour cela.

    Merci beaucoup
     

    Pièces jointes:

    • Test.xlsm
      Taille du fichier:
      17.7 Ko
      Affichages:
      7
  2. Chargement...

    Discussions similaires - Format plage celulle Forum Date
    Sauvegarder plage au format PDF Forum Excel 26 Octobre 2018
    XL 2016 Éviter le format texte dans une plage de cellules Excel Forum Excel 28 Mars 2018
    XL 2016 Identifier une date au format mmm.aa dans une plage de cellules Forum Excel 20 Mars 2018
    XL 2007 Récupérer la somme d'une plage dans un Textbox en format (hh:mm) Forum Excel 30 Septembre 2017
    XL 2013 VBA : autoriser formatage colonnes & lignes sur plage verrouillée Forum Excel 26 Septembre 2017

  3. D.D.

    D.D. XLDnaute Occasionnel

    Inscrit depuis le :
    8 Avril 2008
    Messages :
    229
    "J'aime" reçus :
    22
    Sexe :
    Masculin
    Habite à:
    Vers Lyon
    Utilise:
    Excel 2016 (PC)
    Hello,

    Mets:
    .Range(Cells(Lgn, 1), Cells(Lgn, 16)).Select
    au lieu de:
    .Cells(Lgn, 2).EntireRow.Select
     
    semir aime votre message.
  4. semir

    semir XLDnaute Nouveau

    Inscrit depuis le :
    8 Février 2015
    Messages :
    17
    "J'aime" reçus :
    0
    Super ! Un grand merci. Bonne soirée
     
  5. D.D.

    D.D. XLDnaute Occasionnel

    Inscrit depuis le :
    8 Avril 2008
    Messages :
    229
    "J'aime" reçus :
    22
    Sexe :
    Masculin
    Habite à:
    Vers Lyon
    Utilise:
    Excel 2016 (PC)
    Ceci dit, une MFC serait pas mal aussi.

    upload_2019-1-10_17-40-45.png
     
  6. semir

    semir XLDnaute Nouveau

    Inscrit depuis le :
    8 Février 2015
    Messages :
    17
    "J'aime" reçus :
    0
    D'accord, j'avais decouvert sur le site de Microsoft cette Option tout a l'heure et essayé justement de le faire mais pas reussi non plus.
    Merci pour cette deuxieme soluce.
     

Partager cette page