Insertion d un saut de page qd il y a mot clé
question urgente svp
-
question urgente svp -
question urgente svp -
Bonjour,
j aimerai dans un fichier excel qu a chaque fois que la donnés 1*************** apparait ,qu un saut de page se crée automatiquement .
Avez vous une idée pour faire cela?
Merci beaucoup a vous
Cordialement
j aimerai dans un fichier excel qu a chaque fois que la donnés 1*************** apparait ,qu un saut de page se crée automatiquement .
Avez vous une idée pour faire cela?
Merci beaucoup a vous
Cordialement
A voir également:
- Insertion d un saut de page qd il y a mot clé
- Clé usb non détectée - Guide
- Comment supprimer une page sur word avec un saut de page ? - Guide
- Clé windows 8 - Guide
- Trousseau mot de passe iphone - Guide
- Clé usb - Accueil - Stockage
1 réponse
Salut,
en supposant que ta valeur 1*************** apparaisse en colonne A Feuille1 et que tu souhaites mettre un saut de page au dessous de cette valeur, coller le code ci-dessous dans les propriétés de la feuil1 (clic droit sur l'onglet Feuil1/Visualiser le code)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
Dim LigFin As Long
Col = "A"
LigFin = Range("A65536").End(xlUp).Row + 1
NumLig = 1
With ActiveSheet
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 1 To NbrLig
If .Cells(Lig, Col).Value = "1***************" Then
.Cells(Lig + 1, Col).EntireRow.Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
NumLig = NumLig + 1
Cells(LigFin, 1).Select
LigFin = LigFin + 1
End If
Next
End With
End Sub
A+
Mike-31
Un problème sans solution est un problème mal posé (Einstein)
en supposant que ta valeur 1*************** apparaisse en colonne A Feuille1 et que tu souhaites mettre un saut de page au dessous de cette valeur, coller le code ci-dessous dans les propriétés de la feuil1 (clic droit sur l'onglet Feuil1/Visualiser le code)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
Dim LigFin As Long
Col = "A"
LigFin = Range("A65536").End(xlUp).Row + 1
NumLig = 1
With ActiveSheet
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 1 To NbrLig
If .Cells(Lig, Col).Value = "1***************" Then
.Cells(Lig + 1, Col).EntireRow.Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
NumLig = NumLig + 1
Cells(LigFin, 1).Select
LigFin = LigFin + 1
End If
Next
End With
End Sub
A+
Mike-31
Un problème sans solution est un problème mal posé (Einstein)
merci .
cordialement