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

 

[Sylvie]

Bonsoir PapyNovice,

bien que je ne sois pas du tout une adepte du paramétrage d'une feuille excel en centimètres ( mais c'est quoi cette bête là ??? 😱 ) je te souhaite tout simplement un prompt rétablissement.

Bonne soirée
Et qui va piano va sano

Sylvie

 

[Sylvie]

Bonsoir PapyNovice,

bien que je ne sois pas du tout une adepte du paramétrage d'une feuille excel en centimètres ( mais c'est quoi cette bête là ??? 😱 ) je te souhaite tout simplement un prompt rétablissement.

Bonne soirée
Et qui va piano va sano

Sylvie

 

[andré]

Salut Papy Novice,

Au nom de tous les autres papy, les grand-papy, arrières grand-papy et futurs petits papy, nous te souhaitons tous un bon retour parmi nous, et heureux de te revoir en pleine forme.

Mon petit conseil d'ancien :

Tant qu'on a mal qu'à un seul endroit à la fois, on est pas vieux !

Merci pour lamacro, je m'en la tester de ce pas.

Et n'oublie pas, repose-toi bien, laisse les jeunes faire les bêtises, une fois n'est pas de coutume (lol).

Ândré.

PS : j'en profite aussi pour te dire que je vais trinquer à ta santé.

 

[johnjoy78]

Re : Excel en centimètres

Au secours!

Je sais que c'est message commence à dater mais j'ai besoin de votre aide d'autant que je suis une vrai quiche en informatique...

J'ai copié le texte bizarre dans le visual basic
J'ai crée les 2 boutons "hauteur en cm" et "largeur en cm" que j'ai rattaché à la macro

Seuleument, il semble qu'il y ait une erreur de syntaxe....

Voici le message d'erreur :

- pour les lignes :

"cm = Application.InputBox('hauteur de la ligne en cm.', Type:=1)"

erreur de compilation attendu : expression

- pour les colonnes :

"cm = Application.InputBox ('Largeur de la colonne en cm.', Type:=1)"

erreur de compilation : erreur de syntaxe

Pourquoi les messages d'erreur ne sont ils jamais simples ???? Lol

Merci de votre aide !!!!!

 

[nouv]

Re : Excel en centimètres

bonsoir,

Effectivement cela ne va pas marcher, il faut que tu remplaces les ' (apostrophes) par des " (guillemets).

....
cm = Application.InputBox([COLOR="Red"]"[/COLOR]hauteur de la ligne en cm.[COLOR="Red"]"[/COLOR], Type:=1)

...
cm = Application.InputBox([COLOR="Red"]"[/COLOR]Largeur de la colonne en cm.[COLOR="Red"]"[/COLOR], Type:=1)


...
MsgBox [COLOR="Red"]"[/COLOR]La largeur de[COLOR="Red"]"[/COLOR] & cm & [COLOR="Red"]"[/COLOR]est trop large[COLOR="Red"]"[/COLOR] & Chr(10) & _
[COLOR="Red"]"[/COLOR]la valeur maxi est de [COLOR="Red"]"[/COLOR] & _
Format(ActiveCell.Width / 28.3464566929134, _
[COLOR="Red"]"[/COLOR]0.00[COLOR="Red"]"[/COLOR]), vbOKOnly + vbExclamation, [COLOR="Red"]"[/COLOR]largeur non valable[COLOR="Red"]"[/COLOR]

et ensuite ça marche

dis nous la suite
à+

><>

 

[JHA]

Re : Excel en centimètres

Bonjour Papy novice, le forum,

Si cela peut t'aider, fichier avec quadrillage 1 cm, 5mm, 2mm, 1mm

Prompt rétablissement,

JHA

 

[Boby71C]

Re : Excel en centimètres

Bonjour
Avec le code actuel, le code change seulement la ou les cellules sélectionnées.

Y aurait-il une solution pour que toute la feuille se mette au format automatiquement sans avoir à tout sélectionner avant le lancement du code.

Merci
@+