pb avec Select Case

[Provence Vintage]

Bonjour, le Forum,

Qui peux m'aider avec la fonction Select case, pour réecrire mon code correctement:

en fonction de Label44.Caption,
si Vrai cas 1 = Réponse1
Si faux Cas 2 = réponse2

Merci

Private Sub ReponseDoublon()
Dim réponse1
Dim réponse2
Dim cel As Range

Worksheets("bdd acheteur").Activate
Set cel = Range("A1")
Set cel = Columns(1).Find(What:=Label44.Caption, After:=cel, _
LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)


Select Case ActiveCell

Case1 = False

réponse1 = MsgBox(" Cet Acquéreur n'éxiste pas, Voulez Vous créer sa Fiche ? ", vbYesNo + vbQuestion, "Validation")
If réponse1 = vbNo Then
Nom = ""
Nom.SetFocus
Exit Sub
End If
If réponse1 = vbYes Then
TelFixe.SetFocus
End If

Case2 = True

réponse2 = MsgBox(" Cet Acquéreur éxiste déjà, Voulez Vous Modifier sa Fiche ? ", vbYesNo + vbQuestion, "Validation")
If réponse2 = vbNo Then
Nom = ""
Nom.SetFocus
Exit Sub
End If
If réponse2 = vbYes Then
Nom.SetFocus
End If




Worksheets("bdd acheteur").Activate
Set cel = Range("A1")
Set cel = Columns(1).Find(What:=Nom, After:=cel, _
LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If Not cel Is Nothing Then
Application.ScreenUpdating = False
L = cel.Row

TelFixe = Cells(L, "E")
Mail = Cells(L, "F")
DateCréationacheteur = Cells(L, "G")
BudgetFAI = Cells(L, "H")
VilleExclueChoix1 = Cells(L, "J")
VilleChoix2 = Cells(L, "K")
VilleChoix3 = Cells(L, "L")
VilleChoix4 = Cells(L, "M")
VilleChoix5 = Cells(L, "N")
TypedeSecteur = Cells(L, "O")
TypeT = Cells(L, "Q")
SurfaceHabitableMini = Cells(L, "S")
SurfaceTerrainMini = Cells(L, "T")
Commentaires = Cells(L, "AB")
TravailMME = Cells(L, "AD")
TravailMR = Cells(L, "AE")
NombreMoisRecherche = Cells(L, "AJ")

If Cells(L, "I") = "Oui" Then
TousSecteurs = True
Else: TousSecteurs = False
..............

 

[Roland_M]

Re : pb avec Select Case

bonjour

si j'ai bien tout compris !?

Select Case Label44.Caption
Case False:


Case True:



End Select

 

[Pierrot93]

Re : pb avec Select Case

Bonjour,

cmprends pas trop, tu dis :

en fonction de Label44.Caption,
si Vrai cas 1 = Réponse1

et ensuite

Select Case ActiveCell

tu veux tester quoi ? le lavel ou la cellule active ?

D'autre part, tu n'es pas nouveau, utilise au moins les balises (l'icone #) pour mettre un code quand tu crées un message, ca permet de le rendre plus lisible... Et un petit fichier joint est souvent très utile pour permettre de voir le résultat attendu...

bon après midi
@+

 

[Provence Vintage]

Re : pb avec Select Case

Roland, Pierrot, Le Fil,


Voici ce que je met en sortie de ma textBox:

#Private Sub TelMobile_afterupdate()
TelMobile.Value = Format(TelMobile.Value, "0# ## ## ## ##")
Label44.Caption = Nom.Value & " " & Prenom.Value & " " & Right(TelMobile, 8)
End Sub

(Ceci pour vérifier qu'il n'y a pas de Doublons dans la bdd, avec une clef unique!)

Ensuite, j'appel la recherche de Doublons

#Private Sub TelMobile_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call ReponseDoublon
End Sub

Soit le label est dans la bdd est là messageBox réponse1, soit il n'est pas et messaBox2

et ensuite ce que tu as vu + haut, en effet je me suis planté avec Activecell

Merci pour votre aide

 

[Roland_M]

Re : pb avec Select Case

re:

ce n'est pas un select case qu'il te faut !
mais un boucle de recherche dans une liste donnée pour savoir si ce nom existe ou pas !?