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
Ulysse
bien sur
avec la mise en forme conditionnelle sous le menu format !
choisir la formule est taper =nb.si(a:a;a2)>1 a:a pour choisir toute la colonne A a2 est la première cellule qui contient la valeur susceptible de se répéter et puis il faut copier la mise en forme de cette cellule à toute la colonne A
Est-il possible de prévenir la présence de doublon dans une feuille excel? 2 fois ou plus le même chiffre?
bien sur
avec la mise en forme conditionnelle sous le menu format !
choisir la formule est
taper =nb.si(a:a;a2)>1
a:a pour choisir toute la colonne A
a2 est la première cellule qui contient la valeur susceptible de se répéter
et puis il faut copier la mise en forme de cette cellule à toute la colonne A
Est-il possible de prévenir la présence de doublon dans une feuille excel?
2 fois ou plus le même chiffre?
avec la mise en forme conditionnelle sous le menu format !
choisir la formule est taper =nb.si(a:a;a2)>1 a:a pour choisir toute la colonne A a2 est la première cellule qui contient la valeur susceptible de se répéter et puis il faut copier la mise en forme de cette cellule à toute la colonne A
Est-il possible de prévenir la présence de doublon dans une feuille excel? 2 fois ou plus le même chiffre?
JB
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.x ls
JB
On 22 fév, 15:35, Andreev22 wrote:
Est-il possible de prévenir la présence de doublon dans une feuille e xcel? 2 fois ou plus le même chiffre?
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.x ls
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 e xcel?
2 fois ou plus le même chiffre?
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.x ls
JB
On 22 fév, 15:35, Andreev22 wrote:
Est-il possible de prévenir la présence de doublon dans une feuille e xcel? 2 fois ou plus le même chiffre?
Andreev22
J'ai bien essayé, mais j'arrive encore à dédoubler les chiffres dans la colonne sans problème.
Il y a peut-être qqch que je ne saisis pas. Merci
bien sur
avec la mise en forme conditionnelle sous le menu format !
choisir la formule est taper =nb.si(a:a;a2)>1 a:a pour choisir toute la colonne A a2 est la première cellule qui contient la valeur susceptible de se répéter et puis il faut copier la mise en forme de cette cellule à toute la colonne A
Est-il possible de prévenir la présence de doublon dans une feuille excel? 2 fois ou plus le même chiffre?
J'ai bien essayé, mais j'arrive encore à dédoubler les chiffres dans la
colonne sans problème.
Il y a peut-être qqch que je ne saisis pas. Merci
bien sur
avec la mise en forme conditionnelle sous le menu format !
choisir la formule est
taper =nb.si(a:a;a2)>1
a:a pour choisir toute la colonne A
a2 est la première cellule qui contient la valeur susceptible de se répéter
et puis il faut copier la mise en forme de cette cellule à toute la colonne A
Est-il possible de prévenir la présence de doublon dans une feuille excel?
2 fois ou plus le même chiffre?
J'ai bien essayé, mais j'arrive encore à dédoubler les chiffres dans la colonne sans problème.
Il y a peut-être qqch que je ne saisis pas. Merci
bien sur
avec la mise en forme conditionnelle sous le menu format !
choisir la formule est taper =nb.si(a:a;a2)>1 a:a pour choisir toute la colonne A a2 est la première cellule qui contient la valeur susceptible de se répéter et puis il faut copier la mise en forme de cette cellule à toute la colonne A
Est-il possible de prévenir la présence de doublon dans une feuille excel? 2 fois ou plus le même chiffre?
Ulysse
Salut JB
Je voudrais faire la même chose avec trois critères: dans la colonne A, B et E.
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?
Salut JB
Je voudrais faire la même chose avec trois critères: dans la colonne A, B et
E.
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
Je voudrais faire la même chose avec trois critères: dans la colonne A, B et E.
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?
Andreev22
J'ai finalement réussi après quelques essais infructueux avec la mise en forme automatique.
Merci beaucoup, ce sera très utile pour le travail que je suis en train de faire
bien sur
avec la mise en forme conditionnelle sous le menu format !
choisir la formule est taper =nb.si(a:a;a2)>1 a:a pour choisir toute la colonne A a2 est la première cellule qui contient la valeur susceptible de se répéter et puis il faut copier la mise en forme de cette cellule à toute la colonne A
Est-il possible de prévenir la présence de doublon dans une feuille excel? 2 fois ou plus le même chiffre?
J'ai finalement réussi après quelques essais infructueux avec la mise en
forme automatique.
Merci beaucoup, ce sera très utile pour le travail que je suis en train de
faire
bien sur
avec la mise en forme conditionnelle sous le menu format !
choisir la formule est
taper =nb.si(a:a;a2)>1
a:a pour choisir toute la colonne A
a2 est la première cellule qui contient la valeur susceptible de se répéter
et puis il faut copier la mise en forme de cette cellule à toute la colonne A
Est-il possible de prévenir la présence de doublon dans une feuille excel?
2 fois ou plus le même chiffre?
J'ai finalement réussi après quelques essais infructueux avec la mise en forme automatique.
Merci beaucoup, ce sera très utile pour le travail que je suis en train de faire
bien sur
avec la mise en forme conditionnelle sous le menu format !
choisir la formule est taper =nb.si(a:a;a2)>1 a:a pour choisir toute la colonne A a2 est la première cellule qui contient la valeur susceptible de se répéter et puis il faut copier la mise en forme de cette cellule à toute la colonne A
Est-il possible de prévenir la présence de doublon dans une feuille excel? 2 fois ou plus le même chiffre?
JB
http://cjoint.com/?cwtI7TNQfD
Doublons sur 3 colonnes interdits à la saisie
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect([A2:C20], Target) Is Nothing And Target.Count = 1 Then lig = Target.Row If Application.CountA(Cells(lig, 1).Resize(1, 3)) = 3 Then If Evaluate("=SUMPRODUCT((Matricule=" & Cells(lig, 1) & ")*(dates=" & CDbl(Cells(lig, 2)) & ")*(codes=""" & Cells(lig, 3) _ & """) *(Matricule<>"""")*(dates<>"""")*(codes<>""""))>1") Then MsgBox "Doublon" Target = "" End If End If End If End Sub
JB
On 22 fév, 17:00, Ulysse wrote:
Salut JB
Je voudrais faire la même chose avec trois critères: dans la colonne A, B et E.
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 -
http://cjoint.com/?cwtI7TNQfD
Doublons sur 3 colonnes interdits à la saisie
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A2:C20], Target) Is Nothing And Target.Count = 1
Then
lig = Target.Row
If Application.CountA(Cells(lig, 1).Resize(1, 3)) = 3 Then
If Evaluate("=SUMPRODUCT((Matricule=" & Cells(lig, 1) &
")*(dates=" & CDbl(Cells(lig, 2)) & ")*(codes=""" & Cells(lig, 3) _
& """) *(Matricule<>"""")*(dates<>"""")*(codes<>""""))>1")
Then
MsgBox "Doublon"
Target = ""
End If
End If
End If
End Sub
JB
On 22 fév, 17:00, Ulysse <Uly...@discussions.microsoft.com> wrote:
Salut JB
Je voudrais faire la même chose avec trois critères: dans la colonne A, B et
E.
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 -
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect([A2:C20], Target) Is Nothing And Target.Count = 1 Then lig = Target.Row If Application.CountA(Cells(lig, 1).Resize(1, 3)) = 3 Then If Evaluate("=SUMPRODUCT((Matricule=" & Cells(lig, 1) & ")*(dates=" & CDbl(Cells(lig, 2)) & ")*(codes=""" & Cells(lig, 3) _ & """) *(Matricule<>"""")*(dates<>"""")*(codes<>""""))>1") Then MsgBox "Doublon" Target = "" End If End If End If End Sub
JB
On 22 fév, 17:00, Ulysse wrote:
Salut JB
Je voudrais faire la même chose avec trois critères: dans la colonne A, B et E.
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 -
anonymousA
Bonjour,
Sans aller jusqu'à interdire sur toutes les cellules de la feuille, un petit exemple de ce que l'on peut faire avec Données/Validation Imaginons que l'on ne veuille pas qu'il y ait de doublons dans la plage A1:D10. Il suffit de se placer sur la cellule A1 puis de faire Données/Validation puis choisr dans Autoriser l'item "Personnalisé " et de saisir la formule =NB.SI($A$1:$D$10;A1)<2. puis on valide et enfin, on copie-collage spécial les validations sur toutes le cellules de la plage A1:D10. Dans ces conditions, il ne sera pas possible de saisir des doublons sans voir apparaître le message d'erreur. Il sera toujours possible d'effacer par contre.
A+
Est-il possible de prévenir la présence de doublon dans une feuille excel? 2 fois ou plus le même chiffre?
Bonjour,
Sans aller jusqu'à interdire sur toutes les cellules de la feuille, un
petit exemple de ce que l'on peut faire avec Données/Validation
Imaginons que l'on ne veuille pas qu'il y ait de doublons dans la plage
A1:D10. Il suffit de se placer sur la cellule A1 puis de faire
Données/Validation puis choisr dans Autoriser l'item "Personnalisé " et
de saisir la formule =NB.SI($A$1:$D$10;A1)<2. puis on valide et enfin,
on copie-collage spécial les validations sur toutes le cellules de la
plage A1:D10.
Dans ces conditions, il ne sera pas possible de saisir des doublons sans
voir apparaître le message d'erreur. Il sera toujours possible d'effacer
par contre.
A+
Est-il possible de prévenir la présence de doublon dans une feuille excel?
2 fois ou plus le même chiffre?
Sans aller jusqu'à interdire sur toutes les cellules de la feuille, un petit exemple de ce que l'on peut faire avec Données/Validation Imaginons que l'on ne veuille pas qu'il y ait de doublons dans la plage A1:D10. Il suffit de se placer sur la cellule A1 puis de faire Données/Validation puis choisr dans Autoriser l'item "Personnalisé " et de saisir la formule =NB.SI($A$1:$D$10;A1)<2. puis on valide et enfin, on copie-collage spécial les validations sur toutes le cellules de la plage A1:D10. Dans ces conditions, il ne sera pas possible de saisir des doublons sans voir apparaître le message d'erreur. Il sera toujours possible d'effacer par contre.
A+
Est-il possible de prévenir la présence de doublon dans une feuille excel? 2 fois ou plus le même chiffre?
