A voir également:
- Couper chaine de caracteres
- Couper une video - Guide
- Caractères ascii - Guide
- Caractères spéciaux symboles clavier - Guide
- Chaine tnt gratuite sur mobile - Guide
- Comment couper un pdf - Guide
2 réponses
cousinhub29
Messages postés
883
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
2 mai 2024
338
29 sept. 2010 à 10:13
29 sept. 2010 à 10:13
Bonjour,
En espérant que la cellule ne contienne pas plus de 76 caractères, sinon le code ci-dessous affichera plus de 38 caractères dans la cellule de droite...
Sinon, essaie ainsi :
Bonne journée
En espérant que la cellule ne contienne pas plus de 76 caractères, sinon le code ci-dessous affichera plus de 38 caractères dans la cellule de droite...
Sinon, essaie ainsi :
Sub couper()
Dim Cel As Range
Dim Pos As Byte
For Each Cel In Range("B1:B" & [B65000].End(xlUp).Row)
If Len(Cel) > 38 Then
Pos = IIf(Mid(Cel, 38, 1) = " ", 38, InStrRev(Cel, " ", 38))
Cel.Offset(, 1) = Right(Cel, Len(Cel) - Pos)
Cel = Left(Cel, Pos - 1)
End If
Next Cel
End Sub
Bonne journée
cousinhub29
Messages postés
883
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
2 mai 2024
338
29 sept. 2010 à 10:40
29 sept. 2010 à 10:40
bonjour,
Normalement, le code balaie toutes les cellules de la colonne B, jusqu'à la dernière remplie....
A moins que toutes les cellules de la colonne B soient remplies....(formule ou autre....).
Lorsque tu fais un double-clic sur le bas, au centre, lorsque tu as les 4 flèches apparentes, de la cellule B1, jusqu'où tu vas?
Ou en faisant "Ctrl + Fin", tu arrives à quelle cellule?
@ te relire
Normalement, le code balaie toutes les cellules de la colonne B, jusqu'à la dernière remplie....
A moins que toutes les cellules de la colonne B soient remplies....(formule ou autre....).
Lorsque tu fais un double-clic sur le bas, au centre, lorsque tu as les 4 flèches apparentes, de la cellule B1, jusqu'où tu vas?
Ou en faisant "Ctrl + Fin", tu arrives à quelle cellule?
@ te relire
29 sept. 2010 à 10:42
Merci beaucoup