Discussion :

[altra]

Bonjour à tous,

Je désire écrire du texte dans une cellule avec le retour à la ligne possible.
J'ai donc premierement créé un formulaire avec des textbox pour rendre le retour à la ligne plus simple.
Je copie ensuite les données de la textbox dans ma cellule.
Mais lors de la copie, a chaque retour à la ligne j'ai un symbole en forme de petit carré (je n'arrive pas a le copier). J'ai essayé de changer le format de ma cellule en texte mais cela ne change rien.
Savez vous comment supprimer ces carrés.

Sinon j'ai pensé à intégrer directement la textbox dans la cellule, mais comment faire pour que la textbox soit complètement inserée dans la cellule, qu'elle réagisse à la taille de colonne et ligne par exemple.

Je voudrais mettre un autofit par exemple sur cette textbox, mais que initialement cette textbox ait la taille de ma cellule qui d'ailleur est fusionnée lorsque la textbox est vide. Alors que normalement la textbox en autofit vide a une toute petite taille.

Merci si vous pouvez m'aider pour l'un des deux points

Bonne journée

[aalex_38]

Bonjour,

Je n'ai pas reproduit ton cas, avec un textbox je n'ai pas de problème pour afficher le text dans une cellule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(1, 1) = TextBox1.Value

Dans ton affichage tu as sans-doute un saut de ligne, je te laisse regarder les fonctions ASC() et CHR() qui pourront t'aider.

[altra]

Re,

Mon texte s'affiche bien dans la cellule, mais a chaque retour de ligne j'ai ce petit carré.
Tu dis que tu n'as pas ce symbole quand tu fais un retour à la ligne?

Comment j'utilise ces fonctions dans ce code parce que je ne sais pas trop ou les mettres.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Private Sub Edition_clk_Click()
Application.ScreenUpdating = False
ActiveSheet.Unprotect ""
With Sheets("Rapport de Quart")
 
    .Range("B4").Value = U100_txb.Value
    .Range("B6").Value = U200_txb.Value
    .Range("B8").Value = U300_txb.Value
    .Range("B10").Value = U400_txb.Value
    .Range("B12").Value = U500_txb.Value
    .Range("B14").Value = U800Gaz_txb.Value
    .Range("B16").Value = U800Ext_txb.Value
    .Range("B18").Value = Divers_txb.Value
    .Range("B23").Value = NomA_txb.Value
    .Range("B25").Value = QualitéA_txb.Value
    .Range("B27").Value = EquipementA_txb.Value
    .Range("B29").Value = OpérationA_txb.Value
    .Range("B31").Value = RemarqueA_txb.Value
 
    .Range("C23").Value = NomB_txb.Value
    .Range("C25").Value = QualitéB_txb.Value
    .Range("C27").Value = EquipementB_txb.Value
    .Range("C29").Value = OpérationB_txb.Value
    .Range("C31").Value = RemarqueB_txb.Value
 
End With
 
Dim hauteur As Integer
Dim i As Integer
 
'Pour adapter la taille des cellules fusionnées au texte
For i = 4 To 18 Step 2
    With Range(Cells(i, 2), Cells(i, 3))
        .MergeCells = False
        largeur = .ColumnWidth
        .ColumnWidth = largeur * 2
        .Rows.AutoFit
        DoEvents
        hauteur = .RowHeight
        .WrapText = True
        .MergeCells = True
        .RowHeight = hauteur
        .ColumnWidth = largeur
        .Locked = False
        .FormulaHidden = False
        .VerticalAlignment = xlVAlignTop
    End With
Next
'Pour adapter la taille des cellules non fusionnées au texte
For i = 25 To 31 Step 2
   Cells(i, 2).Rows.AutoFit
   Cells(i, 3).Rows.AutoFit
Next
ActiveSheet.Protect ""
Application.ScreenUpdating = True
 
Unload Rapport_de_quart_frm
 
End Sub

Merci pour ton aide

[jfontaine]

Bonjour,

C'est le chr(13) qui est représenté par un carré

Exemple pour le supprimer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A24").Value = Replace(TextBox1.Text, Chr(13), "")

[altra]

Ca marche!!!

Merci beaucoup.

Ou peut on trouver la liste des ces caracteres. Sur l'aide excel j'ai trouvé la rubrique jeu de caractères mais il des carrés partout avec une légende disant que l'affichage de ces caractères (le carré) n'est pas géré pas windows.

[jfontaine]

Tu peux trouver une liste des codes ascii ici

http://4d.developpez.com/documentati...F/CMF10119.HTM


Tu peux aussi a l'aide d'une boucle affiche tous les codes dans un fichier excel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1")=chr(1)

[altra]

D'accord merci pour le lien. Mais il faut savoir que CR veut dire carré.
Puis pour l'affichage dans excel même probleme j'ai des carrés sur bcp des premiers caractères.

C'est pas grave, je demandais ça par curiosité.

Merci

[Invité]

Bonjour,

je n'ai pas compris ce que vous voulez dire :

Mais il faut savoir que CR veut dire carré.

En fait Excel n'affiche pas les 32 premiers caractères (0 à 31) des codes ASCII qui sont des codes réservés par exemple pour l'affichage, l'impression.

[ucfoutu]

D'accord merci pour le lien. Mais il faut savoir que CR veut dire carré.

Bonjour,

Je suppose que tu te réfères à ce que tu as vu dans la 1ère table (Ascii) pour le caractère 13
CR ne veut certes pas dire carré, mais est l'abréviation de Carriage Return (Retour Charriot)

[altra]

Oui voila effectivement je me reporté à ce que j'ai vu pour le caractère 13 de la table ASCII.
Donc maintenant je sais que CR signifie Carriage Return.
Merci à tous pour m'avoir éclairé