Autres CommandButton, pourquoi le texte est renvoyé en partie...

[Christian0258]

Bonsoir à tout le forum,

J'aimerais avoir votre aide, j'ai cherché avant de vous déranger, mais je n'ai trouvé...lol
Pourquoi la CommandButton tronque t-elle le texte renvoyé.
le texte est celui-ci :
8H00-12h00 14h00-17h30
et le texte renvoyé : 8H00-12h00
je pense, peut être, que c'est l'espace qui pose problème?

Merci pour votre aide.
Bien à vous,
Christian

 

[herve62]

bonsoir
Tu n'es pas debutant donc tu devrais savoir que > Pourquoi la CommandButton tronque t-elle le texte renvoyé. ? c'est vague !!!
donc un bout de fichier qu'on puisse analyser serait nettement mieux au moins on travaille sur du concret

 

[Christian0258]

bonsoir
Tu n'es pas debutant donc tu devrais savoir que > Pourquoi la CommandButton tronque t-elle le texte renvoyé. ? c'est vague !!!
donc un bout de fichier qu'on puisse analyser serait nettement mieux au moins on travaille sur du concret

Re le forum, herve62
Merci pour ton aide,
Si justement , on peut dire que je suis un débutant en VBA... je bidouille, modifie et adapte comme je peux...LOL
Encore merci,
A vous lire.
Christian

 

[Nain porte quoi]

@Christian0258 ça n'empêche que "un bout de fichier qu'on puisse analyser serait nettement mieux au moins on travaille sur du concret"

 

[Cousinhub]

Bonsoir,
Je pense que tu n'as pas compris le sens de "Débutant"...
On ne parle pas de débutant "Excel", mais plutôt, "utilisation du forum"
Comme tu le sais, un fichier est toujours préférable à des explications troubles.
Donc, d'après tes explications, je pourrais dire que la largeur du "CommandButton" ne fait que 2 cm alors qu'il en faudrait 4.... 😀
Bonne soirée

 

[TooFatBoy]

Hello,

@Christian0258 ça n'empêche que "un bout de fichier qu'on puisse analyser serait nettement mieux au moins on travaille sur du concret"

Oui, ça permettrait au moins de connaître le code associé à la bouton de commande et aussi de savoir d'où vient le texte en question.

 

[Christian0258]

Hello,


Oui, ça permettrait au moins de connaître le code associé à la bouton de commande et aussi de savoir d'où vient le texte en question.

Re ,le forum, tous mes aidants lol
Le fichier
Merci pour votre aide,
Bien à vous
Christian

 

[JM27]

bonsoir

pas vu le pb
Par contre 8H00-12h00 14h00-17h30 n'existe pas!
issu de feuille planning colonne 115 et ligne de 1 à 25
dans ton cas voir taille du bouton!
Pour info tu peux mettre la propriété de ton bouton qui pose pb : autosize à true pour tester

 

[Christian0258]

bonsoirRegarde la pièce jointe 1227756
pas vu le pb
Par contre 8H00-12h00 14h00-17h30 n'existe pas!
issu de feuille planning colonne 115 et ligne de 1 à 25
dans ton cas voir taille du bouton!

Re, le forum,JM27, les aidants,

Oui JM27, effectivement cette horaire n'existe pas dans le fichier que j'ai bidouillé pour l'envoi, mais c'était
pour faire un exemple.
J'ai essayé en agrandissant le bouton, je vais regarder à nouveau.
A vous lire,
Merci

 

[Nain porte quoi]

Quand on vous dit que sans le fichier on ne peut rien voir...
Vous avez un module de classe qui tronque ce qui est affiché dans le bouton

Public WithEvents GrBoutons As Msforms.CommandButton
Private Sub GrBoutons_Click()
  Selection.Interior.Color = GrBoutons.BackColor
  Selection.Font.Color = GrBoutons.ForeColor
  If IsNumeric(Application.Search(" ", GrBoutons.Caption, 1)) Then
    Selection.Value = Left(GrBoutons.Caption, Application.Search(" ", GrBoutons.Caption, 1) - 1)

     Else
     Selection.Value = GrBoutons.Caption
  End If
 
UserForm4.InitUserForm4
 
   ActiveCell.Offset(1, 0).Select
  'ActiveCell.Offset(0, 1).Select
End Sub

donc si vous voulez le contenu entier il faut juste garder la ligne

Selection.Value = GrBoutons.Caption

et supprimer le IF et ce qui va avec
ce qui donnerait

Public WithEvents GrBoutons As Msforms.CommandButton
Private Sub GrBoutons_Click()
  Selection.Interior.Color = GrBoutons.BackColor
  Selection.Font.Color = GrBoutons.ForeColor
  Selection.Value = GrBoutons.Caption
 
UserForm4.InitUserForm4
 
   ActiveCell.Offset(1, 0).Select
  'ActiveCell.Offset(0, 1).Select
End Sub

 

[TooFatBoy]

Ta macro gérant les boutons :

Private Sub GrBoutons_Click()
' Gestion des boutons

    Selection.Interior.Color = GrBoutons.BackColor
    Selection.Font.Color = GrBoutons.ForeColor

    If IsNumeric(Application.Search(" ", GrBoutons.Caption, 1)) Then
        Selection.Value = Left(GrBoutons.Caption, Application.Search(" ", GrBoutons.Caption, 1) - 1)
    Else
        Selection.Value = GrBoutons.Caption
    End If

    UserForm4.InitUserForm4

    ActiveCell.Offset(1, 0).Select
'    ActiveCell.Offset(0, 1).Select

End Sub

Donc forcément...


[edit] Arf ! Grilled by the dwarf... 😢 [/edit]