Mise en forme

Le
nadeger
Bonjour,

J'ai sur une feuille Excel, plusieurs pages où je souhaite répéter le titre
de mon document (qui est le même pour toutes les pages) et qui est positionné
en C3 par la fonction "Ã". Mais mon problème se trouve au niveau de la mise
en forme de mon titre dont une partie seulement est soulignée et dont le
soulignement alors n'est alors pas pris en compte "Retour pour le 30
octobre" (pour le 30 octobre est souligné).

Je ne sais pas si une solution existe

Merci

--
Nadège
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jpmonnier
Le #17231131
Bonjour,
Si ton titre est en feuille1 C3, copie cette proc dans VBA

Sub CopieTitre()
nb = Worksheets.Count 'Worksheets.Count compte le nombre de feuilles
For x = 2 To nb
Worksheets(1).[c3].Copy 'copie la valeur de la cellule feuil1!C3
Worksheets(x).Paste Destination:=Worksheets(x).[c3] 'Colle dans chaque
feuille du classeur en C3, la valeur de la feuil1!C3

--
Cordialement

Next
End Sub

et les copy dans chaque feuille de ton classeur
"nadeger" news:
Bonjour,

J'ai sur une feuille Excel, plusieurs pages où je souhaite répéter le
titre
de mon document (qui est le même pour toutes les pages) et qui est
positionné
en C3 par la fonction "Ã". Mais mon problème se trouve au niveau de la
mise
en forme de mon titre dont une partie seulement est soulignée et dont le
soulignement alors n'est alors pas pris en compte "Retour pour le 30
octobre" (pour le 30 octobre est souligné).

Je ne sais pas si une solution existe...

Merci

--
Nadège


nadeger
Le #17231671
En faite, mon problème vient du fait que la fonction "Ã" ne me prend pas
correctement la mise en forme de mon titre qui a pour partie du soulignement.
--
Nadège


"Jpmonnier" a écrit :

Bonjour,
Si ton titre est en feuille1 C3, copie cette proc dans VBA

Sub CopieTitre()
nb = Worksheets.Count 'Worksheets.Count compte le nombre de feuilles
For x = 2 To nb
Worksheets(1).[c3].Copy 'copie la valeur de la cellule feuil1!C3
Worksheets(x).Paste Destination:=Worksheets(x).[c3] 'Colle dans chaque
feuille du classeur en C3, la valeur de la feuil1!C3

--
Cordialement

Next
End Sub

et les copy dans chaque feuille de ton classeur
"nadeger" news:
> Bonjour,
>
> J'ai sur une feuille Excel, plusieurs pages où je souhaite répéter le
> titre
> de mon document (qui est le même pour toutes les pages) et qui est
> positionné
> en C3 par la fonction "Ã". Mais mon problème se trouve au niveau de la
> mise
> en forme de mon titre dont une partie seulement est soulignée et dont le
> soulignement alors n'est alors pas pris en compte "Retour pour le 30
> octobre" (pour le 30 octobre est souligné).
>
> Je ne sais pas si une solution existe...
>
> Merci
>
> --
> Nadège




Jpmonnier
Le #17232851
Oui, j'ai bien compris
Et c'est pour cela qu'en faisant un copier coller le pb est résolu

--
Cordialement

"nadeger" news:
En faite, mon problème vient du fait que la fonction "Ã" ne me prend pas
correctement la mise en forme de mon titre qui a pour partie du
soulignement.
--
Nadège


"Jpmonnier" a écrit :

Bonjour,
Si ton titre est en feuille1 C3, copie cette proc dans VBA

Sub CopieTitre()
nb = Worksheets.Count 'Worksheets.Count compte le nombre de feuilles
For x = 2 To nb
Worksheets(1).[c3].Copy 'copie la valeur de la cellule feuil1!C3
Worksheets(x).Paste Destination:=Worksheets(x).[c3] 'Colle dans chaque
feuille du classeur en C3, la valeur de la feuil1!C3

--
Cordialement

Next
End Sub

et les copy dans chaque feuille de ton classeur
"nadeger" news:
> Bonjour,
>
> J'ai sur une feuille Excel, plusieurs pages où je souhaite répéter le
> titre
> de mon document (qui est le même pour toutes les pages) et qui est
> positionné
> en C3 par la fonction "Ã". Mais mon problème se trouve au niveau de
> la
> mise
> en forme de mon titre dont une partie seulement est soulignée et dont
> le
> soulignement alors n'est alors pas pris en compte "Retour pour le 30
> octobre" (pour le 30 octobre est souligné).
>
> Je ne sais pas si une solution existe...
>
> Merci
>
> --
> Nadège






Publicité
Poster une réponse
Anonyme