Je voudrais faire la même chose avec trois critères.
colonne A pour les matricules
colonne B pour les dates
colonne C pour un code
merci d'avance
"JB" a écrit :
> Bonjour,
>
> Doublons interdits à la saisie. L'ancienne valeur est restituée
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Target.Column = 1 And Target.Count = 1 Then
> If Application.CountIf([A:A], Target) > 1 And Target <> "" Then
> MsgBox "Doublon"
> Target = [mémo]
> End If
> End If
> End Sub
>
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> If Target.Column = 1 And Target.Count = 1 Then
> ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34)
> & Target.Value & Chr(34)
> End If
> End Sub
>
> http://boisgontierj.free.fr/fichiers/Evenementiel/WorkSheetChangeMemorise.xls
>
> JB
>
> On 22 fév, 15:35, Andreev22 <Andree...@discussions.microsoft.com>
> wrote:
> > Est-il possible de prévenir la présence de doublon dans une feuille excel?
> > 2 fois ou plus le même chiffre?
>
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
Avec DV
http://cjoint.com/?cwvEgM8Cbp
Pour empêcher la saisie de doublons sur 3 colonnes -Sélectionner A2:C11 Données/Validation/Perso =SOMMEPROD(($A$2:$A$11=$A2)*($B$2:$B$11=$B2)*($C$2:$C$11=$C2))<2
Je voudrais faire la même chose avec trois critères. colonne A pour les matricules colonne B pour les dates colonne C pour un code
merci d'avance
Bonjour,
Doublons interdits à la saisie. L'ancienne valeur est restituée
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then If Application.CountIf([A:A], Target) > 1 And Target <> "" Then MsgBox "Doublon" Target = [mémo] End If End If End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) & Target.Value & Chr(34) End If End Sub
Est-il possible de prévenir la présence de doublon dans une feuil le excel? 2 fois ou plus le même chiffre?- Masquer le texte des messages pr écédents -
- Afficher le texte des messages précédents -
Avec DV
http://cjoint.com/?cwvEgM8Cbp
Pour empêcher la saisie de doublons sur 3 colonnes
-Sélectionner A2:C11
Données/Validation/Perso
=SOMMEPROD(($A$2:$A$11=$A2)*($B$2:$B$11=$B2)*($C$2:$C$11=$C2))<2
On 22 fév, 17:08, Ulysse <Uly...@discussions.microsoft.com> wrote:
Salut JB et tout le monde
Je voudrais faire la même chose avec trois critères.
colonne A pour les matricules
colonne B pour les dates
colonne C pour un code
merci d'avance
Bonjour,
Doublons interdits à la saisie. L'ancienne valeur est restituée
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
If Application.CountIf([A:A], Target) > 1 And Target <> "" Then
MsgBox "Doublon"
Target = [mémo]
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34)
& Target.Value & Chr(34)
End If
End Sub
On 22 fév, 15:35, Andreev22 <Andree...@discussions.microsoft.com>
wrote:
Est-il possible de prévenir la présence de doublon dans une feuil le excel?
2 fois ou plus le même chiffre?- Masquer le texte des messages pr écédents -
Pour empêcher la saisie de doublons sur 3 colonnes -Sélectionner A2:C11 Données/Validation/Perso =SOMMEPROD(($A$2:$A$11=$A2)*($B$2:$B$11=$B2)*($C$2:$C$11=$C2))<2
Je voudrais faire la même chose avec trois critères. colonne A pour les matricules colonne B pour les dates colonne C pour un code
merci d'avance
Bonjour,
Doublons interdits à la saisie. L'ancienne valeur est restituée
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then If Application.CountIf([A:A], Target) > 1 And Target <> "" Then MsgBox "Doublon" Target = [mémo] End If End If End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) & Target.Value & Chr(34) End If End Sub
Est-il possible de prévenir la présence de doublon dans une feuil le excel? 2 fois ou plus le même chiffre?- Masquer le texte des messages pr écédents -
- Afficher le texte des messages précédents -
Daniel
Bonsoir. Vérification des doublons à la saisie. Si une ligne doublonne, elle est effacée. Note : les colonnes A et C sont considérées comme alphanumériques. Si elles sont numériques, retirer deux guillemets de chaque paquet de trois. La colonne B est considérée comme une date.
Private Sub Worksheet_Change(ByVal Target As Range) Dim Plage As Range, Lignes As Long If Target.Column > 3 Or Target.Count > 3 Then Exit Sub If Target.Rows.Count > 1 Then Exit Sub Set Plage = Range("A1", Range("A65536").End(xlUp)) Lignes = Plage.Rows.Count If Evaluate("=sumproduct((A1:A" & Lignes & "=""" _ & Cells(Target.Row, 1) & """)*(B1:B" & Lignes & "=" & _ Cells(Target.Row, 2).Value * 1 & ")*(C1:C" & Lignes & _ "=""" & Cells(Target.Row, 3).Value & """))") > 1 Then MsgBox "Doublon ligne " & Target.Row Application.EnableEvents = False Cells(Target.Row, 1).Resize(1, 3) = "" Application.EnableEvents = True End If End Sub
Cordialement. Daniel "Ulysse" a écrit dans le message de news:
Salut JB et tout le monde
Je voudrais faire la même chose avec trois critères. colonne A pour les matricules colonne B pour les dates colonne C pour un code
merci d'avance
Bonjour,
Doublons interdits à la saisie. L'ancienne valeur est restituée
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then If Application.CountIf([A:A], Target) > 1 And Target <> "" Then MsgBox "Doublon" Target = [mémo] End If End If End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) & Target.Value & Chr(34) End If End Sub
Est-il possible de prévenir la présence de doublon dans une feuille excel? 2 fois ou plus le même chiffre?
Bonsoir.
Vérification des doublons à la saisie. Si une ligne doublonne, elle est
effacée.
Note : les colonnes A et C sont considérées comme alphanumériques. Si elles
sont numériques, retirer deux guillemets de chaque paquet de trois. La
colonne B est considérée comme une date.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Range, Lignes As Long
If Target.Column > 3 Or Target.Count > 3 Then Exit Sub
If Target.Rows.Count > 1 Then Exit Sub
Set Plage = Range("A1", Range("A65536").End(xlUp))
Lignes = Plage.Rows.Count
If Evaluate("=sumproduct((A1:A" & Lignes & "=""" _
& Cells(Target.Row, 1) & """)*(B1:B" & Lignes & "=" & _
Cells(Target.Row, 2).Value * 1 & ")*(C1:C" & Lignes & _
"=""" & Cells(Target.Row, 3).Value & """))") > 1 Then
MsgBox "Doublon ligne " & Target.Row
Application.EnableEvents = False
Cells(Target.Row, 1).Resize(1, 3) = ""
Application.EnableEvents = True
End If
End Sub
Cordialement.
Daniel
"Ulysse" <Ulysse@discussions.microsoft.com> a écrit dans le message de news:
0FB79876-0508-4A0C-8C1C-2118DADDB67B@microsoft.com...
Salut JB et tout le monde
Je voudrais faire la même chose avec trois critères.
colonne A pour les matricules
colonne B pour les dates
colonne C pour un code
merci d'avance
Bonjour,
Doublons interdits à la saisie. L'ancienne valeur est restituée
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
If Application.CountIf([A:A], Target) > 1 And Target <> "" Then
MsgBox "Doublon"
Target = [mémo]
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34)
& Target.Value & Chr(34)
End If
End Sub
Bonsoir. Vérification des doublons à la saisie. Si une ligne doublonne, elle est effacée. Note : les colonnes A et C sont considérées comme alphanumériques. Si elles sont numériques, retirer deux guillemets de chaque paquet de trois. La colonne B est considérée comme une date.
Private Sub Worksheet_Change(ByVal Target As Range) Dim Plage As Range, Lignes As Long If Target.Column > 3 Or Target.Count > 3 Then Exit Sub If Target.Rows.Count > 1 Then Exit Sub Set Plage = Range("A1", Range("A65536").End(xlUp)) Lignes = Plage.Rows.Count If Evaluate("=sumproduct((A1:A" & Lignes & "=""" _ & Cells(Target.Row, 1) & """)*(B1:B" & Lignes & "=" & _ Cells(Target.Row, 2).Value * 1 & ")*(C1:C" & Lignes & _ "=""" & Cells(Target.Row, 3).Value & """))") > 1 Then MsgBox "Doublon ligne " & Target.Row Application.EnableEvents = False Cells(Target.Row, 1).Resize(1, 3) = "" Application.EnableEvents = True End If End Sub
Cordialement. Daniel "Ulysse" a écrit dans le message de news:
Salut JB et tout le monde
Je voudrais faire la même chose avec trois critères. colonne A pour les matricules colonne B pour les dates colonne C pour un code
merci d'avance
Bonjour,
Doublons interdits à la saisie. L'ancienne valeur est restituée
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then If Application.CountIf([A:A], Target) > 1 And Target <> "" Then MsgBox "Doublon" Target = [mémo] End If End If End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) & Target.Value & Chr(34) End If End Sub
Est-il possible de prévenir la présence de doublon dans une feuille excel? 2 fois ou plus le même chiffre?
Ulysse
Bonjour JB OK pour Données/Validation/Perso =SOMMEPROD(($A$2:$A$11=$A2)*($B$2:$B$11=$B2)*($C$2:$C$11=$C2))<2
Je ne comprends pas MFC: =SOMMEPROD(($A$2:$A$11=$A2)*($B$2:$B$11=$B2)*($C$2:$C$11=$C2)*($A$2:$A$11<>""))>1
Merci d'éclairer ma lanterne
Ulysse
Avec DV
http://cjoint.com/?cwvEgM8Cbp
Pour empêcher la saisie de doublons sur 3 colonnes -Sélectionner A2:C11 Données/Validation/Perso =SOMMEPROD(($A$2:$A$11=$A2)*($B$2:$B$11=$B2)*($C$2:$C$11=$C2))<2
Je voudrais faire la même chose avec trois critères. colonne A pour les matricules colonne B pour les dates colonne C pour un code
merci d'avance
Bonjour,
Doublons interdits à la saisie. L'ancienne valeur est restituée
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then If Application.CountIf([A:A], Target) > 1 And Target <> "" Then MsgBox "Doublon" Target = [mémo] End If End If End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) & Target.Value & Chr(34) End If End Sub
Est-il possible de prévenir la présence de doublon dans une feuille excel? 2 fois ou plus le même chiffre?- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour JB
OK pour Données/Validation/Perso
=SOMMEPROD(($A$2:$A$11=$A2)*($B$2:$B$11=$B2)*($C$2:$C$11=$C2))<2
Je ne comprends pas
MFC:
=SOMMEPROD(($A$2:$A$11=$A2)*($B$2:$B$11=$B2)*($C$2:$C$11=$C2)*($A$2:$A$11<>""))>1
Merci d'éclairer ma lanterne
Ulysse
Avec DV
http://cjoint.com/?cwvEgM8Cbp
Pour empêcher la saisie de doublons sur 3 colonnes
-Sélectionner A2:C11
Données/Validation/Perso
=SOMMEPROD(($A$2:$A$11=$A2)*($B$2:$B$11=$B2)*($C$2:$C$11=$C2))<2
On 22 fév, 17:08, Ulysse <Uly...@discussions.microsoft.com> wrote:
Salut JB et tout le monde
Je voudrais faire la même chose avec trois critères.
colonne A pour les matricules
colonne B pour les dates
colonne C pour un code
merci d'avance
Bonjour,
Doublons interdits à la saisie. L'ancienne valeur est restituée
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
If Application.CountIf([A:A], Target) > 1 And Target <> "" Then
MsgBox "Doublon"
Target = [mémo]
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34)
& Target.Value & Chr(34)
End If
End Sub
Bonjour JB OK pour Données/Validation/Perso =SOMMEPROD(($A$2:$A$11=$A2)*($B$2:$B$11=$B2)*($C$2:$C$11=$C2))<2
Je ne comprends pas MFC: =SOMMEPROD(($A$2:$A$11=$A2)*($B$2:$B$11=$B2)*($C$2:$C$11=$C2)*($A$2:$A$11<>""))>1
Merci d'éclairer ma lanterne
Ulysse
Avec DV
http://cjoint.com/?cwvEgM8Cbp
Pour empêcher la saisie de doublons sur 3 colonnes -Sélectionner A2:C11 Données/Validation/Perso =SOMMEPROD(($A$2:$A$11=$A2)*($B$2:$B$11=$B2)*($C$2:$C$11=$C2))<2
Je voudrais faire la même chose avec trois critères. colonne A pour les matricules colonne B pour les dates colonne C pour un code
merci d'avance
Bonjour,
Doublons interdits à la saisie. L'ancienne valeur est restituée
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then If Application.CountIf([A:A], Target) > 1 And Target <> "" Then MsgBox "Doublon" Target = [mémo] End If End If End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) & Target.Value & Chr(34) End If End Sub
Est-il possible de prévenir la présence de doublon dans une feuille excel? 2 fois ou plus le même chiffre?- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
JB
La MFC colorie si on tente de saisir des doublons. Elle n'est pas indiispensable.
JB On 23 fév, 14:02, Ulysse wrote:
Bonjour JB OK pour Données/Validation/Perso =SOMMEPROD(($A$2:$A$11=$A2)*($B$2:$B$11=$B2)*($C$2:$C$11=$C2))<2
Je ne comprends pas MFC: =SOMMEPROD(($A$2:$A$11=$A2)*($B$2:$B$11=$B2)*($C$2:$C$11=$C2)*($A $2:$A$11<>""))>1
Merci d'éclairer ma lanterne
Ulysse
Avec DV
http://cjoint.com/?cwvEgM8Cbp
Pour empêcher la saisie de doublons sur 3 colonnes -Sélectionner A2:C11 Données/Validation/Perso =SOMMEPROD(($A$2:$A$11=$A2)*($B$2:$B$11=$B2)*($C$2:$C$11=$C2))<2
Je voudrais faire la même chose avec trois critères. colonne A pour les matricules colonne B pour les dates colonne C pour un code
merci d'avance
Bonjour,
Doublons interdits à la saisie. L'ancienne valeur est restituée
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then If Application.CountIf([A:A], Target) > 1 And Target <> "" Then MsgBox "Doublon" Target = [mémo] End If End If End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="= " & Chr(34) & Target.Value & Chr(34) End If End Sub
Est-il possible de prévenir la présence de doublon dans une f euille excel? 2 fois ou plus le même chiffre?- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte d es messages précédents -
- Afficher le texte des messages précédents -
La MFC colorie si on tente de saisir des doublons. Elle n'est pas
indiispensable.
JB
On 23 fév, 14:02, Ulysse <Uly...@discussions.microsoft.com> wrote:
Bonjour JB
OK pour Données/Validation/Perso
=SOMMEPROD(($A$2:$A$11=$A2)*($B$2:$B$11=$B2)*($C$2:$C$11=$C2))<2
Je ne comprends pas
MFC:
=SOMMEPROD(($A$2:$A$11=$A2)*($B$2:$B$11=$B2)*($C$2:$C$11=$C2)*($A $2:$A$11<>""))>1
Merci d'éclairer ma lanterne
Ulysse
Avec DV
http://cjoint.com/?cwvEgM8Cbp
Pour empêcher la saisie de doublons sur 3 colonnes
-Sélectionner A2:C11
Données/Validation/Perso
=SOMMEPROD(($A$2:$A$11=$A2)*($B$2:$B$11=$B2)*($C$2:$C$11=$C2))<2
On 22 fév, 17:08, Ulysse <Uly...@discussions.microsoft.com> wrote:
Salut JB et tout le monde
Je voudrais faire la même chose avec trois critères.
colonne A pour les matricules
colonne B pour les dates
colonne C pour un code
merci d'avance
Bonjour,
Doublons interdits à la saisie. L'ancienne valeur est restituée
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
If Application.CountIf([A:A], Target) > 1 And Target <> "" Then
MsgBox "Doublon"
Target = [mémo]
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="= " & Chr(34)
& Target.Value & Chr(34)
End If
End Sub
On 22 fév, 15:35, Andreev22 <Andree...@discussions.microsoft.com>
wrote:
Est-il possible de prévenir la présence de doublon dans une f euille excel?
2 fois ou plus le même chiffre?- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte d es messages précédents -
La MFC colorie si on tente de saisir des doublons. Elle n'est pas indiispensable.
JB On 23 fév, 14:02, Ulysse wrote:
Bonjour JB OK pour Données/Validation/Perso =SOMMEPROD(($A$2:$A$11=$A2)*($B$2:$B$11=$B2)*($C$2:$C$11=$C2))<2
Je ne comprends pas MFC: =SOMMEPROD(($A$2:$A$11=$A2)*($B$2:$B$11=$B2)*($C$2:$C$11=$C2)*($A $2:$A$11<>""))>1
Merci d'éclairer ma lanterne
Ulysse
Avec DV
http://cjoint.com/?cwvEgM8Cbp
Pour empêcher la saisie de doublons sur 3 colonnes -Sélectionner A2:C11 Données/Validation/Perso =SOMMEPROD(($A$2:$A$11=$A2)*($B$2:$B$11=$B2)*($C$2:$C$11=$C2))<2
Je voudrais faire la même chose avec trois critères. colonne A pour les matricules colonne B pour les dates colonne C pour un code
merci d'avance
Bonjour,
Doublons interdits à la saisie. L'ancienne valeur est restituée
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then If Application.CountIf([A:A], Target) > 1 And Target <> "" Then MsgBox "Doublon" Target = [mémo] End If End If End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="= " & Chr(34) & Target.Value & Chr(34) End If End Sub
Est-il possible de prévenir la présence de doublon dans une f euille excel? 2 fois ou plus le même chiffre?- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte d es messages précédents -
