Limiter le nombre de caractère d'une cellule
Bonjour,
J'effectue des export d'une feuille et comme certaines de mes cellules contiennent plus de 255 caractères.... automatiquement, lors de mon export Excel tronque certains caractères...:cry:
J'ai été sur le forum et sur le site de microsoft, et il semble que je vais devoir vivre avec sauf :
1- S'il existe un code pour ne plus avoir ce pb
ou
2- s'il existe un moyen de limiter le nombre de caractère < 255 ? et si je saisis plus, automatiquement un message apparaît...
Qu'est ce que vous me conseillez ? Si je dois opter pour la solution 2), auriez vous un code, ou moyens sous excel pour y arriver.
Voici mon code, entrainant le troncage....un peu du bricolage... mais cela fonctionne à part les troncages :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
Private Sub CommandButton5_Click()
Citation:
je clique sur un bouton pour déclencher l'export
Dim Wb As Excel.Workbook, WbCopie As Excel.Workbook
Dim NomFeuille As String
Sheets("A").Range("B5:P1500").Copy
Citation:
La feuille à copier
Sheets("B").Range("B5").Select
Citation:
Comme ma sélectionne contient un filtre et je ne veux copier que des lignes "filtrée".., je passe par une autre feuille dans laquelle je vais faire un collage spéciale de valeur, ligne ci-après
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("A").Range("B5:P1500").Copy
Citation:
Le format de ma feuille B danslaquelle j'ai collé mes valeurs n'est pas beau, je fais un collage spéciale de format, ligne suivante
Sheets("B").Range("B5").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
NomFeuille = "B"
Citation:
je donne le nom de ma feuille à extraire
Set WbCopie = Excel.ActiveWorkbook
WbCopie.Worksheets(NomFeuille).Copy
ActiveSheet.Name = ("Exportés réussi")
ActiveSheet.Cells.Select
Selection.Columns.AutoFit
Selection.Rows.AutoFit
Style = vbOKOnly
Msg = " Veuillez 'Enregistrer sous' la feuille exportée !"
Title = "Vous venez d'exporter avec succès cette feuille"
Réponse = MsgBox(Msg, Style, Title)
Application.Dialogs(xlDialogSaveAs).Show
End Sub |
