COMMENT VIDER DES CELLULES EXCEL ?
bfiguig
-
bfiguig -
bfiguig -
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
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
A voir également:
- COMMENT VIDER DES CELLULES EXCEL ?
- Verrouiller des cellules excel - Guide
- Liste déroulante excel - Guide
- Excel additionner plusieurs cellules - Guide
- Word et excel gratuit - Guide
- Comment trier par ordre alphabétique sur excel - Guide
3 réponses
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
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
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
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
je te remercie pour cette reponse,
dans le même sens, je voudrai colorer ces cellules par une couleur bien precise
merci d'avance