Placer le contenu d'une cellule dans le titre en vba

Didier41 -
didier41 - 23 sept. 2015 à 08:54

Bonjour,
j'ai un tableau ecel dans lequel j'ai une macro qui me genere un saut de page sur le changement du contenu d'une cellule et je souhaite fire figurer le contenu de cette cellule dans le titre.

Merci d'avance

A voir également:

Placer le contenu d'une cellule dans le titre en vba
Trouver un film sans le titre - Télécharger - Divers TV & Vidéo
Placer des points sur une carte - Guide
Fusionner deux cellules excel en gardant le contenu - Guide
Je cherche une chanson dont je ne connais pas le titre - Guide
Aller à la ligne dans une cellule excel - Guide

2 réponses

Réponse 1 / 2

Kuartz Messages postés 852 Date d'inscription Statut Membre Dernière intervention 61

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' :

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 16602 Date d'inscription Statut Contributeur Dernière intervention 3 313

Bonjour

Sheets.Add
ActiveSheet.Name = Range("A1").Value

t'es sûr ?

pourquoi a tu en horreur un saut de page .?

Kuartz Messages postés 852 Date d'inscription Statut Membre Dernière intervention 61

Disons que je ne sais pas m'en servir.

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 Sub

didier41 > Kuartz Messages postés 852 Date d'inscription Statut Membre Dernière intervention

merci je vais tester

Réponse 2 / 2

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 313

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

didier41

Merci je vais tester

Discussions similaires

Excel : colorer une cellule sous condition d'une autre ?

Changer la couleur d'une cellule en fonction d'une autre cellule

document html

Votre réponse

Discussions similaires