Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel faire semblant de fusionner

faire semblant de fusionner

18 réponses
Avatar
lSteph
Voici qui me donne une id=E9e...pourrait prendre pour leTexte la valeur
de la premi=E8re cellule et ...

Sub ZoneTexte()
Dim Ztext As Shape
Dim L As Long, T As Long, W As Long, H As Long, _
i As Long, j As Long, leTexte As String
leTexte =3D "FRANCAIS"
With Selection
T =3D .Cells(1, 1).Top
L =3D .Cells(1, 1).Left
For i =3D 1 To .Rows.Count
For j =3D 1 To .Columns.Count
If j =3D 1 Then H =3D H + Cells(i, j).Height
If i =3D 1 Then W =3D W + Cells(i, j).Width
Next j
Next i
End With
Set Ztext =3D ActiveSheet.Shapes. _
AddTextbox(msoTextOrientationHorizontal, L, T, W, H)

With Ztext.TextFrame
.Characters.Text =3D leTexte
.HorizontalAlignment =3D xlCenter
.VerticalAlignment =3D xlCenter
.ReadingOrder =3D xlContext
.AutoSize =3D False
End With
End Sub

'lSteph
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
lSteph
;o))
On peut deviner, il en fallut peu pour que le vieux père se picasse!

On 2 jan, 17:23, Trirème wrote:
Modeste a écrit :> voici ce qu'un sang chaud pensa ...

'tain, on se demande comment l'année va finir
:-P

Amicalement,
Trirème


Avatar
Trirème
;o))
On peut deviner, il en fallut peu pour que le vieux père se picasse!


%-|

Là, on est à deux doigts que Maitre Joël n'intervienne


On 2 jan, 17:23, Trirème wrote:
Modeste a écrit :> voici ce qu'un sang chaud pensa ...

'tain, on se demande comment l'année va finir
:-P

Amicalement,
Trirème





Avatar
LSteph
;o))

...encore une histoire de père c'est Q té!

;o))
On peut deviner, il en fallut peu pour que le vieux père se picasse!


%-|

Là, on est à deux doigts que Maitre Joël n'intervienne


On 2 jan, 17:23, Trirème wrote:
Modeste a écrit :> voici ce qu'un sang chaud pensa ...

'tain, on se demande comment l'année va finir
:-P

Amicalement,
Trirème







Avatar
LSteph
Merci à toi aussi.

....... à vous lire, je vois que vous avez déjà évacué les bulles du
(des ) réveillon(s) !


C'est peut-être aussi qu'il y en encore de coincées.
;-)

--
lSteph
(...j'aime bien les bulles, c'est le reste qui est un peu lourd!)

Bonjour,
....... à vous lire, je vois que vous avez déjà évacué les bulles du
(des ) réveillon(s) !
Quelques aspirines, un peu de repos et je tente de comprendre les macros
( pour les jeux de mots, j'ai, je crois, à peu près suivi )

Meilleurs voeux à vous, vos proches, ainsi qu'aux généreux contributeurs
de ce forum qui nous permettent d'avancer dans l'utiisation d'Excel,
sans oublier les questionneurs
Bref, à toutes et tous
Pounet95

"lSteph" a écrit dans le message de
news:
Voici qui me donne une idée...pourrait prendre pour leTexte la valeur
de la première cellule et ...

Sub ZoneTexte()
Dim Ztext As Shape
Dim L As Long, T As Long, W As Long, H As Long, _
i As Long, j As Long, leTexte As String
leTexte = "FRANCAIS"
With Selection
T = .Cells(1, 1).Top
L = .Cells(1, 1).Left
For i = 1 To .Rows.Count
For j = 1 To .Columns.Count
If j = 1 Then H = H + Cells(i, j).Height
If i = 1 Then W = W + Cells(i, j).Width
Next j
Next i
End With
Set Ztext = ActiveSheet.Shapes. _
AddTextbox(msoTextOrientationHorizontal, L, T, W, H)

With Ztext.TextFrame
.Characters.Text = leTexte
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.AutoSize = False
End With
End Sub

'lSteph


Avatar
Emma
Bonjour les musclés du forum!

Je viens apporter toute ma naiveté sur ce sujet... ET j'en profite pour vous
dire que j'ai perdu le fil de la discussion juste en dessous ;-)...

Justement, ce que je cherche à faire en dessous avec ma zone de texte, c'est
de contourner le problème des fusions...

Alors, je cherche à poser une zone de texte (car pour la plupart, nous
cherchons en fusionnant à avoir un truc lisible, imprimable...) et que sous
la zone soit écrit exactement ce que l'on veut dans les cellules...

Seulement, le projet n'a pas encore aboutit car je suis un peu coincée par
mon incompétence (notoire maintenant).

De plus, je suis très gênée par le message de MSG Banni qui semble dire que
je tire sur la ficelle (euh... sans ambiguïté ou jeu de mot, je commence à
vous connaître...). Et je n'ai toujours pas réussi à mettre en place la zone
de texte pour laquelle vous avez tant travaillé....

Bon, je me sens plus légère maintenant...

A plus
Avatar
Emma
Je ne comprends pas, j'ai réessayé ce matin et impeccable grace au post de
Stef.... alors, je suis confuse...

Je m'engage néanmoins dans la suite du projet: Faire écrire à Excel dans la
zone de texte le contenu des cellules se cachant dessous:

Facile d'après vous??? Car finalement, pour beaucoup d'utilisateurs, ça
règlerait le problème de la fusion, non? Pour moi, en tout cas, oui!

à plus

Emma
Avatar
LSteph
Bonjour Emma,

Je réponds à tes deux messages consécutifs (maintenant j'ai + temps).

dire que j'ai perdu le fil de la discussion juste en dessous ;-)...
Sur google recherche dans groupes tu retrouve tout.


Justement, ce que je cherche à faire en dessous avec ma zone de texte, c'est
de contourner le problème des fusions...
Alors, je cherche à poser une zone de texte ... et que sous
la zone soit écrit exactement ce que l'on veut dans les cellules...


Jusqu'ici pas de trop de souci c'est ce dont nous avons traité...
Je m'engage ...Faire écrire à Excel dans la
zone de texte le contenu des cellules


Suffit de remplacer ta variable LeTexte par
Selection.Cells(1)
ou Range("machin").Cells(1)
ou encore [a2:a6].cells(1) voire dans ce dernier cas [a2]

De plus, je suis très gênée par le message de MSG Banni
pas d'inquiétude , c'est un petit jeu entre nous sur ce forum.

Comme on ne peut pas faire que se congratuler, (sinon il n'y en aurait
que pour son éminence, en plus) alors de temps en temps on se lance un
petit scud. Celui là m'était adressé... et au regard de ceux que je lui
envoie c'est de bonne guerre.

Pour le remplacement des fusions en conservant apparence et centrage
vertical,
le souci que j'en ai n'est pas que de poser un objet de camouflage
mais c'est une des pistes qui pourraient servir à une solution, c'est
pourquoi (j'ai lancé un peu trop vite ce sujet suite au tien) car le
plus gros souci (qui ne concerne guère un emploi du temps mais
d'autres sortes de tableaux servant à gérer des données) pouvoir trier,
faire des tableaux croisés, utiliser les titres de colonnes (uniques)
comme repère dans des formules ...etc.. A cet égard si des éléments
sont absents dans certaines cellules, sous prétexte qu'ils sont écrits
dans une première d'entre elles, il en résultera que ces formules,
fonctionnalités ou tris ne fonctionneront pas correctement ou pas du tout.
C'est pourquoi j'ajoutais "oublions ma suggestion " car je ne vois
pas trop comment ensuite si on trie par exemple on va se faire
promener tous ces petits cadres texte.

Il m'est arrivé souvent de proposer (et n'ai certes rien inventé mais
c'est pour l'instant le meilleur contournement que j'ai pu trouver) de
mettre la première cellule en noir et les autres de la même couleur
que le fond. Il suffit de vérifier systématiquement la valeur de la
cellule supérieure par une formule dans une Mise en forme
Conditionnelle (MEFC)
hélas pour les amateurs de cette disposition, on se passera du
centrage vertical.

L'idéal (à ce propos) serait donc qu'Excel lorsqu'on fusionne ne fasse
apparaitre que la première cellule mais conserve la valeur dans les autres.

Et c'est ainsi qu'ayant résolu un souci , en surgit un autre qui tient
aux fusions horizontales,on ne peut leur appliquer ce que l'on vient de
dire sinon on perd l'unicité des titres. Indépendamment du fait qu'ils
soient ou non fusionnés puisqu'on peut très bien centrer sur plusieurs
colonnes sans fusion, c'est ainsi que sur le même registre, voilà une
autre guéguerre. Les titres hiérarchisés, eux aussi fichent la pagaille.
Exemple pour faire un tableau
Etablissement Dépenses Recettes 2007 2008 Ecart

Certains seront tentés de centrer un intitulé avec les deux autres en
dessous dans un sens ou dans l'autre
Dépenses Ecart Recettes Ecart
Etablissement 2007 2008 2007 2008

On ne peut déjà plus faire de TCD ou autre ni exploiter simplement les
titres.. puisquen ligne 1 on a un titre renseigné une cellul vide..deux
fois Ecart etc.. en seconde ligne problème analogue.

Il faudrait en fait avoir tout distinct sur une seule ligne
Etb, Dépenses2007, Dépenses2008, Ecart D, Recettes....Ecart R

Finalement, la solution généralement utilisée est d'avoir un bloc titre
(ou carrément un second tableau) qui sert pour la présentation et celui
qui sert pour travailler.

Cordialement.

--
lSteph
"Pourfendeur des fusions"



Je ne comprends pas, j'ai réessayé ce matin et impeccable grace au post de
Stef.... alors, je suis confuse...

Je m'engage néanmoins dans la suite du projet: Faire écrire à Excel dans la
zone de texte le contenu des cellules se cachant dessous:

Facile d'après vous??? Car finalement, pour beaucoup d'utilisateurs, ça
règlerait le problème de la fusion, non? Pour moi, en tout cas, oui!

à plus

Emma




Avatar
Philippe.R
Bonsoir,
Finalement, la solution généralement utilisée est d'avoir un bloc titre
(ou carrément un second tableau) qui sert pour la présentation et celui
qui sert pour travailler.


J'adhère, AMHA, c'est bien souvent le plus efficace ; des données bien
rangées dans un tableau sans chichi et une série de tableaux exploitant la
base tout en fournissant des présentations claires et agréables.
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"LSteph" a écrit dans le message de
news:
Bonjour Emma,

Je réponds à tes deux messages consécutifs (maintenant j'ai + temps).

[...]

lSteph
"Pourfendeur des fusions"



Je ne comprends pas, j'ai réessayé ce matin et impeccable grace au post
de
Stef.... alors, je suis confuse...

Je m'engage néanmoins dans la suite du projet: Faire écrire à Excel dans
la
zone de texte le contenu des cellules se cachant dessous:

Facile d'après vous??? Car finalement, pour beaucoup d'utilisateurs, ça
règlerait le problème de la fusion, non? Pour moi, en tout cas, oui!

à plus

Emma





1 2