Macro : Vérifier contenu d'un Textbox

Emmanuel31100

XLDnaute Nouveau
Bonjour à tous!:cool:

Est-il possible de créer une macro vba permettant de prévenir un utilisateur lors de l'inscription de données dans un textbox si la valeur inscrite dans la textbox a déjà été saisie.

Plus de détails:p:

J'utilise un USF avec plusieurs textbox me permettant de saisir directement dans le mois actuel des nouveaux dossiers. Voici le code du bouton 'OK':

Code:
Private Sub CommandButton1_Click()
Dim rp As Long
Dim today As Date

With Sheets(MonthName(Month(Date)))
    rp = .Range("A65000").End(xlUp).Row + 1 'première ligne vide colonne A
    .Cells(rp, 1) = TextBox1
    .Cells(rp, 2) = Textbox2
    .Cells(rp, 3) = Textbox3
         
End If

End With
Unload Me
If CheckBox1 = True Then UserForm1.Show

J'aimerais que lorsque je clique sur 'OK', avant d'exécuter le code, la nouvelle macro recherche dans chaque feuille si le nom inscrit dans le textbox existe déjà et du coup lance un Msgbox du style :

Code:
MsgBox "Un dossier a déjà été créé sous cette référence. Voulez-vous continuer l'opération?", vbYesNo

Dans le cas ou l'utilisateur cliquerait sur Oui alors application normale de l'USF. Si l'utilisateur clique sur non, alors annulation de la procédure.

Donc voila, j'espère avoir été clair :)confused:) et j'espère que l'un d'entre vous aura une solution à m'apporter!:D

Un grand merci d'avance, ;)

Emmanuel
 

Discussions similaires

  • Question
Microsoft 365 TEXTBOX
Réponses
7
Affichages
420

Statistiques des forums

Discussions
312 778
Messages
2 092 040
Membres
105 162
dernier inscrit
djikon