blocage de saisie des occurences serie de chiffre dans une ligne

[marcoss0]

Bonjour,

Ma question est simple peut être traiter avant!

Je cherche à contrôler s'il y a des occurrences fait lors de la saisie des chiffre par ligne. ou bien il m'affiche le nombre d’occurrence ou bien un message box m'interdisant de continuer la saisie.

Merci d'avance 🙂

Marcos

 

[Dranreb]

Re : blocage de saisie des occurences serie de chiffre dans une ligne

Bonjour.
Cette procédure dans le module de la feuille interdirait la saisie d'un doublon dans la colonne A:

Private Sub Worksheet_Change(ByVal  Target As Range)
Dim L As Long
If Target.Column > 1 Or Target.Count <> 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
L = WorksheetFunction.CountIf(Me.[A:A], Target.Value)
If L < 2 Then Exit Sub
MsgBox """" & Target.Value & """ existe déjà.", vbCritical, "Saisie d'un doublon"
Target.ClearContents: Target.Select
End Sub

Cordialement.

 

[marcoss0]

Re : blocage de saisie des occurences serie de chiffre dans une ligne

Merci pour la réponse et si on veut la faire parl ligne?

 

[Gardien de phare]

Re : blocage de saisie des occurences serie de chiffre dans une ligne

Bonjour,

Pour la ligne 1, ça ferait ce qui suit :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim L As Long
If Target.Row > 1 Or Target.Count <> 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
L = WorksheetFunction.CountIf(Me.[1:1], Target.Value)
If L < 2 Then Exit Sub
MsgBox """" & Target.Value & """ existe déjà.", vbCritical, "Saisie d'un doublon"
Target.ClearContents: Target.Select
End Sub

PS je pense que tu aurais pu trouver tout seul et que de le faire t'aurait aidé à apprendre !