Discussion :

[doudidoudou]

Bonjour a tous!

Ceci est une doublette car je ne pense pas l'avoir posté sur le bon secteur du forum!

Après avoir trouver sur ce forum une solution (la seul du web après 5 h de recherche intensive) à mes problèmes de non débordement de mes textes sur les cellules adjacentes non vide, je viens à vous pour solutionner mon problème.

Ce que je cherche n'est ni plus ni moins que la solution proposé par CSS (http://www.developpez.net/forums/d59...texte-cellule/).

Si quelqu'un a une idée, cela m'éviterai de jeter a la poubelle plus de 40 h de travail!



Je suis preneur de toutes les solutions, même les moins académiques!

RÉSUMER: Comment faire apparaitre en A1 un texte long du type "AAAAAAAAAAAAAAAAAAAAAA" si B1 n'est pas vide?
Sans modifier la taille de la cellule (24 pixels), sans renvois à la ligne, sans fusionner...

Merci d'avance à tous les neurones sacrifiés au solutionnement de mon problème! Vous ne serez pas morts en vain!

[doudidoudou]

Ci joint un exemple simplifié de mon problème!

[78chris]

Bonjour

C'est les lois de la physique : ça rentre ou pas !

Si tu ne veux ni élargir le contenant, ni renvoyer à la ligne, la seule solution c'est de diminuer la taille du contenu : tu as la commande Ajuster pour ce faire mais ce ne sera plus lisible.

(Ton lien est mort)

[DeTraX]

Bonjour,

Sans modifier la taille de la cellule (24 pixels), sans renvois à la ligne, sans fusionner...

Reste l'option de réduire la taille du texte dans la cellulle... Le risque, c'est d'avoir du texte illisible si on a une chaîne de 250 caractères, mais pour ton exemple, ça marche.
Une autre limite de la fonction, c'est que l'autofit ne prend pas uniquement la largeur de la cellule à traiter mais l'ensemble des valeurs de la colonne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
Option Explicit
'
Sub test()
    FontSizeAjust (Sheets("Feuil1").Range("A1"))
End Sub
'
Public Sub FontSizeAjust(myCell As Range)
    Dim fontSize    As Integer
    Dim cellWidth   As Integer
    Dim newWidth    As Integer
    Dim mySheet     As Worksheet
    '
    '---------------------------------------------------
    ' Désactivation de l'affichage pendant le traitement
    '---------------------------------------------------
    Application.ScreenUpdating = False
    '
    '---------------------------------------------------
    ' Sauvegarde des propriétés de la cellule à traiter
    '---------------------------------------------------
    With myCell
        Set mySheet = .Parent
        fontSize = .Font.Size
        cellWidth = .ColumnWidth
    End With
    '
    '---------------------------------------------------
    ' Boucle d'ajustement
    ' Autofit de la colonne contenant la cellule et
    ' comparaison de la nouvelle largeur avec la largeur
    ' initiale.
    ' Si la largeur est <= à la largeur initiale de la
    ' cellule, sortie de boucle.
    ' Sinon, réduction de la taille de la police de 1
    ' Sortie forcée si on arrive à une taille de 1
    '---------------------------------------------------
    Do While fontSize > 1
        mySheet.Columns(myCell.Column).AutoFit
        newWidth = myCell.ColumnWidth
        If newWidth <= cellWidth Then Exit Do
        fontSize = fontSize - 1
        myCell.Font.Size = fontSize
    Loop
    '
    '---------------------------------------------------
    ' On remet la colonne à sa largeur initiale et
    ' on réactive l'affichage
    '---------------------------------------------------
    myCell.ColumnWidth = cellWidth
    Application.ScreenUpdating = True
End Sub

[78chris]

Bonjour

DeTraX : le format Ajusté fait cela automatiquement. Je n'ai pas compris l'intérêt de la macro ou bien y a t-il un truc qui m'échappe ?

[DeTraX]

Effectivement, mais je n'avais jamais testé

Un coup pour rien donc...

[doudidoudou]

Merci pour vos réponses!

Donc ajuster le contenu, j'y ai pensé... cela fonctionne pour les cellules avec peu de texte ( moins de 5 caractères pour mes 24 pixels de largeur) mais pour les autres, disons 30 caractères, cela devient illisible.

Puisque certain sont versés dans les macros ( que je ne maitrise pas du tout...), je pensais à une solution du type:
j’appuie sur un bouton quelconque, la macro scanne ma feuille et supprime le contenu de toutes les cellules ="".

Ainsi, si ma cellule est vide, mon texte devrait passer par dessus est être lisible.

Est-ce possible?

[keygen08]

Bonjour
le nom de la feuille et la plage sont à adapté
feuil1-nom de la feuille
range a1:a8 - nom de la plage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub devellopez()
Dim cell As Range
For Each cell In Sheets("Feuil1").Range("a1:g8")
If cell = "" Then cell.ClearContents
Next cell
End Sub

Sur la feuille, allez dans l'onglet de menu devellopeur, inserer un bouton active X, clic droit sur le bouton,, visualiser le code et copier ce code dans la fenetre VB ainsi ouverte.
Peut aussi se lancer sans bouton par le menu devellopeur, Macro, executer une macro, Devellopez.