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.

macro pour sélectionner les cellules dont la police est non barrée

Discussion dans 'Forum Excel' démarrée par michel.dupont, 9 Janvier 2019.

  1. michel.dupont

    michel.dupont XLDnaute Occasionnel

    Inscrit depuis le :
    6 Octobre 2008
    Messages :
    101
    "J'aime" reçus :
    0
    Bonjour
    Dans une feuille j'ai des lignes contiguës avec des cellules avec une police 'normal' et en dessous d'autres lignes également contiguës avec des cellules barrées. je cherche à écrire une macro pour sélectionner en vue d'une impression uniquement les lignes dont la police est non barrée, le nombre de ligne pouvant varier.Pour une meilleure compréhension je joins un petit fichier explicatif...un grand merci pour votre aide
    bonne soirée
    Michel
     

    Pièces jointes:

    • test1.xlsm
      Taille du fichier:
      12.1 Ko
      Affichages:
      11
  2. Chargement...


  3. vgendron

    vgendron XLDnaute Barbatruc

    Inscrit depuis le :
    24 Février 2009
    Messages :
    5051
    "J'aime" reçus :
    515
    Utilise:
    Excel 2007 (PC)
    Hello

    Voici un code qui te permet de créer la zone d'impression
    Code (Visual Basic):

    Sub Macro2()
    '
    ' Macro2 Macro
    '
    '
        With ActiveSheet 'dans la feuille active
            fin = .Range("A" & .Rows.Count).End(xlUp).Row 'on détecte le numéro de la dernière ligne du tableau
            For Each cell In .Range("B2:B" & fin) 'pour chaque cellule de la colonne B
                If cell.Font.Strikethrough = True Then 'si c'est barré
                    FinZone = cell.Row - 1 'on a trouvé la dernière ligne
                    Exit For
                End If
            Next cell
        End With
       
        ActiveSheet.PageSetup.PrintArea = Range("A2:N" & FinZone).Address 'on définit la zone d'impression
    End Sub
     
     
  4. michel.dupont

    michel.dupont XLDnaute Occasionnel

    Inscrit depuis le :
    6 Octobre 2008
    Messages :
    101
    "J'aime" reçus :
    0

    un très grand merci pour ton aide...c'est tout a fait ce que je voulais...
    bonne soirée amicalement
    Michel
     

Partager cette page