Comment eviter une textbox intermediaire

[BASSDINGUE]

bonjour mesdames et messieurs,

Comment puis je avec le code ci dessous eviter de passer par une text box "tbopca" intermediaire qui m'est inutile
quand j'essaye directement
Sheets("T_CLT_FORMATION").Range("cj" & l2).Value =Sheets("T_ENTREPRISE").Range("AC" & CKBTNS1INDEX)

ca ne marche pas
et pourtant c'est la meme chose


Dim CKBTNS1INDEX As Integer, l2 As Integer

l2 = Sheets("T_CLT_FORMATION").Range("a65536").End(xlUp).Row + 1
CKBTNS1INDEX = USFPROSPECTFORM.TBNUMENTREPRISE.Value + 1

If Controls("CKBTNS1").Value = True Then
tbopca.Value = Sheets("T_ENTREPRISE").Range("AC" & CKBTNS1INDEX)
Else
tbopca.Value = ""
End If
Sheets("T_CLT_FORMATION").Range("cj" & l2).Value = tbopca.Value


Si quelqu'un a une idee, elle est la bien venu
merci

 

[Cousinhub]

Re : Comment eviter une textbox intermediaire

Bonjour,

à tout hasard (comme tu ne nous dis pas le type d'erreur...)

En rajoutant .value à Sheets("T_ENTREPRISE").Range("AC" & CKBTNS1INDEX)

(Sheets("T_ENTREPRISE").Range("AC" & CKBTNS1INDEX).Value)

 

[BASSDINGUE]

Re : Comment eviter une textbox intermediaire

nickel
c'est ca
c'etait tout con

en fait il n'y avait pas de message d'erreur

merci bhbh et bon WE a tous

 

[GCFRG]

Re : Comment eviter une textbox intermediaire

salut,

Dim Ctrl As Control
For Each Ctrl In Userform1.Controls ' ou le nom de ton formulaire

If TypeOf Ctrl Is MSForms.CheckBox And Ctrl.Value = True And Ctrl.Name = "le nom de ta textbox" Then
goto Suite
Else
"Ton action"
end If
Suite:
Next Ctrl
Set Ctrl = Nothing

cordialement Gilbert

 

[BASSDINGUE]

Re : Comment eviter une textbox intermediaire

merci gilbert ,
excuse moi j'etais en vacances je n'avais pas vus ton post