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

Aldc

XLDnaute Nouveau
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
 
Solution
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 &...

TooFatBoy

XLDnaute Barbatruc
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
 
Dernière édition:

patricktoulon

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



1668716705099.png
 

patricktoulon

XLDnaute Barbatruc
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

XLDnaute Barbatruc
@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

XLDnaute Nouveau
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 ?
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
313 322
Messages
2 097 141
Membres
106 850
dernier inscrit
benbeckman