Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

MsgBox n'affiche pas toutes les valeurs

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion lynyrd
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

lynyrd

XLDnaute Impliqué
Bonjour le forum
En cliquant sur les cellules de la colonne "A",et lorsqu'l n'y a pas de données dns les colonnes (B à AM)la MsgBox s'afiche avec "38 journées".
Lorsque les colonnes(B à AM) contiennent des données,la MsgBox ne les affiche pas toutes.
j'ai revérifié le code VBA mais je ne trouve pas d'erreurs.
Quelqu'un a t'il une idée ,
Merci.
 

Pièces jointes

Trier par date Trier par votes
Re : MsgBox n'affiche pas toutes les valeurs

Bonjour le forum,
bonjour lynyrd,

J'ai un peu changé le code pour ceci (les parties en rouge):
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Columns(1)) Is Nothing Then
[COLOR=red]txt =[/COLOR] "Journée 01 :" & "  " & Target.Offset(0, 1) & Chr(10) & "Journée 02 :" & "  " & Target.Offset(0, 2) & Chr(10) _
& "Journée 03 :" & "  " & Target.Offset(0, 3) & Chr(10) & "Journée 04 :" & "  " & Target.Offset(0, 4) & Chr(10) _
& "Journée 05 :" & "  " & Target.Offset(0, 5) & Chr(10) & "Journée 06 :" & "  " & Target.Offset(0, 6) & Chr(10) _
& "Journée 07 :" & "  " & Target.Offset(0, 7) & Chr(10) & "Journée 08 :" & "  " & Target.Offset(0, 8) & Chr(10) _
& "Journée 09 :" & "  " & Target.Offset(0, 9) & Chr(10) & "Journée 10 :" & "  " & Target.Offset(0, 10) & Chr(10) _
& "Journée 11 :" & "  " & Target.Offset(0, 11) & Chr(10) & "Journée 12 :" & "  " & Target.Offset(0, 12) & Chr(10) _
& "Journée 13 :" & "  " & Target.Offset(0, 13) & Chr(10) & "Journée 14 :" & "  " & Target.Offset(0, 14) & Chr(10) _
& "Journée 15 :" & "  " & Target.Offset(0, 15) & Chr(10) & "Journée 16 :" & "  " & Target.Offset(0, 16) & Chr(10) _
& "Journée 17 :" & "  " & Target.Offset(0, 17) & Chr(10) & "Journée 18 :" & "  " & Target.Offset(0, 18) & Chr(10) _
& "Journée 19 :" & "  " & Target.Offset(0, 19) & Chr(10) & "Journée 20 :" & "  " & Target.Offset(0, 20) & Chr(10) _
& "Journée 21 :" & "  " & Target.Offset(0, 21) & Chr(10) & "Journée 22 :" & "  " & Target.Offset(0, 22) & Chr(10) _
& "Journée 23 :" & "  " & Target.Offset(0, 23) & Chr(10) & "Journée 24 :" & "  " & Target.Offset(0, 24) & Chr(10) _
& "Journée 25 :" & "  " & Target.Offset(0, 25) & Chr(10) & "Journée 26 :" & "  " & Target.Offset(0, 26) & Chr(10) _
& "Journée 27 :" & "  " & Target.Offset(0, 27) & Chr(10) & "Journée 28 :" & "  " & Target.Offset(0, 28) & Chr(10) _
& "Journée 29 :" & "  " & Target.Offset(0, 29) & Chr(10) & "Journée 30 :" & "  " & Target.Offset(0, 30) & Chr(10) _
& "Journée 31 :" & "  " & Target.Offset(0, 31) & Chr(10) & "Journée 32 :" & "  " & Target.Offset(0, 32) & Chr(10) _
& "Journée 33 :" & "  " & Target.Offset(0, 33) & Chr(10) & "Journée 34 :" & "  " & Target.Offset(0, 34) & Chr(10) _
& "Journée 35 :" & "  " & Target.Offset(0, 35) & Chr(10) & "Journée 36 :" & "  " & Target.Offset(0, 36) & Chr(10) _
& "Journée 37 :" & "  " & Target.Offset(0, 37) & Chr(10) & "Journée 38 :" & "  " & Target.Offset(0, 38)
End If
[COLOR=red]Debug.Print txt
MsgBox txt, vb, "CALENDRIER LIGUE 1 & 2 SAISON 2008 / 2009"
[/COLOR]End Sub

constat:
Dans la fenêtre exécution txt s'affiche avec les 38 lignes de données.
donc le code est bon.

Par contre le msgBox continue de n'afficher qu'une partie. Aussi je me demande si ce n'est pas tous simplement une limite de msgBox.

Solution: passer par un userForm qui affichera le texte en entier, à moins qu'un des nombreux génies du forum ne trouve mieux.

A bientôt
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

E
  • Question Question
Microsoft 365 Problème format date
Réponses
7
Affichages
286
Cousinhub
A
  • Question Question
XL 2010 Colorier les n plus grandes valeurs d'une plage EXCEL
3 4 5
Réponses
63
Affichages
2 K
TooFatBoy
S
  • Question Question
Microsoft 365 Trouver les correspondances de mots entre deux listes
2
Réponses
26
Affichages
1 K
Sylvaing
S
Y
  • Question Question
Microsoft 365 Suite de mise en forme onditionnelle en fonction dune liste déroulante Compter des valeurs >0.75
Réponses
3
Affichages
433
YGU1
Y
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
526
TooFatBoy
F
  • Question Question
Microsoft 365 insérer une ligne calculée tcd
Réponses
2
Affichages
203
chris
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
912
TooFatBoy
  • Résolu(e)
XL 2019 Macro qui ne prend pas en compte toutes les données d'une page
2
Réponses
15
Affichages
492
Julie29000
  • Question Question
XL 2021 EXTRAIRE + SOMME des 6 meilleures valeurs avec condition par participant
Réponses
11
Affichages
500
Poulet13
D
  • Question Question
Microsoft 365 Procédé pour appliquer un filtre qui permet de ressortir les informations a la sélection d'une information dans une colonne.
Réponses
6
Affichages
311
djidji59430
C
  • Résolu(e)
XL 2019 Problème de transferts de données formulaire à feuille
Réponses
5
Affichages
262
ceralpes
C
D
  • Question Question
Microsoft 365 TCD et onglets spécifiques selon les filtres à définir
Réponses
2
Affichages
187
Daniel200666
D
I
  • Question Question
XL pour MAC Xlsm - Fichier permettant de gérer un cross d'établissement scolaire
Réponses
8
Affichages
706
iruri
I
B
  • Résolu(e)
Microsoft 365 Trouver un élément selon certains critères
Réponses
2
Affichages
300
blancolie
B
V
  • Question Question
Autres Exporter les données vers un autre onglet sans laisser d'espaces entre les lignes
Réponses
13
Affichages
607
Vakarm31
V
C
  • Résolu(e)
XL 2016 humains VS chatGPT
Réponses
9
Affichages
902
AtTheOne
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
535
NONO14
N
O
  • Question Question
Microsoft 365 Détection valeurs croissante/décroissante dans courbe
Réponses
4
Affichages
375
Oli-excel
O
S
  • Question Question
XL 2019 Formule RECHERCHEV avec des valeurs cherchées négatives qui ne fonctionne pas et renvoi #Réf
Réponses
2
Affichages
425
Phil69970
J
  • Question Question
Microsoft 365 Code VBA
Réponses
10
Affichages
1 K
jebibo
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…