valeur textbox + optionbutton

[grisan29]

bonjour a vous tous

dans le fichier joint comment peut 'on faire pour que le chiffre(ici écrit en dur) puisse être envoyer en

col A End(xlUp)

comme le sont les optionbuttons en col B
mais avant d'etre envoyer sur la feuille comment peut 'on le multiplier par le choix qui sera fait avec les optionbuttons soit
optionbutton1 =tva7
optionbutton2 =tva19,6

afin de mettre la réponse dans mon autre fichier

si je me suis bien expliqué!!

Pascal

 

[mécano41]

Re : valeur textbox + optionbutton

Bonjour,

Essaie cela (à mettre dans le code de la feuille)...dès que tu changes la valeur en B2, elle est reportée à la suite en A..

Sub Worksheet_Change(ByVal Cible As Range)
If Not Intersect(Cible, Range("B2")) Is Nothing Then
    Range("A65536").End(xlUp).Offset(1, 0) = Cible.Value
End If
End Sub

Tu peux mettre = Cible.Value*...ce que tu veux en fonction de Option.Button1.value
Cordialement

 

[Pierrot93]

Re : valeur textbox + optionbutton

Bonjour,

essaye ceci :

Private Sub CommandButton1_Click()
 Dim i As Integer
 With Sheets("feuil1")
 i = .Range("B65536").End(xlUp).Row
    .Range("B" & i + 1).Value = CDbl(TextBox1) * IIf(OptionButton1, 0.07, 0.196)
 End With
End Sub

bon après midi
@+

Edition : bonjour Mecano... aarf pas rafraichi moi....

 

[mécano41]

Re : valeur textbox + optionbutton

Je pense que je n'avais pas tout compris dans ta demande...

Cordialement

 

[grisan29]

Re : valeur textbox + optionbutton

bonjour a vous

mecano41 ce n'est pas dans le Worksheet_Change qu'il est le code

pierrot93 c'est presque bon , je ne

veux pas remplacer le 1 où le 2 suivant les optionbuttons

en col B par la valeur de la tva
ce que je désire c'est ajouter justement la valeur tva choisie a la valeur du textbox1 en col A sans l'écrire

soit 15 €+tva7=16,05 où 15 € + tva 19,6=17,92

et je dois retrouver en col A à coté de 1 16,05€ et a coté de 2 17,92€ et ainsi de suite

Pascal

 

[Pierrot93]

Re : valeur textbox + optionbutton

Re,

modifie peut être cette ligne comme suit :

.Range("A" & i + 1).Value = CDbl(TextBox1) + (CDbl(TextBox1) * IIf(OptionButton1, 0.07, 0.196))

 

[grisan29]

Re : résolu valeur textbox + optionbutton

bonjour Pierrot93😎
on s'est croisé mais ta solution me vas 😎 il me reste a l'appliquer a l'autre fichier et je reviens

Pascal
C'est parfaitement ce qu'il me fallait Merci Pierrot93😎
cela clos en beauté ce post