lsite de validation

Le
Bauwens François
Bonjour,

Est-il possible qu'excel signale lorsque l'on encode une valeur de la liste
de validation si elle a déjà été utilisée ailleurs ?
Et s'il est possible que la valeur s'inscrive avec les mêmes
caractéristiques (typo, couleur,) que dans la liste ?

Merci

François
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5441391
Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
If Application.CountIf([A:A], Target) > 1 Then
MsgBox "Doublon!"
Application.EnableEvents = False
Target.ClearContents
Application.EnableEvents = True
End If
End If
End Sub

http://cjoint.com/?epmMQXnvxb

JB
http://boisgontierjacques.free.fr

On 15 avr, 12:24, "Bauwens François"
Bonjour,

Est-il possible qu'excel signale lorsque l'on encode une valeur de la list e
de validation si elle a déjà été utilisée ailleurs ?
Et s'il est possible que la valeur s'inscrive avec les mêmes
caractéristiques (typo, couleur,...) que dans la liste ?

Merci

François


Daniel.C
Le #5441351
Bonjoour.
Pour reporter le formatage (liste en colonne H, données validées en colonne
A) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Or Target.Count > 1 Then Exit Sub
Dim Ligne
Ligne = Application.Match(Target, [H:H], 0) - 1
Application.EnableEvents = False
[H1].Offset(Ligne).Copy Target
Application.EnableEvents = True
End Sub

Cordialement.
Daniel
"Bauwens François" news: %23xN$
Bonjour,

Est-il possible qu'excel signale lorsque l'on encode une valeur de la
liste
de validation si elle a déjà été utilisée ailleurs ?
Et s'il est possible que la valeur s'inscrive avec les mêmes
caractéristiques (typo, couleur,...) que dans la liste ?

Merci

François




JB
Le #5441301
http://boisgontierjacques.free.fr/pages_site/donneesvalidation.htm#Recup

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([planning], Target) Is Nothing Then
On Error Resume Next
Target.Interior.ColorIndex = [couleurs].Find(Target,
LookAt:=xlWhole).Interior.ColorIndex
End If
End Sub

JB

On 15 avr, 12:38, JB
Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 And Target.Count = 1 Then
    If Application.CountIf([A:A], Target) > 1 Then
      MsgBox "Doublon!"
      Application.EnableEvents = False
      Target.ClearContents
      Application.EnableEvents = True
    End If
  End If
End Sub

http://cjoint.com/?epmMQXnvxb

JBhttp://boisgontierjacques.free.fr

On 15 avr, 12:24, "Bauwens François"


Bonjour,

Est-il possible qu'excel signale lorsque l'on encode une valeur de la li ste
de validation si elle a déjà été utilisée ailleurs ?
Et s'il est possible que la valeur s'inscrive avec les mêmes
caractéristiques (typo, couleur,...) que dans la liste ?

Merci

François- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Publicité
Poster une réponse
Anonyme