BASSDINGUE
XLDnaute Occasionnel
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
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