COMMENT VIDER DES CELLULES EXCEL ?

Bonjour,
j'essaye de vider en même temps avec du code VBA des cellules qui ont des valeurs et aussi des cellules qui sont sous forme de listes deroulantes.
vider les cellules qui ont des valeurs ça marche

Range("B13:D13").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents

mais pour les cellules qui sont sous forme de liste deroulante, je n'y arrive pas à les vider et à supprimer ces listes

merci de m'aider

cordialement
Configuration: Windows XP Internet Explorer 6.0

3 réponses

  • Votes
  • Date
  • Date décroissante
  1. Contributeur
    Bonjour
    essayez
    Range("....:....:....").Select
    With Selection.Validation
    .Delete
    .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
    :=xlBetween
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True
    End With
    End Sub
    Crdlmnt
    1. Bonjour,
      je te remercie pour cette reponse,
      dans le même sens, je voudrai colorer ces cellules par une couleur bien precise
      merci d'avance
  2. Contributeur
    Re
    dans le même sens, je voudrai colorer ces cellules par une couleur bien precise

    avec la macro?
    Range("A8").Select
    With Selection.Interior
    .ColorIndex = 6
    .Pattern = xlSolid
    End With
    je n'ai pas les codes couleur en tête.le 6 est jaune

    Crdlmnt
    1. Merci beaucoup