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 ?
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
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" wrote:
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
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" <francois.bauw...@cfwb.be> wrote:
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 ?
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" wrote:
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
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" a écrit dans le message de 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
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" <francois.bauwens@cfwb.be> a écrit dans le message de
news: %23xN$xLunIHA.5160@TK2MSFTNGP05.phx.gbl...
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 ?
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" a écrit dans le message de 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 ?
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 wrote:
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" wrote:
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 -
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 <boisgont...@hotmail.com> wrote:
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" <francois.bauw...@cfwb.be> wrote:
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 -
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 wrote:
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" wrote:
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 -