Besoin d'aide!!!

[ronron51]

Bonjour je suis étudiant en logistique et transport et dois réaliser un projet sur excel et vba. Cependant j'ai un soucis :
je dispose d'un userform composé de 3 listes déroulantes permettant la création d'un tableau dans excel .
L'utilisateur doit selectionner ses données dans les 3 listes. Je cherche à réaliser au moment de la validation un controle permettant de verifier si les couples de données saisies (ex: 1+2+3) ne sont pas déja existantes dans mon tableau.

Que dois je faire pour effectuer un controle au moment de la validation?

Merci par avance pour votre aide.

 

[roro69]

Re : Besoin d'aide!!!

Bonsoir voci ce que je tenterais .Dans le code du bouton de validation:

Dim n ,DerLigne As Integer,msgerreur
For n = Range("A65536").End(xlUp).Row To 1 Step -1
On Error Resume Next
If Range("A" & n) = Range("A" & n - 1) Then
msgerreur = MsgBox(vbTab & "Attention doublon !", vbOKOnly + vbExclamation, "AJOUT IMPOSSIBLE, DONNEE existante")
Exit Sub
End If
Next n
DerLigne = ActiveSheet.Range("A65536").End(xlUp).Row + 1
With ActiveSheet
.Cells(DerLigne, 1) = ComboBox1
.Cells(DerLigne, 2) = ComboBox2
.Cells(DerLigne, 3) = ComboBox3
End With

A+++

 

[Excel-lent]

Re : Besoin d'aide!!!

Bonjour Ronron51, le fil,

Sans cas concret, difficile de répondre précisement!

De façon théorique :
-> rajouter une colonne où tu "concatène" tes 3 colonnes. Tu concatène dans VBA tes 3 listes déroulantes, puis tu compare les deux ensemble!

-> tout faire dans le code VBA sans rajout de colonne.

Bonne soirée

 

[ronron51]

Re : Besoin d'aide!!!

bonsoir et merci de votre réponse excel lent !!!

voici en pièce jointe un exemple concret et plus précis de ce que je souhaite faire.
Je voudrais donc un controle me permettant d'éviter la redondance des informations dans mon tableau .

merci bcp de l'aide que vous pourrez m'apporter .
bonne soirée

ronron

 

[Excel-lent]

Re : Besoin d'aide!!!

Bonsoir Ronron51,

Pas besoin, en [A11] d'indiquer le nombre de ligne de tableau.

Voici ta macro simplifié :

Private Sub Valider_Click()

On Error Resume Next

Dim A As Integer
    
A = Range("A65536").End(xlUp).Row + 1
    
Cells(A, 1) = tournee
Cells(A, 2) = ville
Cells(A, 3) = jour
   
'fin

Call ra

 End Sub
'Effacer les champs
Private Sub ra()
tournee = ""
ville = ""
jour = ""
End Sub

Dans ton exemple, je n'ai pas vu à quoi pouvait bien servir tous ces "copier", j'ai donc fais du ménage! 🙂

Edition : Roro69 a fini la partie "gestion des doublons", je m'incline donc et en reste là (j'aurais pas fais mieux!)

Bonne soirée

 

[ronron51]

Re : Besoin d'aide!!!

merci, mais si j'ai bien compris cela ne me permet pas de controler la saisie dans l'userform pour éviter que l'utilisateur saisisse deux fois la meme chose. en fait c'est cela dont j'ai besoin.

Merci

 

[Excel-lent]

Re : Besoin d'aide!!!

Bonjour Ronron51, Roro69,

La macro de Roro69 vérifie les doublons, mais que pour la donnée "tournée"

Essaye la macro ci-dessous :

Private Sub Valider_Click()

On Error Resume Next

Dim A As Integer
    
A = Range("A65536").End(xlUp).Row + 1
    
For i = 13 To Range("A65536").End(xlUp).Row
  If Range("A" & i) & Range("B" & i) & Range("C" & i) = tournee & ville & jour Then
msgerreur = MsgBox(vbTab & "Attention doublon !", vbOKOnly + vbExclamation, "AJOUT IMPOSSIBLE, DONNEE existante")
      Exit Sub
  End If
Next i

Cells(A, 1) = tournee
Cells(A, 2) = ville
Cells(A, 3) = jour
   
'fin

Call ra

 End Sub
'Effacer les champs
Private Sub ra()
tournee = ""
ville = ""
jour = ""
End Sub