Discussion :

[a.faurie]

Bonjour,
Je cherche un moyen simple d'afficher la dimension hauteur et largeur d'une plage de cellule B3 : D18 en cm.
merci d'avance.

[EngueEngue]

Tu cliques sur l'enregistreur de macros. Tu fais tes manips et tu regardes le code

[Marc-L]

Bonjour,

plus précisément, voir les propriétés Range.Height et Range.Width ainsi que la méthode Application.CentimetersToPoints …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[a.faurie]

bonjour,
déjà merci pour vos réponses.
Ca ne correspond pas à ma demande (c'est de ma faute je me suis mal exprimé), je cherche à écrire la valeur en cm dans une cellule et non pas juste à la connaitre.

[Marc-L]

Et pourtant tout le nécessaire est dans ma réponse (avec les informations du problème à disposition) …

Donc je rejoins EngueEngue, voir avec l'Enregistreur de macros …

[a.faurie]

Bonjour,
Effectivement une grande partie est là, mais il reste un problème.
La largeur des colonnes qui est, semble-t-il, indiquée en "caractère".
Je ne suis pas arrivé à trouver un lien linéaire avec des cm, mais je suis arrivé à bidouiller un truc qui marche pas trop mal.
Pour info le but était de créer une étiquette qui s'adapte facilement pour une tranche de classeur...
Si quelqu'un voit des erreurs ou à des suggestions, je suis preneur de toutes remarques :

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Sub tailleCentimetres()
'déclaration des variabe
Dim cm As Currency
Dim caractere As Currency
Dim savewidth As Currency
 
'arrêt de la mise à jour de l'ecran pour accélérer le traitement
Application.ScreenUpdating = False
 
'deande de la largeur en cm
cm = Application.InputBox("entrer la largeur de la tranche en cm", "largeur de la colonne souhaitée", Type:=1)
 
'sélection de la cellule C11
Range("C11").Select
 
' si la veleur n'est pas un nombre on arrêt
If cm = False Then Exit Sub
 
'on sauvegarde la largeur actuel de la colonne
savewidth = ActiveCell.ColumnWidth
 
'si la valeur en cm est superieur à 20cm
If cm > 20 Then
MsgBox "la largeur de" & cm & "est trop large" & Chr(10) & "la valeur maxi est de 20cm", vbOKOnly + vbExclamation, "largeur non valable"
 
' et on remet la largeur d'origine
ActiveCell.ColumnWidth = savewidth
Exit Sub
 
' dimmension marge
End If
If cm <= 3 Then
    Columns("D:D").ColumnWidth = 0.25
    Columns("B:B").ColumnWidth = 0.25
ElseIf cm <= 4 Then
    Columns("D:D").ColumnWidth = 1
    Columns("B:B").ColumnWidth = 1
Else
    Columns("D:D").ColumnWidth = 2
    Columns("B:B").ColumnWidth = 2
End If
 
'dimmension colonne C
If cm <= 3 Then
caractere = 5.6352 * (cm - 0.2) - 0.6785 - 0.5
 
ElseIf cm <= 4 Then
caractere = 5.6352 * (cm - 0.2) - 0.6785 - 2
 
Else
caractere = 5.6352 * (cm - 0.2) - 0.6785 - 4
 
End If
    Columns("C:C").ColumnWidth = caractere
    Rows("3:3").RowHeight = 12.75
    Rows("4:4").RowHeight = Application.CentimetersToPoints(cm * 0.3279620853)
    Rows("5:5").RowHeight = 12.75
    Rows("6:6").RowHeight = 25.5
    Rows("7:7").EntireRow.AutoFit
    Rows("8:8").RowHeight = 12.75
    Rows("9:9").EntireRow.AutoFit
    Rows("10:10").RowHeight = 12.75
    Rows("12:12").RowHeight = 12.75
    Rows("13:13").RowHeight = 25.5
    Rows("14:14").RowHeight = 25.5
    Rows("15:15").RowHeight = 12.75
 
Application.Run "ligneEnCentimetres"
End Sub