Avec l'aide d'un userform, je veux ajouter des données dans mon tableau avec
des textbox (1 à 4). Mon problème est que cela ajoute des doublons. Comment
écrire le code pour qu'il n'y ait pas ces doublons ?
Je peux poster un fichier si nécessaire pour vous aider.
Merci
Private Sub CmdValider_Click()
Dim An As Integer
Dim Tblo As Variant, Ligne As Long
Dim A As Variant
Dim S As String, Pattern As String
Dim Num As Variant
With Sheets("Inventaire")
Ligne = .Range("a65536").End(xlUp).Row
Tblo = .Range("a2:c" & Ligne)
If Me.ComboBox1.ListIndex <> -1 Then
A = Application.Match(ComboBox1.Value, Tblo, 0)
If Not IsError(A) Then
Ligne = A + 1
End If
If Me.ComboBox2.ListIndex <> -1 Then
A = Application.Match(ComboBox1.Value, Tblo, 0)
If Not IsError(A) Then
Ligne = A + 1
End
If Me.ComboBox3.ListIndex <> -1 Then
A = Application.Match(ComboBox1.Value, Tblo, 0)
If Not IsError(A) Then
Ligne = A + 1
End
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
Daniel
Bonjour. Tu veux dire des doublons dans une colonne ou sur la ligne complète ? Cordialement. Daniel "François" a écrit dans le message de news: vEtgf.11842$
Bonsoir,
Avec l'aide d'un userform, je veux ajouter des données dans mon tableau avec des textbox (1 à 4). Mon problème est que cela ajoute des doublons. Comment écrire le code pour qu'il n'y ait pas ces doublons ?
Je peux poster un fichier si nécessaire pour vous aider.
Merci
Private Sub CmdValider_Click() Dim An As Integer Dim Tblo As Variant, Ligne As Long Dim A As Variant Dim S As String, Pattern As String Dim Num As Variant
With Sheets("Inventaire") Ligne = .Range("a65536").End(xlUp).Row Tblo = .Range("a2:c" & Ligne) If Me.ComboBox1.ListIndex <> -1 Then A = Application.Match(ComboBox1.Value, Tblo, 0) If Not IsError(A) Then Ligne = A + 1 End If If Me.ComboBox2.ListIndex <> -1 Then A = Application.Match(ComboBox1.Value, Tblo, 0) If Not IsError(A) Then Ligne = A + 1 End If Me.ComboBox3.ListIndex <> -1 Then A = Application.Match(ComboBox1.Value, Tblo, 0) If Not IsError(A) Then Ligne = A + 1 End
Bonjour.
Tu veux dire des doublons dans une colonne ou sur la ligne complète ?
Cordialement.
Daniel
"François" <hohoho@itsachristmas.time> a écrit dans le message de news:
vEtgf.11842$Os4.503534@wagner.videotron.net...
Bonsoir,
Avec l'aide d'un userform, je veux ajouter des données dans mon tableau
avec des textbox (1 à 4). Mon problème est que cela ajoute des doublons.
Comment écrire le code pour qu'il n'y ait pas ces doublons ?
Je peux poster un fichier si nécessaire pour vous aider.
Merci
Private Sub CmdValider_Click()
Dim An As Integer
Dim Tblo As Variant, Ligne As Long
Dim A As Variant
Dim S As String, Pattern As String
Dim Num As Variant
With Sheets("Inventaire")
Ligne = .Range("a65536").End(xlUp).Row
Tblo = .Range("a2:c" & Ligne)
If Me.ComboBox1.ListIndex <> -1 Then
A = Application.Match(ComboBox1.Value, Tblo, 0)
If Not IsError(A) Then
Ligne = A + 1
End If
If Me.ComboBox2.ListIndex <> -1 Then
A = Application.Match(ComboBox1.Value, Tblo, 0)
If Not IsError(A) Then
Ligne = A + 1
End
If Me.ComboBox3.ListIndex <> -1 Then
A = Application.Match(ComboBox1.Value, Tblo, 0)
If Not IsError(A) Then
Ligne = A + 1
End
Bonjour. Tu veux dire des doublons dans une colonne ou sur la ligne complète ? Cordialement. Daniel "François" a écrit dans le message de news: vEtgf.11842$
Bonsoir,
Avec l'aide d'un userform, je veux ajouter des données dans mon tableau avec des textbox (1 à 4). Mon problème est que cela ajoute des doublons. Comment écrire le code pour qu'il n'y ait pas ces doublons ?
Je peux poster un fichier si nécessaire pour vous aider.
Merci
Private Sub CmdValider_Click() Dim An As Integer Dim Tblo As Variant, Ligne As Long Dim A As Variant Dim S As String, Pattern As String Dim Num As Variant
With Sheets("Inventaire") Ligne = .Range("a65536").End(xlUp).Row Tblo = .Range("a2:c" & Ligne) If Me.ComboBox1.ListIndex <> -1 Then A = Application.Match(ComboBox1.Value, Tblo, 0) If Not IsError(A) Then Ligne = A + 1 End If If Me.ComboBox2.ListIndex <> -1 Then A = Application.Match(ComboBox1.Value, Tblo, 0) If Not IsError(A) Then Ligne = A + 1 End If Me.ComboBox3.ListIndex <> -1 Then A = Application.Match(ComboBox1.Value, Tblo, 0) If Not IsError(A) Then Ligne = A + 1 End
"François" a écrit dans le message de news: vEtgf.11842$ Bonsoir,
Avec l'aide d'un userform, je veux ajouter des données dans mon tableau avec des textbox (1 à 4). Mon problème est que cela ajoute des doublons. Comment écrire le code pour qu'il n'y ait pas ces doublons ?
Je peux poster un fichier si nécessaire pour vous aider.
Merci
Private Sub CmdValider_Click() Dim An As Integer Dim Tblo As Variant, Ligne As Long Dim A As Variant Dim S As String, Pattern As String Dim Num As Variant
With Sheets("Inventaire") Ligne = .Range("a65536").End(xlUp).Row Tblo = .Range("a2:c" & Ligne) If Me.ComboBox1.ListIndex <> -1 Then A = Application.Match(ComboBox1.Value, Tblo, 0) If Not IsError(A) Then Ligne = A + 1 End If If Me.ComboBox2.ListIndex <> -1 Then A = Application.Match(ComboBox1.Value, Tblo, 0) If Not IsError(A) Then Ligne = A + 1 End If Me.ComboBox3.ListIndex <> -1 Then A = Application.Match(ComboBox1.Value, Tblo, 0) If Not IsError(A) Then Ligne = A + 1 End
"François" <hohoho@itsachristmas.time> a écrit dans le message de news: vEtgf.11842$Os4.503534@wagner.videotron.net...
Bonsoir,
Avec l'aide d'un userform, je veux ajouter des données dans mon tableau avec
des textbox (1 à 4). Mon problème est que cela ajoute des doublons. Comment
écrire le code pour qu'il n'y ait pas ces doublons ?
Je peux poster un fichier si nécessaire pour vous aider.
Merci
Private Sub CmdValider_Click()
Dim An As Integer
Dim Tblo As Variant, Ligne As Long
Dim A As Variant
Dim S As String, Pattern As String
Dim Num As Variant
With Sheets("Inventaire")
Ligne = .Range("a65536").End(xlUp).Row
Tblo = .Range("a2:c" & Ligne)
If Me.ComboBox1.ListIndex <> -1 Then
A = Application.Match(ComboBox1.Value, Tblo, 0)
If Not IsError(A) Then
Ligne = A + 1
End If
If Me.ComboBox2.ListIndex <> -1 Then
A = Application.Match(ComboBox1.Value, Tblo, 0)
If Not IsError(A) Then
Ligne = A + 1
End
If Me.ComboBox3.ListIndex <> -1 Then
A = Application.Match(ComboBox1.Value, Tblo, 0)
If Not IsError(A) Then
Ligne = A + 1
End
"François" a écrit dans le message de news: vEtgf.11842$ Bonsoir,
Avec l'aide d'un userform, je veux ajouter des données dans mon tableau avec des textbox (1 à 4). Mon problème est que cela ajoute des doublons. Comment écrire le code pour qu'il n'y ait pas ces doublons ?
Je peux poster un fichier si nécessaire pour vous aider.
Merci
Private Sub CmdValider_Click() Dim An As Integer Dim Tblo As Variant, Ligne As Long Dim A As Variant Dim S As String, Pattern As String Dim Num As Variant
With Sheets("Inventaire") Ligne = .Range("a65536").End(xlUp).Row Tblo = .Range("a2:c" & Ligne) If Me.ComboBox1.ListIndex <> -1 Then A = Application.Match(ComboBox1.Value, Tblo, 0) If Not IsError(A) Then Ligne = A + 1 End If If Me.ComboBox2.ListIndex <> -1 Then A = Application.Match(ComboBox1.Value, Tblo, 0) If Not IsError(A) Then Ligne = A + 1 End If Me.ComboBox3.ListIndex <> -1 Then A = Application.Match(ComboBox1.Value, Tblo, 0) If Not IsError(A) Then Ligne = A + 1 End
