Hauter Largeur

Bonjour,

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

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

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

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

Merci beaucoup

Temjeh