Bonjour,
Récemment, j'ai vu qq part (mais où ?) que l'on pouvait créer des
colonnes en cm dans excel moyennant une macro... impossible de me
souvenir où j'ai vu cela !
Bref, je souhaite créer un masque pour remplir un document douanier.
et il me semble plus simple de mettre une colonne à 8 cm, puis 11.7,
puis à 14.2 etc...
Connaissez vous ce système et pourriez vous me donner le lien pour
charger ce petit programme ??
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
guytos
Bonjour,
Créer un bouton sur la feuille et lui affecter la procédure suivante :
Sub ColumnWidthInCentimeters()
Dim cm As Integer, points As Integer, savewidth As Integer Dim lowerwidth As Integer, upwidth As Integer, curwidth As Integer Dim Count As Integer
Application.ScreenUpdating = False cm = Application.InputBox("Enter la largeur de colonne en Centimetres", _ "Column Width (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 "Largeur de " & cm & " est trop grande." & Chr(10) & _ "La valeur maximum est " & _ Format(ActiveCell.Width / 28.3464566929134, _ "0.00"), vbOKOnly + vbExclamation, "Width Error" ActiveCell.ColumnWidth = savewidth Exit Sub End If lowerwidth = 0 upwidth = 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 curwidth = ActiveCell.ColumnWidth Count = Count + 1 Wend End Sub
A+
Morganitos
"margo51" a écrit dans le message de news: %
Bonjour, Récemment, j'ai vu qq part (mais où ?) que l'on pouvait créer des colonnes en cm dans excel moyennant une macro... impossible de me souvenir où j'ai vu cela !
Bref, je souhaite créer un masque pour remplir un document douanier. et il me semble plus simple de mettre une colonne à 8 cm, puis 11.7, puis à 14.2 etc...
Connaissez vous ce système et pourriez vous me donner le lien pour charger ce petit programme ??
Merci d'avance Margo
Bonjour,
Créer un bouton sur la feuille et lui affecter la procédure suivante :
Sub ColumnWidthInCentimeters()
Dim cm As Integer, points As Integer, savewidth As Integer
Dim lowerwidth As Integer, upwidth As Integer, curwidth As Integer
Dim Count As Integer
Application.ScreenUpdating = False
cm = Application.InputBox("Enter la largeur de colonne en
Centimetres", _
"Column Width (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 "Largeur de " & cm & " est trop grande." & Chr(10) & _
"La valeur maximum est " & _
Format(ActiveCell.Width / 28.3464566929134, _
"0.00"), vbOKOnly + vbExclamation, "Width Error"
ActiveCell.ColumnWidth = savewidth
Exit Sub
End If
lowerwidth = 0
upwidth = 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
curwidth = ActiveCell.ColumnWidth
Count = Count + 1
Wend
End Sub
A+
Morganitos
"margo51" <utilisateur@wanadoo.fr> a écrit dans le message de news:
%23g32BpPVGHA.1304@tk2msftngp13.phx.gbl...
Bonjour,
Récemment, j'ai vu qq part (mais où ?) que l'on pouvait créer des colonnes
en cm dans excel moyennant une macro... impossible de me souvenir où j'ai
vu cela !
Bref, je souhaite créer un masque pour remplir un document douanier.
et il me semble plus simple de mettre une colonne à 8 cm, puis 11.7, puis
à 14.2 etc...
Connaissez vous ce système et pourriez vous me donner le lien pour charger
ce petit programme ??
Créer un bouton sur la feuille et lui affecter la procédure suivante :
Sub ColumnWidthInCentimeters()
Dim cm As Integer, points As Integer, savewidth As Integer Dim lowerwidth As Integer, upwidth As Integer, curwidth As Integer Dim Count As Integer
Application.ScreenUpdating = False cm = Application.InputBox("Enter la largeur de colonne en Centimetres", _ "Column Width (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 "Largeur de " & cm & " est trop grande." & Chr(10) & _ "La valeur maximum est " & _ Format(ActiveCell.Width / 28.3464566929134, _ "0.00"), vbOKOnly + vbExclamation, "Width Error" ActiveCell.ColumnWidth = savewidth Exit Sub End If lowerwidth = 0 upwidth = 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 curwidth = ActiveCell.ColumnWidth Count = Count + 1 Wend End Sub
A+
Morganitos
"margo51" a écrit dans le message de news: %
Bonjour, Récemment, j'ai vu qq part (mais où ?) que l'on pouvait créer des colonnes en cm dans excel moyennant une macro... impossible de me souvenir où j'ai vu cela !
Bref, je souhaite créer un masque pour remplir un document douanier. et il me semble plus simple de mettre une colonne à 8 cm, puis 11.7, puis à 14.2 etc...
Connaissez vous ce système et pourriez vous me donner le lien pour charger ce petit programme ??
Bonjour, Récemment, j'ai vu qq part (mais où ?) que l'on pouvait créer des colonnes en cm dans excel moyennant une macro... impossible de me souvenir où j'ai vu cela !
Bref, je souhaite créer un masque pour remplir un document douanier. et il me semble plus simple de mettre une colonne à 8 cm, puis 11.7, puis à 14.2 etc...
Connaissez vous ce système et pourriez vous me donner le lien pour charger ce petit programme ??
"margo51" <utilisateur@wanadoo.fr> a écrit dans le message de news:
%23g32BpPVGHA.1304@tk2msftngp13.phx.gbl...
Bonjour,
Récemment, j'ai vu qq part (mais où ?) que l'on pouvait créer des colonnes
en cm dans excel moyennant une macro... impossible de me souvenir où j'ai
vu cela !
Bref, je souhaite créer un masque pour remplir un document douanier.
et il me semble plus simple de mettre une colonne à 8 cm, puis 11.7, puis
à 14.2 etc...
Connaissez vous ce système et pourriez vous me donner le lien pour charger
ce petit programme ??
Bonjour, Récemment, j'ai vu qq part (mais où ?) que l'on pouvait créer des colonnes en cm dans excel moyennant une macro... impossible de me souvenir où j'ai vu cela !
Bref, je souhaite créer un masque pour remplir un document douanier. et il me semble plus simple de mettre une colonne à 8 cm, puis 11.7, puis à 14.2 etc...
Connaissez vous ce système et pourriez vous me donner le lien pour charger ce petit programme ??
Bonjour, Récemment, j'ai vu qq part (mais où ?) que l'on pouvait créer des colonnes en cm dans excel moyennant une macro... impossible de me souvenir où j'ai vu cela !
Bref, je souhaite créer un masque pour remplir un document douanier. et il me semble plus simple de mettre une colonne à 8 cm, puis 11.7, puis à 14.2 etc...
Connaissez vous ce système et pourriez vous me donner le lien pour charger ce petit programme ??
"margo51" <utilisateur@wanadoo.fr> a écrit dans le message de news:
%23g32BpPVGHA.1304@tk2msftngp13.phx.gbl...
Bonjour,
Récemment, j'ai vu qq part (mais où ?) que l'on pouvait créer des
colonnes en cm dans excel moyennant une macro... impossible de me
souvenir où j'ai vu cela !
Bref, je souhaite créer un masque pour remplir un document douanier.
et il me semble plus simple de mettre une colonne à 8 cm, puis 11.7,
puis à 14.2 etc...
Connaissez vous ce système et pourriez vous me donner le lien pour
charger ce petit programme ??
Bonjour, Récemment, j'ai vu qq part (mais où ?) que l'on pouvait créer des colonnes en cm dans excel moyennant une macro... impossible de me souvenir où j'ai vu cela !
Bref, je souhaite créer un masque pour remplir un document douanier. et il me semble plus simple de mettre une colonne à 8 cm, puis 11.7, puis à 14.2 etc...
Connaissez vous ce système et pourriez vous me donner le lien pour charger ce petit programme ??
Merci d'avance Margo
margo51
Merci pour la rapidité de l'info
Bonjour,
Créer un bouton sur la feuille et lui affecter la procédure suivante :
Sub ColumnWidthInCentimeters()
Dim cm As Integer, points As Integer, savewidth As Integer Dim lowerwidth As Integer, upwidth As Integer, curwidth As Integer Dim Count As Integer
Application.ScreenUpdating = False cm = Application.InputBox("Enter la largeur de colonne en Centimetres", _ "Column Width (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 "Largeur de " & cm & " est trop grande." & Chr(10) & _ "La valeur maximum est " & _ Format(ActiveCell.Width / 28.3464566929134, _ "0.00"), vbOKOnly + vbExclamation, "Width Error" ActiveCell.ColumnWidth = savewidth Exit Sub End If lowerwidth = 0 upwidth = 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 curwidth = ActiveCell.ColumnWidth Count = Count + 1 Wend End Sub
A+
Morganitos
"margo51" a écrit dans le message de news: %
Bonjour, Récemment, j'ai vu qq part (mais où ?) que l'on pouvait créer des colonnes en cm dans excel moyennant une macro... impossible de me souvenir où j'ai vu cela !
Bref, je souhaite créer un masque pour remplir un document douanier. et il me semble plus simple de mettre une colonne à 8 cm, puis 11.7, puis à 14.2 etc...
Connaissez vous ce système et pourriez vous me donner le lien pour charger ce petit programme ??
Merci d'avance Margo
Merci pour la rapidité de l'info
Bonjour,
Créer un bouton sur la feuille et lui affecter la procédure suivante :
Sub ColumnWidthInCentimeters()
Dim cm As Integer, points As Integer, savewidth As Integer
Dim lowerwidth As Integer, upwidth As Integer, curwidth As Integer
Dim Count As Integer
Application.ScreenUpdating = False
cm = Application.InputBox("Enter la largeur de colonne en
Centimetres", _
"Column Width (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 "Largeur de " & cm & " est trop grande." & Chr(10) & _
"La valeur maximum est " & _
Format(ActiveCell.Width / 28.3464566929134, _
"0.00"), vbOKOnly + vbExclamation, "Width Error"
ActiveCell.ColumnWidth = savewidth
Exit Sub
End If
lowerwidth = 0
upwidth = 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
curwidth = ActiveCell.ColumnWidth
Count = Count + 1
Wend
End Sub
A+
Morganitos
"margo51" <utilisateur@wanadoo.fr> a écrit dans le message de news:
%23g32BpPVGHA.1304@tk2msftngp13.phx.gbl...
Bonjour,
Récemment, j'ai vu qq part (mais où ?) que l'on pouvait créer des colonnes
en cm dans excel moyennant une macro... impossible de me souvenir où j'ai
vu cela !
Bref, je souhaite créer un masque pour remplir un document douanier.
et il me semble plus simple de mettre une colonne à 8 cm, puis 11.7, puis
à 14.2 etc...
Connaissez vous ce système et pourriez vous me donner le lien pour charger
ce petit programme ??
Créer un bouton sur la feuille et lui affecter la procédure suivante :
Sub ColumnWidthInCentimeters()
Dim cm As Integer, points As Integer, savewidth As Integer Dim lowerwidth As Integer, upwidth As Integer, curwidth As Integer Dim Count As Integer
Application.ScreenUpdating = False cm = Application.InputBox("Enter la largeur de colonne en Centimetres", _ "Column Width (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 "Largeur de " & cm & " est trop grande." & Chr(10) & _ "La valeur maximum est " & _ Format(ActiveCell.Width / 28.3464566929134, _ "0.00"), vbOKOnly + vbExclamation, "Width Error" ActiveCell.ColumnWidth = savewidth Exit Sub End If lowerwidth = 0 upwidth = 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 curwidth = ActiveCell.ColumnWidth Count = Count + 1 Wend End Sub
A+
Morganitos
"margo51" a écrit dans le message de news: %
Bonjour, Récemment, j'ai vu qq part (mais où ?) que l'on pouvait créer des colonnes en cm dans excel moyennant une macro... impossible de me souvenir où j'ai vu cela !
Bref, je souhaite créer un masque pour remplir un document douanier. et il me semble plus simple de mettre une colonne à 8 cm, puis 11.7, puis à 14.2 etc...
Connaissez vous ce système et pourriez vous me donner le lien pour charger ce petit programme ??
