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

Christian0258 · Hier à 18:38

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 · Hier à 19:10

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 · Hier à 19:29

herve62 à dit:
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 · Hier à 19:37

@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 · Hier à 19:38

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 · Hier à 20:16

Hello,

Nain porte quoi à dit:
@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 · Hier à 20:20

TooFatBoy à dit:
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 · Hier à 20:37

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 · Hier à 20:49

JM27 à dit:
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 · Hier à 22:54

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

VB:

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

Code:

Selection.Value = GrBoutons.Caption

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

Code:

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 · Hier à 23:00

Ta macro gérant les boutons :

Enrichi (BBcode):

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]

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

Christian0258

XLDnaute Accro

herve62

XLDnaute Barbatruc

Christian0258

XLDnaute Accro

Nain porte quoi

XLDnaute Occasionnel

Cousinhub

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Christian0258

XLDnaute Accro

Pièces jointes

JM27

XLDnaute Barbatruc

Christian0258

XLDnaute Accro

Nain porte quoi

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

Discussions similaires

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

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Accro

Pièces jointes

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Occasionnel

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency