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

XL 2016 Supprimer la retour a la ligne dans une validation de données

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion treza88
  • 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

treza88

XLDnaute Occasionnel
Bonjour a tous,

Est il possible de supprimer la retour a la ligne dans une validation de données créer en VBA.
Je voudrais que le texte qui s'affiche soit sur la même ligne pour que ce soit plus lisible.
Ou alors augmenter le nombre de caractères de la première ligne.

Si quelqu'un a la solution ou alors s'il sait que ce n'est pas possible.
Merci d'avance
 
Trier par date Trier par votes
Bonjour treza88

C'est certainement possible mais sans fichier exemple ni code, difficile de répondre.
Pourrais-tu fournir un fichier anonymise pour que nous puissions chercher et te proposer une solution ?
 
Vote positif 0 Vote négatif
Merci pour ton intervention Fred0o,
Voici un fichier qui correspond a mes besoins.
Si on clique sur le 10 en dessous de Marseille une infobulle apparait avec en titre "Marseille" et en dessous "manteau blanc viscose occasion".
C'est ce texte "manteau blanc viscose occasion" que je voudrais sur une seule ligne.
En espérant être clair.
 

Pièces jointes

Vote positif 0 Vote négatif
Ok merci pour ta solution qui peut me convenir, mais il y a t'il un moyen de garder la même présentation "Marseille" en gras et l'autre texte sur une ligne en dessous en écriture simple?
 
Vote positif 0 Vote négatif
Bonjour treza88, Fred0o,

Voyez le fichier joint et cette macro :
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim DernLign&, x$
    DernLign = Range("F" & Rows.Count).End(xlUp).Row
    Range("E9:Z" & DernLign).Cells.Interior.ColorIndex = xlNone
    Shapes("ZoneTexte 1").Visible = False
    If Not Application.Intersect(Target(1), Range("E9:W" & DernLign)) Is Nothing Then
        Application.Intersect(Target(1).EntireRow, Range("E9:W" & DernLign)).Interior.ColorIndex = 34
        x = Cells(7, Target.Column)
        If x <> "" Then
            With Shapes("ZoneTexte 1") 'nom à adapter
                .TextFrame.Characters.Text = x & vbLf & Cells(Target.Row, "F")
                .TextFrame.Characters.Font.Bold = True 'gras
                .TextFrame.Characters(Len(x) + 1).Font.Bold = False
                .TextFrame.AutoSize = True
                .Top = Target(2, 1).Top + 5
                .Left = Target.Left + 10
                .Visible = True
            End With
        End If
    End If
End Sub
La zone de texte permet d'utiliser les formats que l'on veut.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour treza88, fred0o, job75, le forum

treza88 à dit:
Ok merci pour ta solution qui peut me convenir, mais il y a t'il un moyen de garder la même présentation "Marseille" en gras et l'autre texte sur une ligne en dessous en écriture simple?
Cliquez pour agrandir...
treza88 , les commentaires autorisent pas mal de choses en modifiant un peu le code de Fred0o 👀.

Bien cordialement, @+

VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim DernLign As Integer
    DernLign = Range("F" & Rows.Count).End(xlUp).Row
    Range("E9:Z" & DernLign).Cells.Interior.ColorIndex = xlNone
    Dim cbag As Variant
    cbag = Range("H16")
    If Not Application.Intersect(Target(1, 1), Range("E9:Z" & DernLign)) Is Nothing Then
        Application.Intersect(Target(1, 1).EntireRow, Range("E9:Z" & DernLign)).Interior.ColorIndex = 34
        Range("C9:Z" & DernLign).ClearComments
        With Selection
            .AddComment
            .Comment.Visible = True
            .Comment.Text Text:=Range(Split(Selection.Address, "$")(1) & "7") & " : " & Chr(10) & Range("F" & Split(Selection.Address, "$")(2))
            If Len(Range(Split(Selection.Address, "$")(1) & "7")) > 0 Then
                With .Comment.Shape.TextFrame.Characters(Start:=1, Length:=Len(Range(Split(Selection.Address, "$")(1) & "7")) + 3).Font
                    .Name = "Matura MT Script Capitals"
                    .Bold = True
                    .Size = 20
                End With
            End If
        .Comment.Shape.Select
        End With
        Selection.AutoSize = True
        Target.Select
    End If
End Sub
 
Vote positif 0 Vote négatif
re, le fil

treza88 , j'ai ajouté la couleur de fond en citron vert, la couleur par défaut n'est pas terrible.
tu peux la choisir parmi les 56 couleurs de base.



Cordialement, @+
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim DernLign As Integer
    DernLign = Range("F" & Rows.Count).End(xlUp).Row
    Range("E9:Z" & DernLign).Cells.Interior.ColorIndex = xlNone
    Dim cbag As Variant
    cbag = Range("H16")
    If Not Application.Intersect(Target(1, 1), Range("E9:Z" & DernLign)) Is Nothing Then
        Application.Intersect(Target(1, 1).EntireRow, Range("E9:Z" & DernLign)).Interior.ColorIndex = 34
        Range("C9:Z" & DernLign).ClearComments
        With Selection
            .AddComment
            .Comment.Visible = True
            .Comment.Text Text:=Range(Split(Selection.Address, "$")(1) & "7") & " : " & Chr(10) & Range("F" & Split(Selection.Address, "$")(2))
            If Len(Range(Split(Selection.Address, "$")(1) & "7")) > 0 Then
                With .Comment.Shape.TextFrame.Characters(Start:=1, Length:=Len(Range(Split(Selection.Address, "$")(1) & "7")) + 3).Font
                    .Name = "Matura MT Script Capitals"
                    .Bold = True
                    .Size = 20
                End With
            End If
        .Comment.Shape.Select
        End With
        With Selection
            .AutoSize = True
            .Interior.ColorIndex = 43
        End With
        Target.Select
    End If
End Sub
 
Vote positif 0 Vote négatif
Merci JobB75 et Yeahou,
Pour vos infos supplémentaires et très complètes, avec ça je suis armé pour trouver la solution qui me convient.
Il faudra quand même que je décrypte vos codes pour tout comprendre, mais ça devrait aller.
Encore merci a vous 3.
 
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

Y
  • Résolu(e)
XL 2013 Retour à la ligne
Réponses
2
Affichages
167
Yvan1
Y
C
  • Résolu(e)
Autres Validation de données avant verrouillage de la ligne
2
Réponses
17
Affichages
248
com689
C
Y
  • Résolu(e)
XL 2016 Validation de données en fonction d'une table
Réponses
3
Affichages
172
youguybass
Y
C
  • Question Question
Microsoft 365 fonction max renvoie la colonne
Réponses
3
Affichages
89
Gégé-45550
M
  • Résolu(e)
XL 2021 VBA Ajouter ligne tableau + autres cellules hors tableau
Réponses
3
Affichages
166
sylvanu
  • Résolu(e)
XL 2021 Liste de validation de données à partir d'une table
Réponses
3
Affichages
378
Zdz16
  • Résolu(e)
XL 2016 Obliger une saisie numéraire
Réponses
10
Affichages
237
halecs93
A
  • Résolu(e)
Microsoft 365 Compter avec la condition que la valeur suivante ne soit pas 3 - NB.SI.ENS ?
Réponses
8
Affichages
213
sylvanu
F
  • Question Question
Microsoft 365 macro-formule pour recopier une ligne automatiquement à chaque changement de nom
Réponses
5
Affichages
131
Cousinhub
O
  • Résolu(e)
XL 2013 Formule ou une programmation VBA qui permette de répartir des numéros de factures par ligne
Réponses
3
Affichages
112
JHA
J
O
  • Question Question
Autres Afficher le résultat d'une liste de validation sans colonne supplémentaire
Réponses
6
Affichages
294
orlof
O
D
  • Résolu(e)
Microsoft 365 Validation de données sous condition
Réponses
8
Affichages
335
drop91
D
  • Question Question
XL 2021 Mise à jour d'un tableau depuis une feuille Excel
Réponses
5
Affichages
286
thunder23
G
  • Question Question
Microsoft 365 Validation des Données
Réponses
3
Affichages
316
AtTheOne
  • Résolu(e)
XL 2021 tableau de données
Réponses
9
Affichages
358
AtTheOne
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
223
mikeduff
M
P
  • Résolu(e)
XL 2019 Tri sur une ligne dans un tableau.
Réponses
4
Affichages
264
Paulle
P
  • Résolu(e)
XL 2021 Problème avec "coller" en dehors d'Excel
2
Réponses
20
Affichages
426
Magic_Doctor
M
  • Question Question
Microsoft 365 Automatisation de la date et des lignes sur Feuil1
Réponses
5
Affichages
617
Musbek
M
O
  • Résolu(e)
XL 2013 VBA/ Macro qui classe des données dans une colonne unique
Réponses
5
Affichages
146
onyirimba
O
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…