Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Besoin d'aide!!!

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion ronron51
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
R

ronron51

Guest
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.
 
Trier par date Trier par votes
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+++
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Besoin d'aide!!!

Bonsoir Ronron51,

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

Voici ta macro simplifié :
Code: 
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
 
Dernière édition:
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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 :
Code: 
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

E
  • Question Question
XL 2016 Liste déroulante "pré-chargée"
Réponses
10
Affichages
486
sylvanu
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
2 K
Pac41240
P
Z
  • Question Question
XL 2016 RECHERCHEV et double liste de choix
Réponses
2
Affichages
1 K
zendb
Z
A
  • Résolu(e)
XL 2016 Alimentation d'un fichier selon données sélectionnées via une ComboBox
Réponses
3
Affichages
695
Aldonanou
A
N
  • Question Question
XL pour MAC Créer un tableau avec liste déroulante changeant en fonction du sujet
Réponses
8
Affichages
1 K
Neckramhon
N
J
  • Question Question
XL 2019 Ajout d'un bouton fixe vba
Réponses
1
Affichages
694
jui42
J
N
  • Question Question
XL 2019 Liste déroulantes dynamiques semi automatiques
2
Réponses
24
Affichages
4 K
Nico17620
N
L
  • Question Question
XL 2013 VBA - Copier des lignes d'un autre classeur sur base d'une valeur
Réponses
0
Affichages
2 K
lestatber
L
G
  • Question Question
XL 2019 Fonction indirect et liste déroulante en cascade
Réponses
2
Affichages
2 K
gdurieux
G
M
  • Résolu(e)
XL 2016 Formulaire Excel VBA : Afficher dynamiquement des cases à cocher en fonction d'une liste déroulante
Réponses
13
Affichages
5 K
MyloX
M
O
  • Question Question
XL 2016 Macro - Sauter une étape si cellule vide
Réponses
8
Affichages
3 K
sylvanu
O
  • Question Question
Microsoft 365 Archiver des données selon choix de listes déroulantes
Réponses
0
Affichages
985
Olivier2049
O
K
  • Question Question
XL 2019 UserForm liste déroulante (cascade) avec ajout de données/modification
2 3
Réponses
38
Affichages
10 K
kinders59
K
B
  • Question Question
XL 2013 [VBA] Extraction de données basé sur 2 à 3 conditions
Réponses
2
Affichages
2 K
bastienb
B
R
  • Question Question
Microsoft 365 VBA : USERFORM FORMULAIRE
Réponses
6
Affichages
2 K
jpb388
A
  • Question Question
XL 2016 Besoin d'aide ... c'est l'embrouille dans mes formules
Réponses
0
Affichages
783
Anais0998
A
C
  • Question Question
besoin d'aide pour voir si je peux simplifier mon code sur des checkbox
Réponses
11
Affichages
1 K
mapomme
T
  • Question Question
XL 2010 Fichier de suivi de prélèvement chimiques
Réponses
2
Affichages
2 K
Tartelade
T
P
  • Question Question
XL 2013 calcul capacité charge équipe annuelle au jours le jours
Réponses
0
Affichages
9 K
PEX
P
R
  • Question Question
XL 2010 AIDE POUR CREATION MAIN COURANTE
Réponses
0
Affichages
2 K
Raphy3034
R
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…