Bonjour,
Comment tester si une cellule contient une validation de données?
if Cells(1,1).validation.(????)=true (par quoi remplacer ?? ) ou existe-il
une autre methode
Merci pour votre aide
Cordialement
Hugo
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonsoir,
For Each c In Cells.SpecialCells(xlCellTypeAllValidation)
Next c
Exemple pour positionner les menus sur le premier élément de chaque liste:
Sub raz() For Each c In Cells.SpecialCells(xlCellTypeAllValidation) If Left(c.Validation.Formula1, 1) = "=" Then NomList = Mid(c.Validation.Formula1, 2) c.Value = Range(NomList)(1) Else temp = c.Validation.Formula1 a = Split(temp, ";") c.Value = a(0) End If Next c End Sub
JB On 30 sep, 18:40, hugo2009 wrote:
Bonjour, Comment tester si une cellule contient une validation de données? if Cells(1,1).validation.(????)=true (par quoi remplacer ?? ) ou existe -il une autre methode Merci pour votre aide Cordialement Hugo
Bonsoir,
For Each c In Cells.SpecialCells(xlCellTypeAllValidation)
Next c
Exemple pour positionner les menus sur le premier élément de chaque
liste:
Sub raz()
For Each c In Cells.SpecialCells(xlCellTypeAllValidation)
If Left(c.Validation.Formula1, 1) = "=" Then
NomList = Mid(c.Validation.Formula1, 2)
c.Value = Range(NomList)(1)
Else
temp = c.Validation.Formula1
a = Split(temp, ";")
c.Value = a(0)
End If
Next c
End Sub
JB
On 30 sep, 18:40, hugo2009 <hugo2...@discussions.microsoft.com> wrote:
Bonjour,
Comment tester si une cellule contient une validation de données?
if Cells(1,1).validation.(????)=true (par quoi remplacer ?? ) ou existe -il
une autre methode
Merci pour votre aide
Cordialement
Hugo
For Each c In Cells.SpecialCells(xlCellTypeAllValidation)
Next c
Exemple pour positionner les menus sur le premier élément de chaque liste:
Sub raz() For Each c In Cells.SpecialCells(xlCellTypeAllValidation) If Left(c.Validation.Formula1, 1) = "=" Then NomList = Mid(c.Validation.Formula1, 2) c.Value = Range(NomList)(1) Else temp = c.Validation.Formula1 a = Split(temp, ";") c.Value = a(0) End If Next c End Sub
JB On 30 sep, 18:40, hugo2009 wrote:
Bonjour, Comment tester si une cellule contient une validation de données? if Cells(1,1).validation.(????)=true (par quoi remplacer ?? ) ou existe -il une autre methode Merci pour votre aide Cordialement Hugo