Eviter les doublons formulaire VBA
Bonjour, j'ai une cellule dans mon tableau excel que contient un code unique c à d qu'il faut qu'il ne contient pas des doublons comment faire pour empcher mon formulaire deux saisir les doublons sur cette cellule
Une combobox sans doublon?
=>
https://forum.excel-pratique.com/excel/combobox-sans-doublon-t30653.html
Merci j'ai fait cela mais ça ne fonctionne pas.
ith Sheets("Remplissage")
For Each cell In .Range("D3:D" & .Range("D65536").End(xlUp).Row)
If Not cell = TextGDO Then
Range("A" & num).Value = TextHTA
Range("B" & num).Value = TextNom
Range("C" & num).Value = TextExploit
Range("D" & num).Value = TextGDO
Range("E" & num).Value = Formulaire.ComboBoxPPI
Range("F" & num).Value = TextPoste
Range("G" & num).Value = TextCommune
Range("H" & num).Value = Formulaire.ComboBoxModèle
Range("I" & num).Value = Formulaire.ComboBoxConstructeur
Range("J" & num).Value = Formulaire.ComboBoxTechnologie
Range("K" & num).Value = Formulaire.ComboBoxTypeILD
Range("L" & num).Value = Formulaire.ComboBoxAnnéeBatterie
Range("M" & num).Value = TextCalibrePossible.Value
Range("N" & num).Value = TextRéglageEffectif.Value
Range("O" & num).Value = TextRéglagePréconisé.Value
Range("P" & num).Value = Formulaire.ComboBoxDateControle
Range("Q" & num).Value = Formulaire.ComboBoxAnnéeControleValise
Range("R" & num).Value = TextGéocutil.Value
Range("S" & num).Value = TextTerrain.Value
Range("T" & num).Value = Formulaire.ComboBoxBatterie
Range("U" & num).Value = Formulaire.ComboBoxPlatine
Range("V" & num).Value = Formulaire.ComboBoxVoyant
Range("W" & num).Value = Formulaire.ComboBoxTorres
Range("X" & num).Value = Formulaire.ComboBoxModificationSchémas
Range("Y" & num).Value = TextContenuACR.Value
Range("Z" & num).Value = TextActionVisite.Value
Range("AA" & num).Value = TextActionUltérieurement.Value
Range("AB" & num).Value = Formulaire.ComboBoxSiteOpérationnel
Range("AC" & num).Value = Formulaire.ComboBoxRésultat
Exit For
Else
Modif = MsgBox("cette personne est déjà référencée dans la base" & Chr(10) & Chr(10) & _
"Voulez-vous remplacer ces données ?", vbYesNo + vbQuestion, "Demande d'enregistrement")
' On remplace la somme et le commentaire
If Modif = vbYes Then
Range("A" & num).Value = TextHTA
Range("B" & num).Value = TextNom
Range("C" & num).Value = TextExploit
Range("D" & num).Value = TextGDO
Range("E" & num).Value = Formulaire.ComboBoxPPI
Range("F" & num).Value = TextPoste
Range("G" & num).Value = TextCommune
Range("H" & num).Value = Formulaire.ComboBoxModèle
Range("I" & num).Value = Formulaire.ComboBoxConstructeur
Range("J" & num).Value = Formulaire.ComboBoxTechnologie
Range("K" & num).Value = Formulaire.ComboBoxTypeILD
Range("L" & num).Value = Formulaire.ComboBoxAnnéeBatterie
Range("M" & num).Value = TextCalibrePossible.Value
Range("N" & num).Value = TextRéglageEffectif.Value
Range("O" & num).Value = TextRéglagePréconisé.Value
Range("P" & num).Value = Formulaire.ComboBoxDateControle
Range("Q" & num).Value = Formulaire.ComboBoxAnnéeControleValise
Range("R" & num).Value = TextGéocutil.Value
Range("S" & num).Value = TextTerrain.Value
Range("T" & num).Value = Formulaire.ComboBoxBatterie
Range("U" & num).Value = Formulaire.ComboBoxPlatine
Range("V" & num).Value = Formulaire.ComboBoxVoyant
Range("W" & num).Value = Formulaire.ComboBoxTorres
Range("X" & num).Value = Formulaire.ComboBoxModificationSchémas
Range("Y" & num).Value = TextContenuACR.Value
Range("Z" & num).Value = TextActionVisite.Value
Range("AA" & num).Value = TextActionUltérieurement.Value
Range("AB" & num).Value = Formulaire.ComboBoxSiteOpérationnel
Range("AC" & num).Value = Formulaire.ComboBoxRésultat
Exit For
End If
If Modif = vbNo Then
Exit For
End If
End If
Next
End With