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.

 

[Bcar]

Re : Liste/données validation

Bonsoir Boisgontier,
Merci pour ta reponse, peux-tu expliciter le code?
Cordialement,

 

[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]   ' chaque cellule de la zone d'impression
    If C = "Ì" Then                   ' est-ce le caractère +
      temp(ligne) = C.NumberFormat    ' on sauvegarde le format, l'adresse, la couleur
      temp2(ligne) = C.Address
      temp3(ligne) = C.Interior.ColorIndex
      C.Interior.ColorIndex = xlNone  ' on supprime la couleur
      ligne = ligne + 1
      C.NumberFormat = ";;;"          ' format invisible
    End If
  Next C
  ActiveSheet.PrintPreview            ' impression
  For i = 1 To ligne - 1              ' on restitue les formats et couleurs
    Range(temp2(i)).NumberFormat = temp(i)
    Range(temp2(i)).Interior.ColorIndex = temp3(i)
  Next i
End Sub

JB

 

[Bcar]

Re : Liste/données validation

Bonjour,
J'ai essayé le fichier attaché et la feuille s'imprime sans "oublier" le symbole maladie.
J'utilise Microsoft Office Excel 2003 sur PC portable lenovo T60 avec Windows XP.
Salutations,

 

[Bcar]

Re : Liste/données validation

bonsoir Boisgontier,
J'ai essayé le fichier joint mais le symbole maladie n'est pas "oublié" lors de l'impression.J'utilise Excel 2003 sous XP.
Par ailleurs peux tu explicité le code?
Cordialement,

 

[Bcar]

Re : Liste/données validation

Bonsoir Boisgontier,
J'ai essayé le fichier joint mais le symbole maladie n'est pas "oublié" lors de l'impression.
J'utilise Excel 2003 sous XP.
Cordialement,