Hauter Largeur

[Temjeh]

Bonjour et bonne journée à tous

Depuis hier j'essais de comprendre le 1/72po pour les points de largeur de colonne

Y a t il une macro ex:

Je s'électionne 25 colonnes et 20 lignes
Une macro qui me rapetisse les cells à 15cm(L) x 9,5cm(H) en tout

Donc mes 25 colonnes et 20 lignes ne font plus que 15 cm x 9,5 cm au total

Merci

Temjeh

 

[Dan]

Bonjour,

C'est pas le même pb qu'ici --> Lien supprimé ??

 

[Temjeh]

Oui ca ressemble un peu j'ai examiné ce post qui voulais mettre Hauteur et largeur avec coté identique
J,ai même trouvé ceci (de Ti?)mais il y a un bug si je sélectionne plusieurs cells:

Sub CelluleEnCentimetres()
Dim cm As Integer
cm = Application.InputBox('Hauteur de la cellule en cm.', Type:=1)
If cm Then
'Bug ici
Selection.RowHeight = Application.CentimetersToPoints(cm)
End If
cm = Application.InputBox('Largeur de la cellule en cm.', Type:=1)
If cm Then
Selection.ColumnWidth = cm * 4.663
End If
End Sub

A++

Temjeh

J'y suis presque

 

[Bricofire]

Bonjour le fil,

Chez moi (Ex2000), ce code fonctionne très bien sauf que si tu rentres 2cm & 2 cm, tu n'as pas de carrés, mais c'est très lié au fil indiqué par dan. Par contre le code que tu as mis est OK avec une cellulle, un groupe ou une selection multiple....? Voir le fichier De Ti indiqué par -David sur l'autre fil ?

à ce soir...
Bfr

 

[Temjeh]

Très bien j'examine le tout et revient si problème

Merci beaucoup

Temjeh