Discussion :

[pickatshou]

Salut

pour faire simple
voila

dans la colonne A y'a deux cellules.
la première A1= "iiiiiiiiiiii" ==> Méthode Len renvoi : 12
la deuxième A2= "mmmmmm" ==> Méthode Len renvoi : 6
Automatiquement vous me dite que A1 > A2
mais mois je vous dit que vue d’œil A2 > A1 , pare ce que A1 fait environ 1.2 cm et A2 fait plus que ça environ 2.1 cm

ce que je vous dire:
je cherche une méthode en préférence qu'elle soit trop simple qui renvoi la taille d’après leur taille en cm ou bien pixel ou bien point
ce que vous voulez mais faite en sort que le résultat soit A2 > A1

UN Grand MERCI d'avance

[SfJ5Rpw8]

Bonjour,

Voir aide en ligne len renvoi le nombre de caractères d'une chaîne et pas sa largeur ...


pour ta cellule comment en définit tu sa largeur ? est elle égale à la largeur occupée par tes caractères ?

[parmi]

Une façon de faire serait de mettre un Textbox sur ta feuille avec la propriété Autosize à True.
Et utiliser une macro comme celle-ci

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
    Dim I As Long, nbLignes As Long
    Dim Ligne As Long, Largeur As Long
 
    ActiveSheet.TextBox1.AutoSize = True
 
    nbLignes = Cells(Rows.Count, "A").End(xlUp).Row
    For I = 1 To nbLignes
        ActiveSheet.TextBox1 = Range("A" & I)
        If Largeur < ActiveSheet.TextBox1.Width Then
            Ligne = I
            Largeur = ActiveSheet.TextBox1.Width
        End If
    Next
 
    MsgBox "Le texte le plus long est " & Range("A" & Ligne) & " à la ligne " & Ligne & " de largeur " & Largeur

[PMO2017]

Bonjour,

Une piste (au plus simple) avec le code suivant à copier dans un module Standard

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
Sub aa()
Dim S As Worksheet
Dim R As Range
Dim R2 As Range
Dim C As Range
Dim T()
Dim cpt&
'--- Copie la plage des données en colonne A ---
Set R = Range("a1:a" & [a1].End(xlDown).Row & "")
R.Copy
'--- Préparation de la plage d'inscription des résultats ---
Set R2 = R.Offset(0, 1)
ReDim T(1 To R2.Rows.Count, 1 To 1)
'--- Colle (transposé) dans une nouvelle feuille ---
Set S = Sheets.Add
S.[a1].PasteSpecial Paste:=xlPasteAll, Transpose:=True
'--- La plage des données collées et AutoFit de ses colonnes ---
Set R = S.[a1].CurrentRegion
R.Columns.AutoFit
 
'--- Explore chaque cellule et monte la largeur (en points) dans un tableau ---
For Each C In R
  cpt& = cpt& + 1
 
  'Range.Width , propriété (extrait de l'aide)
  'renvoie une valeur de type Variant qui représente
  'la largeur de la plage, estimée en points.
  T(cpt&, 1) = C.Width
 
Next C
'--- Supprime la nouvelle feuille ---
Application.DisplayAlerts = False
S.Delete
Application.DisplayAlerts = True
'--- Inscrit les résultats en colonne B ---
R2 = T
End Sub

[pickatshou]

Merci Infiniment Mr PARMI

Un Expert Confirmé c'est pas pour rien.
que ta 6ème étoile brille très prochainement, et illuminera ta vis de bonheur et de prospérité.

Pour Mr bbil je crois que tu peut nous laisser un peu du temps avant de nous faire catapulter dans le NET,
mais tu a droit un petit merci comme même.

Un Grand MERCI pour developpez.net

[patricktoulon]

Bonjour même si c'est résolu
je fait souvent de la conversion excel to html et je me sert d'une simple opération
regarde ce tableau a droite c'est les points quasi la taille des font Excel a gauche l'équivalent en px
trouve l'operateur et multiplie le par le nombre de caractères
Pièce jointe 182805
Au plaisir

maintenant c'est vrai que autofit est une bonne solution