Liste/données validation

[Bcar]

Bonsoir le forum,

Est-il possible de creer une liste constitutée de formes auxquelles on a donné un nom?
Je joins un fichier succint, le but est de construire un planning visuel.
Merci par avance pour votre aide.
Cordialement,
Bcar.

 

[Tibo]

Re : Liste/données validation

Bonsoir,

J'ai fait quelques essais.

Il semble que dans une liste de validation, seul du texte (ou des chiffres) soit admis.

De plus, il s'agit d'une police traditionnelle (j'ai fait un essai avec une police Webdings qui n'est pas reprise dans la liste déroulante).

Est-ce possible en VBA ?

Lançons l'appel auprès de nos émérites Vbaïstes.

Bonne soirée

@+

 

[jeanpierre]

Re : Liste/données validation

Bonsoir Bcar, salut Tibo,

Pour confirmer, essais non concluants.....

Rien ne fontionne...............

Bonne soirée et Week-end approchant...

 

[BOISGONTIER]

Re : Liste/données validation

Bonsoir,

Avec utilisation de police wingdings?

http://boisgontierjacques.free.fr/fichiers/jb-planningmensuelmacro.zip

JB

 

[jeanpierre]

Re : Liste/données validation

Re tous, Bonsoir Tibo et Jacques,

Merci, mais perso, j'étais encore resté sur le fichier, sans d'autres recherches.... car sur d'autres feux....

Je regarde ton fichier maintenant...

Bonne soirée.

Jean-Pierre

 

[BOISGONTIER]

Re : Liste/données validation

Autre essai:


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([E3:J10], Target) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
p = Application.Match(Target, [MaListe], 0)
Sheets("ListeConges").Range("MaListe")(p).Offset(0, 1).Copy
Target.PasteSpecial Paste:=xlPasteFormats
Target.PasteSpecial Paste:=xlValues
Application.EnableEvents = True
End If
End Sub

JB
Formation Excel VBA JB

 

[THE CAT 2007]

Re : Liste/données validation

Bj,

Ebauche de solution ? L'icône se colle en bas à gauche en étant dans une cellule au dessus du lieu où on veut coller .... ;-))))))))))))))

Ca se voit moins sur une colonne étroite ( samedi ) .....

Pas mieux pour l'instant.

Il y a un spécialiste des shapes dans l'assemblée ?


la fonction menucell n'est pas de moi.

 

[BOISGONTIER]

Re : Liste/données validation

Version avec images:

Les dates
Les dates
Les dates



Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Column = 5 Or Target.Column = 7 _
Or Target.Column = 9 Or Target.Column = 11 Or Target.Column = 13) _
And Target.Count = 1 Then
'-- suppression
For Each s In ActiveSheet.Shapes
If s.Type = 13 Or s.Type = 1 Then
If s.TopLeftCell.Address = Target.Offset(0, 1).Address Then
s.Delete
End If
End If
Next s
'--
If Application.Match(Target, [maliste], 0) <> 6 Then
Sheets("Liste").Shapes(Application.Substitute(Target, " ", "")).Copy
Target.Offset(0, 1).Select
ActiveSheet.Paste
Selection.ShapeRange.Left = ActiveCell.Left + 5
Selection.ShapeRange.Top = ActiveCell.Top + 4
Target.Select
End If
End If
End Sub

JB

 

[Bcar]

Re : Liste/données validation

Merci à tous pour l'interet porté à mon probleme, je regarde tout ca à tete reposée et je reviens vers vous si il me reste des questions.

Amitiés,

 

[Bcar]

Re : Liste/données validation

Bonsoir Boisgontier,
J'ai reperé un fichier (jb-planningmensuelmacro) qui me plait beaucoup dans les liens que tu as insere dans ta reponse precedente. J'ai cependant quelque questions:
- Comment fare reapparaitre la "barre" si on a cliqué la croix?
- Comment faire prendre en compte dans la "barre" une eventuelle personnalisation de la liste couleur?
Merci par avance,

 

[BOISGONTIER]

Re : Liste/données validation

Bonsoir,

-Affichage/Barre d'outils permet d'afficher une barre fermée
-Si on modifie les paramètres: sauvegarder/fermer le classeur/ouvrir (la barre est créée à chaque ouv)
-J'ai enrichi la collection de plannings:Formation Excel VBA JB rubrique Dates
Il y en a avec des images comme dans ta demande initiale.

JB

 

[Bcar]

Re : Liste/données validation

Re,
J'ai vu les differents plannings c'est super, une vraie boite à outils!
J'ai une question subsidiaire:
-Est-il possible de faire un comptage des formes ou caracteres speciaux utilisés pour chaque nom?
Bonne nuit,

 

[BOISGONTIER]

Re : Liste/données validation

Bonjour,

-Pour les caractères spéciaux, il suffit d'utiliser la fonction =Nb.Si()

-Pour les images, utiliser cette fonction perso:

Function CompteImages(champ As Range, nomImage)
Application.Volatile
For Each s In ActiveSheet.Shapes
If Not Intersect(Range(s.TopLeftCell.Address), champ) Is Nothing Then
If s.Name = nomImage Then n = n + 1
End If
Next
CompteImages = n
End Function

Voir PJ ou télécharger sur le site

JB



JB

 

[Bcar]

Re : Liste/données validation

Bonjour Boisgontier,
Merci pour les infos j'ai reussi à appliquer sur mon fichier.
J'ai une autre question:
Est-il possible de ne pas imprimer le symbole de l'evenement maladie (confidentialité)?

 

[BOISGONTIER]

Re : Liste/données validation

Bonjour,

Sub imprime()
Dim temp(1000), temp2(1000), temp3(1000)
ligne = 1
For Each C In [Zone_d_impression]
If C = "Ì" Then
temp(ligne) = C.NumberFormat
temp2(ligne) = C.Address
temp3(ligne) = C.Interior.ColorIndex
C.Interior.ColorIndex = xlNone
ligne = ligne + 1
C.NumberFormat = ";;;"
End If
Next C
ActiveSheet.PrintPreview
For i = 1 To ligne - 1
Range(temp2(i)).NumberFormat = temp(i)
Range(temp2(i)).Interior.ColorIndex = temp3(i)
Next i
End Sub


JB