Excel en centimètres

[Papy Novice]

Un immense bonjour ou bonsoir à vous tous et toutes.

Quoi que très fatigué après lourde intervention, je suis plus que heureux d'être de retour à la maison et souhaite vous faire partager ma joie avec ces deux macros ci-dessous (Excel 2002 et 2003).

Ces deux macros vont permettre d'afficher une fenêtre où vous pourrez indiquer la mesure désirée en centimètres, Excel se chargeant ensuite d'ajuster les lignes et les colonnes selon votre demande.
Créer deux boutons pour les macros ou un seul par appel de macro.

Voici pour tous ceux et celles que ceci intéressse, les macros de paramétrage d'une feuille Excel en centimètre.

(Micro hebdo n° 376 du 30 juin 2005)

Sub LignesEnCm()
Dim cm As Single
cm = Application.InputBox('hauteur de la ligne en cm.', Type:=1)
If cm Then
Selection.RowHeight = Application.CentimetersToPoints (cm)
End If
End Sub

Sub ColonnesEnCm()
Dim cm As Single, points As Single, savewidth As Single
Dim count As Single
Application.ScreenUpdating = False
cm = Application.InputBox ('Largeur de la colonne en cm.', Type:=1)
If cm = False Then Exit Sub
points = Application.CentimetersToPoints (cm)
savewidth = ActiveCell.ColumnWidth
ActiveCell.ColumnWidth = 255
If points > ActiveCell.Width Then
MsgBox 'La largeur de' & cm & 'est trop large' & Chr(10) & _
'la valeur maxi est de ' & _
Format (ActiveCell.Width / 28.3464566929134, _
'0.00'), vbOkOnly + vbExclamation, 'largeur non valable'
ActiveCell.ColumnWidth = savewidth
Exit Sub
End If
lowerwidth = 0
ipwidth = 255
ActiveCell.ColumnWidth = 127.5
curwidth = ActiveCell.ColumnWidth
count = 0
While (ActiveCell.Width <> points) And (count < 20)
If ActiveCell.Width < points Then
lowerwidth = curwidth
Selection.ColumnWidth = (curwidth + upwidth) / 2
Else
upwidth = curwidth
Selection.ColumnWidth = (curwidth + lowerwidth) / 2
End If
cirwidth = ActiveCell.ColumnWidth
count = count + 1
Wend
End Sub

Je vous dit à plus
Papy Novice

[JeanMarie]

Bonsoir Papy

Heureux de te revoir sur le forum.

Une fonction qui n'est pas utile sur Mac, depuis la dernière version les hauteurs et longueurs sont de base sur Excel.

@+Jean-Marie

[Brigitte]

Coucou Jean,

Moi qui faisais la réflexion la semaine dernière que tu nous avais relâchés, il me semblait bien...

Bon retour à la maison alors et surtout repose toi bien.

Moi c mon micro qui a rendu l'âme, heureusement il y a un pc de secours mais alors l'écran est tout petit, et j'ai un mal aux yeux...

Donc on va réparer tout ca d'ici qq jours et pi il sera comme neuf, comme toi.

Grosses bises à toi...

[Dan]

Bonsoir,

Bon retour à toi Papy novice et surtout bon rétablissement !!!

Sinon comme l'a dit Jean Marie, Excel 2004 sur MAC intégre cette fonction.

[Gérard DEZAMIS]

Salut Papy Novice

Tiens en passant, en ce moment on a un lot :

150 centimetres de Santé
50 centimètres de Courage

Tu places ça dans n'importe quelle cellule ou même au-dessus de ton écran et tu vas voir c'est un super médicament.

J'oubliais .... Une cinquantaine de fils (sur XLD) - (couleurs assorties)et le bonheur sera retrouvé. J'ai essayé ! ça marche !

Bien cordialement

@+ GD

[Monique]

Bonjour,

Bon retour, Papy Novice,
et merci

[Gérard DEZAMIS]

Salut Papy

Va voir

Spécial Convalo

http://www.excel-downloads.com/forum...-la-500eme.htm


A demain

@+ GD

Message édité par: Gérard DEZAMIS, à: 29/06/2005 23:23

[Bricofire]

Salut Papy Novice,

Bon retour sur PC ( d'ailleurs les macs, ils vont passer chez Intel aussi !)

à bientôt sur plein de fils,

Bfr

[Eric C]

Bonjour le foum
Bises aux filles & chaleureuse poignée de mai aux gars

Bonjour Papy le Novice. Bon retour et surtout bon & prompt rétablissement. Reposes toi pour revenir au meilleur de ta forme et merci pour ta démo.

Sinon bonnes vacances à toutes & à tous. Pour ma part, demain soir... le départ... Donc à dans 3 semaines. Baille bye ....

[Papy Novice]

Bonjour JeanMarie, Brigitte, Dan, Gérard, Monique, Bricofire, Eric C, le forum,

Merci à chacun(e) de vous pour vos encouragements.
Vraiment nous sentons à ceux-ci que nous formons une grande famille avide d'Excel.

Un petit peu de mes nouvelles? Suite à l'opération précédente (75cm de colon et 150cm d'intestin en moins et sept arrêts cardiaques) j'ai fait l'objet d'une septicémie qui a nécessité une nouvelle hospitalisation et des soins intensifs.

Tout ceci est déjà derrière, et j'ai un énorme plaisir de voir de nouveau vos noms sur les posts que vous échangez et que vous m'avez adressés.

Etant très faible, je ne peux (pour l'instant) rester trop longtemps devant le PC, mais je ne doute pas qu'avec vos futur posts je vais me rétablir rapidement.

Merci encore à chacun(e) de vous.

Jean

[didique]

coucou bonsoir à tous !

Ben moi je ne te connais pas encore Papy Novice !!! Etant moi même très novice ici !!! :lol:

mais compte tenu de ma formation (infirmière) j'ai envie de te souhaiter un très bon rétablissement et rien que des bonnes choses !

Avec cette bonne drogue EXCELlienne, mais attention tout abus peut se révéler dangereux, alors pas de blague hein ? !!

Bon retour tout en douceur !
Bises

bonjour
pourriez-vous m'expliquer comment entrer vos données dans excel pour calculer les lignes et colonnes en centimètres car j'avoue être désemparé ...c'est pour mon travail de fin d'études...
Grand merci!