Validation des données, message de saisie

[padlamarive]

Bonjour à tous,

Je sèche sur un problème.

J'ai besoin de ~1'500 caractères dans la fenêtre message de saisie, comment puis-je faire pour l'agrandir ?

Sinon y at-il possibilité de passé par un code VBA (je ne suis pas un pro), pour la liste déroulante avec en plus le message de saisie ? 😕

Merci d'avance pour vos réponses ..

Patrick

 

[padlamarive]

Re : Validation des données, message de saisie

Non plusieurs formes, c'est possible ??

 

[chris]

Re : Validation des données, message de saisie

RE
Pour des listes déroulantes différentes ?

Explique ce que tu veux faire exactement...

 

[padlamarive]

Re : Validation des données, message de saisie

Bonjour Chris,

Oui c'est pour avoir plusieurs listes déroulantes, donc 1 liste déroulante par colonne.
Pour 1 onglet, il m'en faudrait 5 listes.
Est-ce possible ?
Merci d'avance
Patrick

 

[chris]

Re : Validation des données, message de saisie

Bonjour

Mon exemple Validation2 avec une deuxième liste
La seconde forme est nommée Monshape2 et la seconde liste ListeBulle2.
Les colonnes 1 de chaque servant à la validation sont également nommées (Valid1 et Valid2)
Le code de Feuil1 a été mis à jour.

Si tu en fais beaucoup, il serait également possible de ne garder qu'une shape et d'y charger par macro la bonne liste source.
5 cela va mais sinon cela éviterait de mettre trop de shapes dans un classeur

 

[padlamarive]

Re : Validation des données, message de saisie

Merci Chris,

Donc si j'ai bien compris :

Donc je dois mettre les shapes de 0 pour "MonShape" à 4 pour le 5ème "MonShape4"

Mettre dans l'intersect les plages correspondantes à l'infobulle que je veux

Dans le code Case du VBA, que dois-je ajouter ? si oui

Depuis End Select plus rien changer !

C'est juste ?

Merci pour ton aide

Patrick

 

[chris]

Re : Validation des données, message de saisie

Re

C'est cela.

Pour les noms
Le premier s'appelle Monshape, tu peux le laisser : dans le code j'ai mis x = "" pour celui-ci
Pour les autres j'ai prévu 2, 3, 4... : dans le select on complète le Nom. Donc tu peux choisir une autre norme si tu préfères.

Le Select teste la colonne et attribue le nom du shape associé.

 

[padlamarive]

Re : Validation des données, message de saisie

Merci Chris, je viens de tester et visiblement j'arrive à le faire et refaire et ça marche

C'est génial merci merci merci..

Patrick

 

[padlamarive]

Re : Validation des données, message de saisie

Voila le code VBA que j'ai mis, si j'ai bien compris, mais ça ne marche pas :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Calculate

Shapes("monShape").Visible = False
Shapes("monShape2").Visible = False
Shapes("monShape3").Visible = False
Shapes("monShape4").Visible = False

If Intersect(Target, Range("H7:H13")) Is Nothing And Intersect(Target, Range("I7:I13")) Is Nothing And Intersect(Target, Range("AJ7:AJ13")) Is Nothing And Intersect(Target, Range("AK7:AK13")) Is Nothing Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
Dim x As String
Select Case Target.Column
Case 2
x = ""
Case 3
x = "2"
Case 4
x = "3"
Case 5
x = "4"

End Select
With Shapes("monShape" & x)
.ScaleWidth 0.8, msoTrue, msoScaleFromTopLeft
.ScaleHeight 0.8, msoTrue, msoScaleFromTopLeft
.Left = Target.Offset(, 1).Left + 20
.Top = Target.Top - 20
End With
ActiveSheet.Shapes("monShape" & x).Visible = True
End Sub

 

[chris]

Re : Validation des données, message de saisie

Re

Target.Column c'est le numéro de colonne alors selon tes plages c'est 8 pour H, 9 pour I, 36 pour AJ et 37 pour AK qu'il faut placer dans les cas du SELECT CASE

 

[padlamarive]

Re : Validation des données, message de saisie

Merci pour votre aide, pour moi le problème est réglé.