PROBLEMES EN VBA
capucine
-
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
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!
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!
A voir également:
- PROBLEMES EN VBA
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Mkdir vba ✓ - Forum VB / VBA
- Dépassement de capacité vba ✓ - Forum Excel
1 réponse
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 :
;o)
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)
