Discussion :

[Grall0]

Bonjour à toutes et tous,

Je reviens vers vous car je bug sur la réalisation d'une macro pour vérifier la non présence sur une même ligne d'une feuille des valeurs de 4 Textbox.

Une petite explication:
J'ai une clé de recherche que j'utilise sur toutes mes Userform ce qui me permets de reprendre les informations pour les Textbox concernés. Sur une userform, en fonction d'une combobox, je me retrouve avec la sélection de la feuille (Année) concernée par la vérification de la non présence de certaines valeurs des Textbox de l'Userform.

En fonction des textbox (Nom_Activite, Prenom_Activite, Date_Debut_Activite et Date_Fin_Activite), je voudrais une vérification de la non présence sur une ligne de la feuille active des 4 Textbox.

Je n'arrive pas à faire une macro alors que cela doit être simple. En fin de compte, il faut tenir compte de la feuille active de la sélection de la Combobox (Annee_Activite) et recherche la valeur des Textbox. j'arrive bien pour une Textbox mais je sèche pour l'imbrication avec les autres.

Pour information, je peut avoir des doublons sur le Nom, Prenom, Debut_Activite et Fin_Activite. Je voudrais juste le msgbox ("Dejà présent et voulez valider quand même ?") avec oui ou annulation (vbOKCancel) si les valeurs des Textbox présentes.

Merci d'avance.

[BENNASR]

Bonjour
à tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
COMPARE = TextBox1.Value & TextBox2.Value & TextBox3.Value & TextBox4.Value
For i = 2 To Range("D65535").End(xlUp).Row
    If Cells(i, 1) & Cells(i, 2) & Cells(i, 3) & Cells(i, 4) = COMPARE Then
        MsgBox ("Attention, vous avez entré un doublon" & vbLf & "Voir la ligne N° :  " & i)
    End If
Next i
End Sub

[Pierre Fauconnier]

Salut.

Perso, je travaillerais avec un tableau structuré => voir mon tuto à ce sujet: https://fauconnier.developpez.com/tu...ux-structures/. Ca simplifie le code, je pense et la gestion du classeur d'une façon générale.

J'utiliserais EVALUATE pour tester l'existence avec EQUIV



Avec le tableau ci-dessus nommé Tableau1 où j'ai laissé la formule Excel pour que tu voies comment on procède, on pourrait avoir le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub btnValidate_Click()
  Dim Answer As VbMsgBoxResult
 
  Answer = vbYes
  If DataExist Then Answer = MsgBox("La ligne existe déjà, voulez-vous enregistrer?", vbQuestion + vbYesNo)
  If Answer Then SaveData
End Sub
 
Function DataExist() As Boolean
  Dim Index
  Dim Formula As String
 
  Formula = "match(1,(tableau1[Nom]=""" & tboName.Value & """)*(tableau1[Prénom]=""" & tboFirstName.Value & """)*(tableau1[Date Début]=" & CDate(tboBeginDate.Value) * 1 & ")*(tableau1[Date Fin]=" & CDate(tboEndDate.Value) * 1 & "),0)"
  Index = Evaluate(Formula)
  DataExist = Not IsError(Index)
End Function
 
Sub SaveData()
 
End Sub

NB: si tu utilises une boucle, il est préférable d'en sortir dès que possible, c'est-à-dire dès que tu as trouvé une correspondance. Pour cela, tu devrais utiliser une boucle Do While plutôt qu'une boucle For Next

[Grall0]

Bonjour,

Merci à vous deux, je teste et je prends les deux pour voir. J'avais oublié le COMPARE et sur la boucle Do While au lieu de Do Next effectivement.

Le problème principalement pour moi et qu'il me rajoute toujours un élément en plus alors que je leur avais bien demandé au départ de bien étudier les besoins.
Je pense qu'avec tous les éléments au départ, je n'aurais pas eu le problème et le code est plus propre aussi.

Je vous fais un retour en fin de semaine et je pense refaire une partie du code aussi avec vos solutions. Pour informations, je travaille sur 250/300 personnels et par année 8000 à 10000 lignes.

Bonne fin de journée et merci encore.