Microsoft 365 Trop de caractères de continuité de ligne

Aldc · 17 Novembre 2022

Bonjour à toutes et à tous,

J'ai un petit problème de continuité de ligne.

En effet, j'ai créé un userform de recherche de salarié, et lorsque je clique sur détail, j'ai une fiche récapitulative du salarié.
Hors, je n'arrive pas à afficher plus de 24 lignes malgré le fait d'avoir mis _ à la fin de mes phrases.
Il ( _ ) n'apparait pas dans la 25 et j'ai été obligé de sauter des lignes pour écrire les autres, qui apparaissent en rouge, mais c'est normal comme il y a une erreur !

Auriez vous une solution svp ?

Merci

Voici le code :
'************************************************************************
' Procédure permettant de rechercher un salarié par son nom
'************************************************************************
Private Sub txtChercheNom_Change()

'Déclaration des Variables
Dim NbLigne As Integer
Dim MaCellule As Range
Dim i As Integer
Dim Coordonnee As String
Dim Photo As String

'On calcule de nombre d'enregistrement dans la Base de Données
NbLigne = shData.Range("A100000").End(xlUp).Row

'On affiche la fiche info
ActiveSheet.Shapes("FicheInfo").Visible = True
ActiveSheet.Shapes("FicheInfo").TextFrame.Characters.Text = Me.txtChercheNom.Value
'On positionne la fiche info en cellule D10
With ActiveSheet.Shapes("FicheInfo")
.Top = Range("D10").Top
.Left = Range("D10").Left
.Width = 400
.Height = 650
End With
'On personnalise la Fiche Info
With ActiveSheet.Shapes("FicheInfo").Shadow
.Type = msoShadow25
.Visible = msoTrue
.Style = msoShadowStyleOuterShadow
.Blur = 15
.OffsetX = 12.72
.OffsetY = 12.72
.RotateWithShape = msoTrue
.ForeColor.RGB = RGB(0, 0, 0)
.Transparency = 0.7
.Size = 100
End With

If Me.txtChercheNom <> "" Then
Me.btnValider.Visible = True
Else
Me.btnValider.Visible = False
End If

'On boucle la base de données sur la colonne des noms.
For i = 2 To NbLigne
If shData.Cells(i, 2).Value Like "*" & Me.txtChercheNom.Value & "*" Then
Coordonnee = "N° de paie : " & shData.Cells(i, 1).Value & vbNewLine _
& "Nom : " & shData.Cells(i, 2).Value & vbNewLine _
& "Prénom : " & shData.Cells(i, 3).Value & vbNewLine _
& "Date de naissance : " & shData.Cells(i, 4).Value & vbNewLine _
& "Téléphone : " & shData.Cells(i, 5).Value & vbNewLine _
& "Adresse mail : " & shData.Cells(i, 6).Value & vbNewLine _
& "Date d'embauche : " & shData.Cells(i, 7).Value & vbNewLine _
& "Contrat : " & shData.Cells(i, 8).Value & vbNewLine _
& "Date fin de contrat : " & shData.Cells(i, 9).Value & vbNewLine _
& "Territoire : " & shData.Cells(i, 10).Value & vbNewLine _
& "Intitulé du poste : " & shData.Cells(i, 11).Value & vbNewLine _
& "Champ d'intervention : " & shData.Cells(i, 12).Value & vbNewLine _
& "Lieu d'affectation : " & shData.Cells(i, 13).Value & vbNewLine _
& "Ordinateur : " & shData.Cells(i, 14).Value & vbNewLine _
& "Référence : " & shData.Cells(i, 15).Value & vbNewLine _
& "Nom Ordinateur : " & shData.Cells(i, 16).Value & vbNewLine _
& "Date de remise : " & shData.Cells(i, 17).Value & vbNewLine _
& "Contrat : " & shData.Cells(i, 18).Value & vbNewLine _
& "Téléphone : " & shData.Cells(i, 19).Value & vbNewLine _
& "Référence : " & shData.Cells(i, 20).Value & vbNewLine _
& "Date de remise : " & shData.Cells(i, 21).Value & vbNewLine _
& "Contrat : " & shData.Cells(i, 22).Value & vbNewLine _
& "Mobilité :" & shData.Cells(i, 23).Value & vbNewLine _
& "Type :" & shData.Cells(i, 24).Value & vbNewLine _
& "Date de remise : " & shData.Cells(i, 25).Value & vbNewLine
& "Sexe : " & shData.Cells(i, 26).Value & vbNewLine _
& "Couleur : " & shData.Cells(i, 27).Value & vbNewLine _
& "Polo manches longues : " & shData.Cells(i, 28).Value & vbNewLine _
& "Taille : " & shData.Cells(i, 28).Value & vbNewLine _
& "Quantité : " & shData.Cells(i, 29).Value & vbNewLine _
& "Date de remise : " & shData.Cells(i, 30).Value & vbNewLine _
& "Polo manches longues" & shData.Cells(i, 31).Value & vbNewLine _
& "Taille : " & shData.Cells(i, 32).Value & vbNewLine _
& "Quantité : " & shData.Cells(i, 33).Value & vbNewLine _
& "Date de remise : " & shData.Cells(i, 34).Value & vbNewLine _
& "Sweat : " & shData.Cells(i, 35).Value & vbNewLine _
& "Taille : " & shData.Cells(i, 36).Value & vbNewLine _
& "Quantité : " & shData.Cells(i, 37).Value & vbNewLine _
& "Date de remise : " & shData.Cells(i, 38).Value & vbNewLine _
& "Pantalon : " & shData.Cells(i, 39).Value & vbNewLine _
& "Taille : " & shData.Cells(i, 40).Value & vbNewLine _
& "Quantité : " & shData.Cells(i, 41).Value & vbNewLine _
& "Date de remise : " & shData.Cells(i, 42).Value & vbNewLine _

& "Parka : " & shData.Cells(i, 43).Value & vbNewLine _
& "Taille : " & shData.Cells(i, 44).Value & vbNewLine _
& "Quantité : " & shData.Cells(i, 45).Value & vbNewLine _
& "Date de remise : " & shData.Cells(i, 46).Value & vbNewLine _
& "Soft Shell : " & shData.Cells(i, 47).Value & vbNewLine _
& "Taille : " & shData.Cells(i, 48).Value & vbNewLine _
& "Quantité : " & shData.Cells(i, 49).Value & vbNewLine _
& "Date de remise : " & shData.Cells(i, 50).Value & vbNewLine _
& "Bonnet : " & shData.Cells(i, 51).Value & vbNewLine _
& "Quantité : " & shData.Cells(i, 52).Value & vbNewLine _
& "Date de remise : " & shData.Cells(i, 53).Value & vbNewLine _
& "Gants : " & shData.Cells(i, 54).Value & vbNewLine _
& "Quantité : " & shData.Cells(i, 56).Value & vbNewLine _
& "Date de remise : " & shData.Cells(i, 57).Value & vbNewLine _
& "Tour de cou : " & shData.Cells(i, 58).Value & vbNewLine _
& "Quantité : " & shData.Cells(i, 59).Value & vbNewLine _

& "Date de remise : " & shData.Cells(i, 60).Value & vbNewLine _
& "Chaussure : " & shData.Cells(i, 61).Value & vbNewLine _
& "Pointure : " & shData.Cells(i, 62).Value & vbNewLine _
& "Date de remise : " & shData.Cells(i, 63).Value & vbNewLine _
& "Badge d'accès" & shData.Cells(i, 64).Value & vbNewLine _
& "Date de remise : " & shData.Cells(i, 65).Value & vbNewLine _
& "Carte professionnelle : " & shData.Cells(i, 66).Value & vbNewLine _
& "Date de remise : " & shData.Cells(i, 67).Value & vbNewLine _
& "Carte de pointage : " & shData.Cells(i, 68).Value & vbNewLine _
& "Date de remise : " & shData.Cells(i, 69).Value & vbNewLine _
& "Date de rendu : " & shData.Cells(i, 70).Value & vbNewLine _

ActiveSheet.Shapes("FicheInfo").TextFrame.Characters.Text = vbNewLine & Coordonnee
ActiveSheet.Shapes("FicheInfo").TextFrame.AutoSize = True
Me.lblNomImageSalarie.Caption = shData.Cells(i, 16).Value
End If
Next

End Sub

vgendron · 17 Novembre 2022

Bonjour
ta variable "Coordonnée" est un string==> 255 caractères maximum

ca me semble bizarre de mettre autant de choses dans une seule variable...
aurais tu un fichier exemple à fournir pour voir ce que tu souhaites faire

TooFatBoy · 17 Novembre 2022

Bonjour,

vgendron à dit:
ta variable "Coordonnée" est un string==> 255 caractères maximum

Est-ce que ce n'est pas environ 65536 caractères ?

TooFatBoy · 17 Novembre 2022

Aldc à dit:
Or, je n'arrive pas à afficher plus de 24 lignes malgré le fait d'avoir mis _ à la fin de mes phrases.

Tu n'es pas obligé tout mettre dans la même instruction.

Tu peux tronçonner, genre :

Code:

Coordonnee = "N° de paie : " & shData.Cells(i, 1).Value & vbNewLine _
& "Nom : " & shData.Cells(i, 2).Value & vbNewLine _
& "Prénom : " & shData.Cells(i, 3).Value & vbNewLine _
& "Date de naissance : " & shData.Cells(i, 4).Value & vbNewLine _
& "Téléphone : " & shData.Cells(i, 5).Value & vbNewLine _
& "Adresse mail : " & shData.Cells(i, 6).Value & vbNewLine _
& "Date d'embauche : " & shData.Cells(i, 7).Value & vbNewLine _
& "Contrat : " & shData.Cells(i, 8).Value & vbNewLine _
& "Date fin de contrat : " & shData.Cells(i, 9).Value & vbNewLine _
& "Territoire : " & shData.Cells(i, 10).Value & vbNewLine _
& "Intitulé du poste : " & shData.Cells(i, 11).Value & vbNewLine _
& "Champ d'intervention : " & shData.Cells(i, 12).Value & vbNewLine _
& "Lieu d'affectation : " & shData.Cells(i, 13).Value & vbNewLine _
& "Ordinateur : " & shData.Cells(i, 14).Value & vbNewLine _
& "Référence : " & shData.Cells(i, 15).Value & vbNewLine _
& "Nom Ordinateur : " & shData.Cells(i, 16).Value & vbNewLine _
& "Date de remise : " & shData.Cells(i, 17).Value & vbNewLine _
& "Contrat : " & shData.Cells(i, 18).Value & vbNewLine _
& "Téléphone : " & shData.Cells(i, 19).Value & vbNewLine _
& "Référence : " & shData.Cells(i, 20).Value & vbNewLine

Coordonnee = Coordonnee & "Date de remise : " & shData.Cells(i, 21).Value & vbNewLine _
& "Contrat : " & shData.Cells(i, 22).Value & vbNewLine _
& "Mobilité :" & shData.Cells(i, 23).Value & vbNewLine _
& "Type :" & shData.Cells(i, 24).Value & vbNewLine _
& "Date de remise : " & shData.Cells(i, 25).Value & vbNewLine _
& "Sexe : " & shData.Cells(i, 26).Value & vbNewLine _
& "Couleur : " & shData.Cells(i, 27).Value & vbNewLine _
& "Polo manches longues : " & shData.Cells(i, 28).Value & vbNewLine _
& "Taille : " & shData.Cells(i, 28).Value & vbNewLine _
& "Quantité : " & shData.Cells(i, 29).Value & vbNewLine _
& "Date de remise : " & shData.Cells(i, 30).Value & vbNewLine _
& "Polo manches longues" & shData.Cells(i, 31).Value & vbNewLine _
& "Taille : " & shData.Cells(i, 32).Value & vbNewLine _
& "Quantité : " & shData.Cells(i, 33).Value & vbNewLine _
& "Date de remise : " & shData.Cells(i, 34).Value & vbNewLine _
& "Sweat : " & shData.Cells(i, 35).Value & vbNewLine _
& "Taille : " & shData.Cells(i, 36).Value & vbNewLine _
& "Quantité : " & shData.Cells(i, 37).Value & vbNewLine _
& "Date de remise : " & shData.Cells(i, 38).Value & vbNewLine _
& "Pantalon : " & shData.Cells(i, 39).Value & vbNewLine _
& "Taille : " & shData.Cells(i, 40).Value & vbNewLine

Coordonnee = Coordonnee & "Quantité : " & shData.Cells(i, 41).Value & vbNewLine _
& "Date de remise : " & shData.Cells(i, 42).Value & vbNewLine _
& "Parka : " & shData.Cells(i, 43).Value & vbNewLine _
& "Taille : " & shData.Cells(i, 44).Value & vbNewLine _
& "Quantité : " & shData.Cells(i, 45).Value & vbNewLine _
& "Date de remise : " & shData.Cells(i, 46).Value & vbNewLine _
& "Soft Shell : " & shData.Cells(i, 47).Value & vbNewLine _
& "Taille : " & shData.Cells(i, 48).Value & vbNewLine _
& "Quantité : " & shData.Cells(i, 49).Value & vbNewLine _
& "Date de remise : " & shData.Cells(i, 50).Value & vbNewLine _
& "Bonnet : " & shData.Cells(i, 51).Value & vbNewLine _
& "Quantité : " & shData.Cells(i, 52).Value & vbNewLine _
& "Date de remise : " & shData.Cells(i, 53).Value & vbNewLine _
& "Gants : " & shData.Cells(i, 54).Value & vbNewLine _
& "Quantité : " & shData.Cells(i, 56).Value & vbNewLine _
& "Date de remise : " & shData.Cells(i, 57).Value & vbNewLine _
& "Tour de cou : " & shData.Cells(i, 58).Value & vbNewLine _
& "Quantité : " & shData.Cells(i, 59).Value & vbNewLine _
& "Date de remise : " & shData.Cells(i, 60).Value & vbNewLine

Coordonnee = Coordonnee & "Chaussure : " & shData.Cells(i, 61).Value & vbNewLine _
& "Pointure : " & shData.Cells(i, 62).Value & vbNewLine _
& "Date de remise : " & shData.Cells(i, 63).Value & vbNewLine _
& "Badge d'accès" & shData.Cells(i, 64).Value & vbNewLine _
& "Date de remise : " & shData.Cells(i, 65).Value & vbNewLine _
& "Carte professionnelle : " & shData.Cells(i, 66).Value & vbNewLine _
& "Date de remise : " & shData.Cells(i, 67).Value & vbNewLine _
& "Carte de pointage : " & shData.Cells(i, 68).Value & vbNewLine _
& "Date de remise : " & shData.Cells(i, 69).Value & vbNewLine _
& "Date de rendu : " & shData.Cells(i, 70).Value & vbNewLine

patricktoulon · 17 Novembre 2022

bonjour
déjà avant le depacement de capacité , n'y a t il pas un erreur ici i,28 et i,28 ???????????????

TooFatBoy · 17 Novembre 2022

patricktoulon à dit:
bonjour
déjà avant le depacement de capacité , n'y a t il pas un erreur ici i,28 et i,28 ???????????????

Il y a bien une erreur, mais elle est au-dessus : il manque un _ en fin de ligne.
c'est pour ça que ça passe en rouge sur la ligne du dessous.

patricktoulon · 17 Novembre 2022

re
@TooFatBoy c'est impossible de le mettre le tiret

de toute facon je soupconne que le tableau de cell a des entêtes que ce soit un tableau structuré ou pas
sinon c'est completement absurde de travailler sur un tableau de 70 colonne sans entête
c'est le meilleur moyen de se perdre

donc sa boucle ligne "i" va de 2 à NbLigne
ces index colonnes vont de 1 à 70
je me dis donc en 4/5 lignes c'est réglé
DONC !! à la place de ça

VB:

For i = 2 To NbLigne
If shData.Cells(i, 2).Value Like "*" & Me.txtChercheNom.Value & "*" Then
Coordonnee = "N° de paie : " & shData.Cells(i, 1).Value & vbNewLine _
'blablabla
'balblabla
'interminable

je fait simplement ceci

VB:

For i = 2 To NbLigne

If shData.Cells(i, 2).Value Like "*" & Me.txtChercheNom.Value & "*" Then

for c= 1 to 70

Coordonnee =coordonnee &  shData.Cells(1 ,c).Value &": "   & shData.Cells(i, c).Value & vbNewLine

next c

end if

next i

et voilà
wat else ??

TooFatBoy · 17 Novembre 2022

patricktoulon à dit:
@TooFatBoy c'est impossible de le mettre le tiret

Ah, OK. C'est pour ça qu'il a une erreur au niveau VBA/VBE.

Évidemment, la boucle est le truc qui vient de suite à l'idée comme disait Johnny, mais la variable va ensuite dans un "Shape". Du coup, les titres des champs ne sont-ils pas "obligatoires" ???

VB:

ActiveSheet.Shapes("FicheInfo").TextFrame.Characters.Text = vbNewLine & Coordonnee

C'est quoi ce shape ? Est-ce un commentaire de cellule ? Une forme sur la feuille ?

Aldc · 18 Novembre 2022

Merci à tous pour vous réponses.
J'ai réussi par la suite à tout boucler.
La méthode était la même que @TooFatBoy !

C'est une fiche récapitulative de chaque salarié donc il fallait bien le titre des champs.

De plus, savez vous comment mettre un bouton sur cette fiche pour l'imprimer ?

TooFatBoy · 19 Novembre 2022

Aldc à dit:
savez vous comment mettre un bouton sur cette fiche pour l'imprimer ?

Non, je ne sais pas faire ça.

Si tu arrives à le faire manuellement, fais-le avec l'enregistreur de macro activé, et regarde la macro que ça te donne.
Ensuite tu affectes cette macro au bouton, après avoir éventuellement nettoyé la macro.

Effectuez une recherche sur Excel Downloads...

Microsoft 365 Trop de caractères de continuité de ligne

Aldc

XLDnaute Nouveau

TooFatBoy

vgendron

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Aldc

XLDnaute Nouveau

TooFatBoy

XLDnaute Barbatruc

Discussions similaires

Membres actuellement en ligne

Partager cette page

Tutos vidéos

Statistiques des forums