Bonjour
Soit une chaîne de 100 caractères dont on ne veut laisser visibles qu e les
10 premiers dans une cellule.
J'ai bien trouvé qqs solutions :
- insertion d'un retour à la ligne puis forcer la hauteur des cellu les
de la ligne
- justifier en écrivant en blanc et corps de 1 les 90 derniers
caractères
Excel refuse l'écriture en corps 0 (taille de police) qui serait la sol ution
la plus élégante en VBA. Peut on forcer cette solution ? existe t il
d'autres méthodes ?
Peut on créer une police dont le graphisme est celui de chr(0) ?
Cordialement
M41
Bonjour
Soit une chaîne de 100 caractères dont on ne veut laisser visibles qu e les
10 premiers dans une cellule.
J'ai bien trouvé qqs solutions :
- insertion d'un retour à la ligne puis forcer la hauteur des cellu les
de la ligne
- justifier en écrivant en blanc et corps de 1 les 90 derniers
caractères
Excel refuse l'écriture en corps 0 (taille de police) qui serait la sol ution
la plus élégante en VBA. Peut on forcer cette solution ? existe t il
d'autres méthodes ?
Peut on créer une police dont le graphisme est celui de chr(0) ?
Cordialement
M41
Bonjour
Soit une chaîne de 100 caractères dont on ne veut laisser visibles qu e les
10 premiers dans une cellule.
J'ai bien trouvé qqs solutions :
- insertion d'un retour à la ligne puis forcer la hauteur des cellu les
de la ligne
- justifier en écrivant en blanc et corps de 1 les 90 derniers
caractères
Excel refuse l'écriture en corps 0 (taille de police) qui serait la sol ution
la plus élégante en VBA. Peut on forcer cette solution ? existe t il
d'autres méthodes ?
Peut on créer une police dont le graphisme est celui de chr(0) ?
Cordialement
M41
Bonjour
Soit une chaîne de 100 caractères dont on ne veut laisser visibles que les 10 premiers dans une cellule.
J'ai bien trouvé qqs solutions :
- insertion d'un retour à la ligne puis forcer la hauteur des cellules de la ligne
- justifier en écrivant en blanc et corps de 1 les 90 derniers caractères
Excel refuse l'écriture en corps 0 (taille de police) qui serait la solution la plus élégante en VBA. Peut on forcer cette
solution ? existe t il d'autres méthodes ?
Peut on créer une police dont le graphisme est celui de chr(0) ?
Cordialement
M41
Bonjour
Soit une chaîne de 100 caractères dont on ne veut laisser visibles que les 10 premiers dans une cellule.
J'ai bien trouvé qqs solutions :
- insertion d'un retour à la ligne puis forcer la hauteur des cellules de la ligne
- justifier en écrivant en blanc et corps de 1 les 90 derniers caractères
Excel refuse l'écriture en corps 0 (taille de police) qui serait la solution la plus élégante en VBA. Peut on forcer cette
solution ? existe t il d'autres méthodes ?
Peut on créer une police dont le graphisme est celui de chr(0) ?
Cordialement
M41
Bonjour
Soit une chaîne de 100 caractères dont on ne veut laisser visibles que les 10 premiers dans une cellule.
J'ai bien trouvé qqs solutions :
- insertion d'un retour à la ligne puis forcer la hauteur des cellules de la ligne
- justifier en écrivant en blanc et corps de 1 les 90 derniers caractères
Excel refuse l'écriture en corps 0 (taille de police) qui serait la solution la plus élégante en VBA. Peut on forcer cette
solution ? existe t il d'autres méthodes ?
Peut on créer une police dont le graphisme est celui de chr(0) ?
Cordialement
M41
Bonjour M41,
Quelque chose du genre, peut-être :
Sub Invisible()
[A1].Characters(Start:, Length:).Font.ColorIndex = 2
End Sub
Serge
"M41" a écrit dans le message de news:
46210738$0$27381$Bonjour
Soit une chaîne de 100 caractères dont on ne veut laisser visibles que
les 10 premiers dans une cellule.
J'ai bien trouvé qqs solutions :
- insertion d'un retour à la ligne puis forcer la hauteur des cellules
de la ligne
- justifier en écrivant en blanc et corps de 1 les 90 derniers
caractères
Excel refuse l'écriture en corps 0 (taille de police) qui serait la
solution la plus élégante en VBA. Peut on forcer cette solution ? existe
t il d'autres méthodes ?
Peut on créer une police dont le graphisme est celui de chr(0) ?
Cordialement
M41
Bonjour M41,
Quelque chose du genre, peut-être :
Sub Invisible()
[A1].Characters(Start:, Length:).Font.ColorIndex = 2
End Sub
Serge
"M41" <boomerang.pro00@wanadoo.fr> a écrit dans le message de news:
46210738$0$27381$ba4acef3@news.orange.fr...
Bonjour
Soit une chaîne de 100 caractères dont on ne veut laisser visibles que
les 10 premiers dans une cellule.
J'ai bien trouvé qqs solutions :
- insertion d'un retour à la ligne puis forcer la hauteur des cellules
de la ligne
- justifier en écrivant en blanc et corps de 1 les 90 derniers
caractères
Excel refuse l'écriture en corps 0 (taille de police) qui serait la
solution la plus élégante en VBA. Peut on forcer cette solution ? existe
t il d'autres méthodes ?
Peut on créer une police dont le graphisme est celui de chr(0) ?
Cordialement
M41
Bonjour M41,
Quelque chose du genre, peut-être :
Sub Invisible()
[A1].Characters(Start:, Length:).Font.ColorIndex = 2
End Sub
Serge
"M41" a écrit dans le message de news:
46210738$0$27381$Bonjour
Soit une chaîne de 100 caractères dont on ne veut laisser visibles que
les 10 premiers dans une cellule.
J'ai bien trouvé qqs solutions :
- insertion d'un retour à la ligne puis forcer la hauteur des cellules
de la ligne
- justifier en écrivant en blanc et corps de 1 les 90 derniers
caractères
Excel refuse l'écriture en corps 0 (taille de police) qui serait la
solution la plus élégante en VBA. Peut on forcer cette solution ? existe
t il d'autres méthodes ?
Peut on créer une police dont le graphisme est celui de chr(0) ?
Cordialement
M41
Re
Merci
mais cette solution déborde sur les colonnes voisines
problème si les fonds de cellules sont colorés
une justification ajoutée rend le début illisible
Je l'ai aussi testée avec les 2 autres méthodes décrites
Cordialement
M41
"garnote" a écrit dans le message de news:Bonjour M41,
Quelque chose du genre, peut-être :
Sub Invisible()
[A1].Characters(Start:, Length:).Font.ColorIndex = 2
End Sub
Serge
"M41" a écrit dans le message de news: 46210738$0$27381$Bonjour
Soit une chaîne de 100 caractères dont on ne veut laisser visibles que les 10 premiers dans une cellule.
J'ai bien trouvé qqs solutions :
- insertion d'un retour à la ligne puis forcer la hauteur des cellules de la ligne
- justifier en écrivant en blanc et corps de 1 les 90 derniers caractères
Excel refuse l'écriture en corps 0 (taille de police) qui serait la solution la plus élégante en VBA. Peut on forcer cette
solution ? existe t il d'autres méthodes ?
Peut on créer une police dont le graphisme est celui de chr(0) ?
Cordialement
M41
Re
Merci
mais cette solution déborde sur les colonnes voisines
problème si les fonds de cellules sont colorés
une justification ajoutée rend le début illisible
Je l'ai aussi testée avec les 2 autres méthodes décrites
Cordialement
M41
"garnote" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news: ejsU9mrfHHA.596@TK2MSFTNGP06.phx.gbl...
Bonjour M41,
Quelque chose du genre, peut-être :
Sub Invisible()
[A1].Characters(Start:, Length:).Font.ColorIndex = 2
End Sub
Serge
"M41" <boomerang.pro00@wanadoo.fr> a écrit dans le message de news: 46210738$0$27381$ba4acef3@news.orange.fr...
Bonjour
Soit une chaîne de 100 caractères dont on ne veut laisser visibles que les 10 premiers dans une cellule.
J'ai bien trouvé qqs solutions :
- insertion d'un retour à la ligne puis forcer la hauteur des cellules de la ligne
- justifier en écrivant en blanc et corps de 1 les 90 derniers caractères
Excel refuse l'écriture en corps 0 (taille de police) qui serait la solution la plus élégante en VBA. Peut on forcer cette
solution ? existe t il d'autres méthodes ?
Peut on créer une police dont le graphisme est celui de chr(0) ?
Cordialement
M41
Re
Merci
mais cette solution déborde sur les colonnes voisines
problème si les fonds de cellules sont colorés
une justification ajoutée rend le début illisible
Je l'ai aussi testée avec les 2 autres méthodes décrites
Cordialement
M41
"garnote" a écrit dans le message de news:Bonjour M41,
Quelque chose du genre, peut-être :
Sub Invisible()
[A1].Characters(Start:, Length:).Font.ColorIndex = 2
End Sub
Serge
"M41" a écrit dans le message de news: 46210738$0$27381$Bonjour
Soit une chaîne de 100 caractères dont on ne veut laisser visibles que les 10 premiers dans une cellule.
J'ai bien trouvé qqs solutions :
- insertion d'un retour à la ligne puis forcer la hauteur des cellules de la ligne
- justifier en écrivant en blanc et corps de 1 les 90 derniers caractères
Excel refuse l'écriture en corps 0 (taille de police) qui serait la solution la plus élégante en VBA. Peut on forcer cette
solution ? existe t il d'autres méthodes ?
Peut on créer une police dont le graphisme est celui de chr(0) ?
Cordialement
M41
Alors peut-être ceci :
Sub Les_10_Premiers_Visibles_Les_90_Derniers_Invisibles()
Dim i As Integer
Dim rep As String
With [a1]
.WrapText = True
.Characters(Start:, Length:).Font.ColorIndex = .Interior.ColorIndex
For i = 1 To 56
.Characters(Start:=1, Length:).Font.ColorIndex = i
rep = MsgBox("Quand vous êtes satisfait de la couleur" & vbNewLine _
& "des dix premiers caractères, cliquez sur Oui.", vbYesNo)
If rep = vbYes Then Exit Sub
Next i
End With
End Sub
Serge
"M41" a écrit dans le message de news: 462116bb$0$5108$Re
Merci
mais cette solution déborde sur les colonnes voisines
problème si les fonds de cellules sont colorés
une justification ajoutée rend le début illisible
Je l'ai aussi testée avec les 2 autres méthodes décrites
Cordialement
M41
"garnote" a écrit dans le message de news:Bonjour M41,
Quelque chose du genre, peut-être :
Sub Invisible()
[A1].Characters(Start:, Length:).Font.ColorIndex = 2
End Sub
Serge
"M41" a écrit dans le message de news: 46210738$0$27381$Bonjour
Soit une chaîne de 100 caractères dont on ne veut laisser visibles que les 10 premiers dans une cellule.
J'ai bien trouvé qqs solutions :
- insertion d'un retour à la ligne puis forcer la hauteur des cellules de la ligne
- justifier en écrivant en blanc et corps de 1 les 90 derniers caractères
Excel refuse l'écriture en corps 0 (taille de police) qui serait la solution la plus élégante en VBA. Peut on forcer cette
solution ? existe t il d'autres méthodes ?
Peut on créer une police dont le graphisme est celui de chr(0) ?
Cordialement
M41
Alors peut-être ceci :
Sub Les_10_Premiers_Visibles_Les_90_Derniers_Invisibles()
Dim i As Integer
Dim rep As String
With [a1]
.WrapText = True
.Characters(Start:, Length:).Font.ColorIndex = .Interior.ColorIndex
For i = 1 To 56
.Characters(Start:=1, Length:).Font.ColorIndex = i
rep = MsgBox("Quand vous êtes satisfait de la couleur" & vbNewLine _
& "des dix premiers caractères, cliquez sur Oui.", vbYesNo)
If rep = vbYes Then Exit Sub
Next i
End With
End Sub
Serge
"M41" <boomerang.pro00@wanadoo.fr> a écrit dans le message de news: 462116bb$0$5108$ba4acef3@news.orange.fr...
Re
Merci
mais cette solution déborde sur les colonnes voisines
problème si les fonds de cellules sont colorés
une justification ajoutée rend le début illisible
Je l'ai aussi testée avec les 2 autres méthodes décrites
Cordialement
M41
"garnote" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news: ejsU9mrfHHA.596@TK2MSFTNGP06.phx.gbl...
Bonjour M41,
Quelque chose du genre, peut-être :
Sub Invisible()
[A1].Characters(Start:, Length:).Font.ColorIndex = 2
End Sub
Serge
"M41" <boomerang.pro00@wanadoo.fr> a écrit dans le message de news: 46210738$0$27381$ba4acef3@news.orange.fr...
Bonjour
Soit une chaîne de 100 caractères dont on ne veut laisser visibles que les 10 premiers dans une cellule.
J'ai bien trouvé qqs solutions :
- insertion d'un retour à la ligne puis forcer la hauteur des cellules de la ligne
- justifier en écrivant en blanc et corps de 1 les 90 derniers caractères
Excel refuse l'écriture en corps 0 (taille de police) qui serait la solution la plus élégante en VBA. Peut on forcer cette
solution ? existe t il d'autres méthodes ?
Peut on créer une police dont le graphisme est celui de chr(0) ?
Cordialement
M41
Alors peut-être ceci :
Sub Les_10_Premiers_Visibles_Les_90_Derniers_Invisibles()
Dim i As Integer
Dim rep As String
With [a1]
.WrapText = True
.Characters(Start:, Length:).Font.ColorIndex = .Interior.ColorIndex
For i = 1 To 56
.Characters(Start:=1, Length:).Font.ColorIndex = i
rep = MsgBox("Quand vous êtes satisfait de la couleur" & vbNewLine _
& "des dix premiers caractères, cliquez sur Oui.", vbYesNo)
If rep = vbYes Then Exit Sub
Next i
End With
End Sub
Serge
"M41" a écrit dans le message de news: 462116bb$0$5108$Re
Merci
mais cette solution déborde sur les colonnes voisines
problème si les fonds de cellules sont colorés
une justification ajoutée rend le début illisible
Je l'ai aussi testée avec les 2 autres méthodes décrites
Cordialement
M41
"garnote" a écrit dans le message de news:Bonjour M41,
Quelque chose du genre, peut-être :
Sub Invisible()
[A1].Characters(Start:, Length:).Font.ColorIndex = 2
End Sub
Serge
"M41" a écrit dans le message de news: 46210738$0$27381$Bonjour
Soit une chaîne de 100 caractères dont on ne veut laisser visibles que les 10 premiers dans une cellule.
J'ai bien trouvé qqs solutions :
- insertion d'un retour à la ligne puis forcer la hauteur des cellules de la ligne
- justifier en écrivant en blanc et corps de 1 les 90 derniers caractères
Excel refuse l'écriture en corps 0 (taille de police) qui serait la solution la plus élégante en VBA. Peut on forcer cette
solution ? existe t il d'autres méthodes ?
Peut on créer une police dont le graphisme est celui de chr(0) ?
Cordialement
M41
ou un tipeu mieux :
Sub Les_10_Premiers_Visibles_Les_90_Derniers_Invisibles()
Dim i As Integer
Dim rep As String
With [a1]
.WrapText = True
.Characters(Start:, Length:).Font.ColorIndex = .Interior.ColorIndex
For i = 1 To 56
If i <> .Interior.ColorIndex Then
.Characters(Start:=1, Length:).Font.ColorIndex = i
rep = MsgBox("Quand vous êtes satisfait de la couleur" & vbNewLine _
& "des dix premiers caractères, cliquez sur Oui.", vbYesNo)
If rep = vbYes Then Exit Sub
End If
Next i
End With
End Sub
Serge
"garnote" a écrit dans le message de news: %Alors peut-être ceci :
Sub Les_10_Premiers_Visibles_Les_90_Derniers_Invisibles()
Dim i As Integer
Dim rep As String
With [a1]
.WrapText = True
.Characters(Start:, Length:).Font.ColorIndex = .Interior.ColorIndex
For i = 1 To 56
.Characters(Start:=1, Length:).Font.ColorIndex = i
rep = MsgBox("Quand vous êtes satisfait de la couleur" & vbNewLine _
& "des dix premiers caractères, cliquez sur Oui.", vbYesNo)
If rep = vbYes Then Exit Sub
Next i
End With
End Sub
Serge
"M41" a écrit dans le message de news: 462116bb$0$5108$Re
Merci
mais cette solution déborde sur les colonnes voisines
problème si les fonds de cellules sont colorés
une justification ajoutée rend le début illisible
Je l'ai aussi testée avec les 2 autres méthodes décrites
Cordialement
M41
"garnote" a écrit dans le message de news:Bonjour M41,
Quelque chose du genre, peut-être :
Sub Invisible()
[A1].Characters(Start:, Length:).Font.ColorIndex = 2
End Sub
Serge
"M41" a écrit dans le message de news: 46210738$0$27381$Bonjour
Soit une chaîne de 100 caractères dont on ne veut laisser visibles que les 10 premiers dans une cellule.
J'ai bien trouvé qqs solutions :
- insertion d'un retour à la ligne puis forcer la hauteur des cellules de la ligne
- justifier en écrivant en blanc et corps de 1 les 90 derniers caractères
Excel refuse l'écriture en corps 0 (taille de police) qui serait la solution la plus élégante en VBA. Peut on forcer cette
solution ? existe t il d'autres méthodes ?
Peut on créer une police dont le graphisme est celui de chr(0) ?
Cordialement
M41
ou un tipeu mieux :
Sub Les_10_Premiers_Visibles_Les_90_Derniers_Invisibles()
Dim i As Integer
Dim rep As String
With [a1]
.WrapText = True
.Characters(Start:, Length:).Font.ColorIndex = .Interior.ColorIndex
For i = 1 To 56
If i <> .Interior.ColorIndex Then
.Characters(Start:=1, Length:).Font.ColorIndex = i
rep = MsgBox("Quand vous êtes satisfait de la couleur" & vbNewLine _
& "des dix premiers caractères, cliquez sur Oui.", vbYesNo)
If rep = vbYes Then Exit Sub
End If
Next i
End With
End Sub
Serge
"garnote" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news: %23tCblrxfHHA.3632@TK2MSFTNGP02.phx.gbl...
Alors peut-être ceci :
Sub Les_10_Premiers_Visibles_Les_90_Derniers_Invisibles()
Dim i As Integer
Dim rep As String
With [a1]
.WrapText = True
.Characters(Start:, Length:).Font.ColorIndex = .Interior.ColorIndex
For i = 1 To 56
.Characters(Start:=1, Length:).Font.ColorIndex = i
rep = MsgBox("Quand vous êtes satisfait de la couleur" & vbNewLine _
& "des dix premiers caractères, cliquez sur Oui.", vbYesNo)
If rep = vbYes Then Exit Sub
Next i
End With
End Sub
Serge
"M41" <boomerang.pro00@wanadoo.fr> a écrit dans le message de news: 462116bb$0$5108$ba4acef3@news.orange.fr...
Re
Merci
mais cette solution déborde sur les colonnes voisines
problème si les fonds de cellules sont colorés
une justification ajoutée rend le début illisible
Je l'ai aussi testée avec les 2 autres méthodes décrites
Cordialement
M41
"garnote" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news: ejsU9mrfHHA.596@TK2MSFTNGP06.phx.gbl...
Bonjour M41,
Quelque chose du genre, peut-être :
Sub Invisible()
[A1].Characters(Start:, Length:).Font.ColorIndex = 2
End Sub
Serge
"M41" <boomerang.pro00@wanadoo.fr> a écrit dans le message de news: 46210738$0$27381$ba4acef3@news.orange.fr...
Bonjour
Soit une chaîne de 100 caractères dont on ne veut laisser visibles que les 10 premiers dans une cellule.
J'ai bien trouvé qqs solutions :
- insertion d'un retour à la ligne puis forcer la hauteur des cellules de la ligne
- justifier en écrivant en blanc et corps de 1 les 90 derniers caractères
Excel refuse l'écriture en corps 0 (taille de police) qui serait la solution la plus élégante en VBA. Peut on forcer cette
solution ? existe t il d'autres méthodes ?
Peut on créer une police dont le graphisme est celui de chr(0) ?
Cordialement
M41
ou un tipeu mieux :
Sub Les_10_Premiers_Visibles_Les_90_Derniers_Invisibles()
Dim i As Integer
Dim rep As String
With [a1]
.WrapText = True
.Characters(Start:, Length:).Font.ColorIndex = .Interior.ColorIndex
For i = 1 To 56
If i <> .Interior.ColorIndex Then
.Characters(Start:=1, Length:).Font.ColorIndex = i
rep = MsgBox("Quand vous êtes satisfait de la couleur" & vbNewLine _
& "des dix premiers caractères, cliquez sur Oui.", vbYesNo)
If rep = vbYes Then Exit Sub
End If
Next i
End With
End Sub
Serge
"garnote" a écrit dans le message de news: %Alors peut-être ceci :
Sub Les_10_Premiers_Visibles_Les_90_Derniers_Invisibles()
Dim i As Integer
Dim rep As String
With [a1]
.WrapText = True
.Characters(Start:, Length:).Font.ColorIndex = .Interior.ColorIndex
For i = 1 To 56
.Characters(Start:=1, Length:).Font.ColorIndex = i
rep = MsgBox("Quand vous êtes satisfait de la couleur" & vbNewLine _
& "des dix premiers caractères, cliquez sur Oui.", vbYesNo)
If rep = vbYes Then Exit Sub
Next i
End With
End Sub
Serge
"M41" a écrit dans le message de news: 462116bb$0$5108$Re
Merci
mais cette solution déborde sur les colonnes voisines
problème si les fonds de cellules sont colorés
une justification ajoutée rend le début illisible
Je l'ai aussi testée avec les 2 autres méthodes décrites
Cordialement
M41
"garnote" a écrit dans le message de news:Bonjour M41,
Quelque chose du genre, peut-être :
Sub Invisible()
[A1].Characters(Start:, Length:).Font.ColorIndex = 2
End Sub
Serge
"M41" a écrit dans le message de news: 46210738$0$27381$Bonjour
Soit une chaîne de 100 caractères dont on ne veut laisser visibles que les 10 premiers dans une cellule.
J'ai bien trouvé qqs solutions :
- insertion d'un retour à la ligne puis forcer la hauteur des cellules de la ligne
- justifier en écrivant en blanc et corps de 1 les 90 derniers caractères
Excel refuse l'écriture en corps 0 (taille de police) qui serait la solution la plus élégante en VBA. Peut on forcer cette
solution ? existe t il d'autres méthodes ?
Peut on créer une police dont le graphisme est celui de chr(0) ?
Cordialement
M41