Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
jps
bonjour tom essaie cela si ça peut t'intéresser
Sub QuadrillageEnCm() 'MP 'SetColumnWidth(10)correspond au cm, (1) correspondra au mm Cells.ColumnWidth = SetColumnWidth(1) Cells.RowHeight = Columns(1).Width End Sub
jps
"Tom_1" a écrit dans le message de news:
Existe t-il des modèles de papier millimétré logarithmique pour excel? Merci d'avance Cordialement
bonjour tom
essaie cela si ça peut t'intéresser
Sub QuadrillageEnCm() 'MP
'SetColumnWidth(10)correspond au cm, (1) correspondra au mm
Cells.ColumnWidth = SetColumnWidth(1)
Cells.RowHeight = Columns(1).Width
End Sub
jps
"Tom_1" <Tom_1@discussions.microsoft.com> a écrit dans le message de news:
232AD79D-6CF8-4F20-A9CD-3B41ECCD36F1@microsoft.com...
Existe t-il des modèles de papier millimétré logarithmique pour excel?
Merci d'avance
Cordialement
Sub QuadrillageEnCm() 'MP 'SetColumnWidth(10)correspond au cm, (1) correspondra au mm Cells.ColumnWidth = SetColumnWidth(1) Cells.RowHeight = Columns(1).Width End Sub
jps
"Tom_1" a écrit dans le message de news:
Existe t-il des modèles de papier millimétré logarithmique pour excel? Merci d'avance Cordialement
lSteph
Bonsoir, "Tom_1" qui a écrit
Existe t-il des modèles de papier millimétré logarithmique pour excel? Peut-être mais "logarithmique" je n'ai pas source la dessus. Voici si cela
peut aider qqchose d'approximatif du mm.(Affiner la précision de hauteur largeur si besoin), coller cette macro dans un module et l'exécuter depuis une feuille vide
Sub papiermilli() With Cells .RowHeight = 28 / 10 .ColumnWidth = 0.25 End With End Sub
'Cordialement.
'lSteph 'voir aussi fil récent de JPB sur question unité de mesure où Modeste donne 'une solution pour l'impression.
Bonsoir, "Tom_1"
qui
a écrit
Existe t-il des modèles de papier millimétré logarithmique pour excel?
Peut-être mais "logarithmique" je n'ai pas source la dessus. Voici si cela
peut aider qqchose d'approximatif du mm.(Affiner la précision de hauteur
largeur si besoin),
coller cette macro dans un module et l'exécuter depuis une feuille vide
Sub papiermilli()
With Cells
.RowHeight = 28 / 10
.ColumnWidth = 0.25
End With
End Sub
'Cordialement.
'lSteph
'voir aussi fil récent de JPB sur question unité de mesure où Modeste donne
'une solution pour l'impression.
Existe t-il des modèles de papier millimétré logarithmique pour excel? Peut-être mais "logarithmique" je n'ai pas source la dessus. Voici si cela
peut aider qqchose d'approximatif du mm.(Affiner la précision de hauteur largeur si besoin), coller cette macro dans un module et l'exécuter depuis une feuille vide
Sub papiermilli() With Cells .RowHeight = 28 / 10 .ColumnWidth = 0.25 End With End Sub
'Cordialement.
'lSteph 'voir aussi fil récent de JPB sur question unité de mesure où Modeste donne 'une solution pour l'impression.
Michel Pierron
B'jour JPS; Et où est la fonction SetColumnWidth qui va avec ? MP
"jps" a écrit dans le message de news: %
bonjour tom essaie cela si ça peut t'intéresser
Sub QuadrillageEnCm() 'MP 'SetColumnWidth(10)correspond au cm, (1) correspondra au mm Cells.ColumnWidth = SetColumnWidth(1) Cells.RowHeight = Columns(1).Width End Sub
jps
"Tom_1" a écrit dans le message de news:
Existe t-il des modèles de papier millimétré logarithmique pour excel? Merci d'avance Cordialement
B'jour JPS;
Et où est la fonction SetColumnWidth qui va avec ?
MP
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
%23Sp8Q6KwGHA.724@TK2MSFTNGP05.phx.gbl...
bonjour tom
essaie cela si ça peut t'intéresser
Sub QuadrillageEnCm() 'MP
'SetColumnWidth(10)correspond au cm, (1) correspondra au mm
Cells.ColumnWidth = SetColumnWidth(1)
Cells.RowHeight = Columns(1).Width
End Sub
jps
"Tom_1" <Tom_1@discussions.microsoft.com> a écrit dans le message de news:
232AD79D-6CF8-4F20-A9CD-3B41ECCD36F1@microsoft.com...
Existe t-il des modèles de papier millimétré logarithmique pour excel?
Merci d'avance
Cordialement
B'jour JPS; Et où est la fonction SetColumnWidth qui va avec ? MP
"jps" a écrit dans le message de news: %
bonjour tom essaie cela si ça peut t'intéresser
Sub QuadrillageEnCm() 'MP 'SetColumnWidth(10)correspond au cm, (1) correspondra au mm Cells.ColumnWidth = SetColumnWidth(1) Cells.RowHeight = Columns(1).Width End Sub
jps
"Tom_1" a écrit dans le message de news:
Existe t-il des modèles de papier millimétré logarithmique pour excel? Merci d'avance Cordialement
jps
b'jour michel merdum la voilàààààààààààààààààààààààààààààààà
'------------------------ Function SetColumnWidth(MM As Integer) As Double Dim lr As Single
Application.ScreenUpdating = False lr = Application.CentimetersToPoints(MM / 10) While Columns(1).Width > lr Columns(1).ColumnWidth = Columns(1).ColumnWidth - 0.1 Wend While Columns(1).Width < lr Columns(1).ColumnWidth = Columns(1).ColumnWidth + 0.1 Wend SetColumnWidth = Columns(1).ColumnWidth End Function
jps (qui ne functionne pas toujours bien) "Michel Pierron" a écrit dans le message de news:
B'jour JPS; Et où est la fonction SetColumnWidth qui va avec ? MP
"jps" a écrit dans le message de news: %
bonjour tom essaie cela si ça peut t'intéresser
Sub QuadrillageEnCm() 'MP 'SetColumnWidth(10)correspond au cm, (1) correspondra au mm Cells.ColumnWidth = SetColumnWidth(1) Cells.RowHeight = Columns(1).Width End Sub
jps
"Tom_1" a écrit dans le message de news:
Existe t-il des modèles de papier millimétré logarithmique pour excel? Merci d'avance Cordialement
b'jour michel
merdum
la voilàààààààààààààààààààààààààààààààà
'------------------------
Function SetColumnWidth(MM As Integer) As Double
Dim lr As Single
Application.ScreenUpdating = False
lr = Application.CentimetersToPoints(MM / 10)
While Columns(1).Width > lr
Columns(1).ColumnWidth = Columns(1).ColumnWidth - 0.1
Wend
While Columns(1).Width < lr
Columns(1).ColumnWidth = Columns(1).ColumnWidth + 0.1
Wend
SetColumnWidth = Columns(1).ColumnWidth
End Function
jps (qui ne functionne pas toujours bien)
"Michel Pierron" <michel.pierron@free.fr> a écrit dans le message de news:
u5FEsgQwGHA.4460@TK2MSFTNGP05.phx.gbl...
B'jour JPS;
Et où est la fonction SetColumnWidth qui va avec ?
MP
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
%23Sp8Q6KwGHA.724@TK2MSFTNGP05.phx.gbl...
bonjour tom
essaie cela si ça peut t'intéresser
Sub QuadrillageEnCm() 'MP
'SetColumnWidth(10)correspond au cm, (1) correspondra au mm
Cells.ColumnWidth = SetColumnWidth(1)
Cells.RowHeight = Columns(1).Width
End Sub
jps
"Tom_1" <Tom_1@discussions.microsoft.com> a écrit dans le message de
news: 232AD79D-6CF8-4F20-A9CD-3B41ECCD36F1@microsoft.com...
Existe t-il des modèles de papier millimétré logarithmique pour excel?
Merci d'avance
Cordialement
b'jour michel merdum la voilàààààààààààààààààààààààààààààààà
'------------------------ Function SetColumnWidth(MM As Integer) As Double Dim lr As Single
Application.ScreenUpdating = False lr = Application.CentimetersToPoints(MM / 10) While Columns(1).Width > lr Columns(1).ColumnWidth = Columns(1).ColumnWidth - 0.1 Wend While Columns(1).Width < lr Columns(1).ColumnWidth = Columns(1).ColumnWidth + 0.1 Wend SetColumnWidth = Columns(1).ColumnWidth End Function
jps (qui ne functionne pas toujours bien) "Michel Pierron" a écrit dans le message de news:
B'jour JPS; Et où est la fonction SetColumnWidth qui va avec ? MP
"jps" a écrit dans le message de news: %
bonjour tom essaie cela si ça peut t'intéresser
Sub QuadrillageEnCm() 'MP 'SetColumnWidth(10)correspond au cm, (1) correspondra au mm Cells.ColumnWidth = SetColumnWidth(1) Cells.RowHeight = Columns(1).Width End Sub
jps
"Tom_1" a écrit dans le message de news:
Existe t-il des modèles de papier millimétré logarithmique pour excel? Merci d'avance Cordialement
