A voir également:
- Placer le contenu d'une cellule dans le titre en vba
- Aller à la ligne dans une cellule excel - Guide
- Je cherche une chanson dont je ne connais pas le titre - Guide
- Trouver un film sans le titre - Télécharger - Divers TV & Vidéo
- Placer des points sur une carte - Guide
2 réponses
Kuartz
Messages postés
850
Date d'inscription
vendredi 13 février 2015
Statut
Membre
Dernière intervention
15 février 2019
61
Modifié par Kuartz le 22/09/2015 à 16:53
Modifié par Kuartz le 22/09/2015 à 16:53
Bonjour,
Pour moi le saut de page est une horreur. Je vous propose une solution alternative, à savoir qu'au changement de votre cellule, une nouvelle feuille sera créer avec en titre le contenu de votre cellule.
A copier/coller dans 'ThisWorkbook' :
Pour moi le saut de page est une horreur. Je vous propose une solution alternative, à savoir qu'au changement de votre cellule, une nouvelle feuille sera créer avec en titre le contenu de votre cellule.
A copier/coller dans 'ThisWorkbook' :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
Sheets.Add
ActiveSheet.Name = Range("A1").Value
ActiveSheet.Range("A1").Value = Sheets("le nom de votre feuille de base").Range("A1").Value 'A supposer que votre titre soit en A1
End If
End Sub
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 306
22 sept. 2015 à 17:56
22 sept. 2015 à 17:56
Option Explicit
'------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
With Sheets("cible")
.Range("A1") = Target
.Activate
End With
End If
End Sub
le saut de page se fait "tranquilou" sans être pris en horreur
22 sept. 2015 à 17:14
t'es sûr ?
pourquoi a tu en horreur un saut de page .?
Modifié par Kuartz le 22/09/2015 à 17:17
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect(Target, Range("A1")) Is Nothing Then Sheets.Add ActiveSheet.Name = Sheets("le nom de votre feuille de base").Range("A1").Value ActiveSheet.Range("A1").Value = Sheets("le nom de votre feuille de base").Range("A1").Value 'A supposer que votre titre soit en A1 End If End Sub23 sept. 2015 à 08:54