PROBLEMES EN VBA

Fermé
capucine - 9 avril 2009 à 11:16
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 9 avril 2009 à 11:41
Merci beaucoup pour ta réponse!

On a deux autres problèmes:
on souhaiterait que plusieurs checkbox puissent être cocher en fonction de certains critères. Il y a 3 checkbox, on a fait des formules si:

If (bt_€santé = 0) Then
bt_persosanté = False
ElseIf (Val(bt_€santé) > 0) Then
bt_persosanté = True
End If

If (bt_€vie = 0) Then
bt_persovie = False
ElseIf (Val(bt_€vie) > 0) Then
bt_persovie = True
End If

If (bt_€habitation = 0) Then
bt_persohab = False
ElseIf (Val(bt_€habitation) > 0) Then
bt_persohab = True
End If


Ca ne marche pas, il ya qu'un seul checkbox qui peut se cocher à la fois alors qu'on voudrait soit 1 coché, soit 2 coché soit 3 coché selon les critères.

Peux tu nous aider stp?



dernière question:
On a un problème avec cette formule ci dessous, on souhaite rechercher dans notre base de données le revenu du client sélectionné et si son revenu et supérieur à 35000€ alors la case revenu sup 35 000 est cochée sinon la case revenu inf 35 000€ est cochée, voici notre formule

'Recherche du revenu du client
Revenu = Int(Application.WorksheetFunction.VLookup(bt_client.Value, Worksheets("Données").Range("A6:J87"), 6))
If (Revenu >= 35000) Then
bt_sup35 = True
Else
bt_inf35 = True
End If

Merci d'avance!

1 réponse

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
9 avril 2009 à 11:41
Bonjour,

Je suppose que tu fais référence à ce post : http://www.commentcamarche.net/forum/affich 11914419 vba filtre automatique

Il aurait été souhaitable de continuer sur le même post, pour alerter le helpeur (lermite ici).

Peux-tu nous dire quel type de contrôle sont : bt_€santé, bt_€Vie et bt_€habitation ? Le ElseIf n'est pas nécessaire, tu peux faire :

If (bt_€santé = 0) Then 
   bt_persosanté.Value = False 
Else
   bt_persosanté.Value = True 
End If 


;o)
0