Fixer print area jusqu'à la ligne avec les texts spécifiques
Linedolc
Messages postés
13
Date d'inscription
Statut
Membre
Dernière intervention
-
cousinhub29 Messages postés 1074 Date d'inscription Statut Membre Dernière intervention -
cousinhub29 Messages postés 1074 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je voudrais fixer une range de print area de colonne B - K jusqu'a la ligne avec les texts" n.a. not availabe". Voici mes codes:
Sub Printarea()
Dim lr As Long, r As Long, rng As Range
With ActiveSheet
lr = .Range("C" & Rows.Count).End(xlUp).Row
For r = 1 To lr
If InStr(1, LCase(Range("C" & r)), "n.a.: not available") <> 0 Then
.PrintArea = Range("B1:K" & lr)
End If
Next r
End With
End Sub
Mais ça ne marche pas. Est-ce que quelqu'un peut m'aider avec ça?
Merci beaucoup!
A voir également:
- Fixer print area jusqu'à la ligne avec les texts spécifiques
- Print artist - Télécharger - Loisirs créatifs
- Aller à la ligne excel - Guide
- Partager photos en ligne - Guide
- Mètre en ligne - Guide
- Directory list & print - Télécharger - Divers Utilitaires
