Ecrire des données depuis un usf sur la feuille active

[pascal21]

bonjour le forum
j'ai un combobox dans un usf qui me sélectionne une feuille j'aimerais ensuite pouvoir écrire dans cette feuille (toujours depuis l'usf)
en colonne B je me sert de l'objet calendar pour écrire les données les unes à la suite des autres b1 . b2 . .b3 etc

[COLOR="Red"]activeSheets[/COLOR].Range("b65536").End(xlUp).Offset(1, 0).Select

me donne une erreur
ensuite comment écrire dans cette cellule sélectionnée
voilà pour calendar
il faudrait ensuite que les textbox ou listbox puissent écrirent eux sur la même ligne que celle sélectionnée plus haut dans les colonnes C à H
merci

 

[mutzik]

Re : Ecrire des données depuis un usf sur la feuille active

bonjour Pascal,

pas trop bien compris pourquoi tu te sers du calendar pour écrire dans b1, b2 ...
mais :
Range("b65536").End(xlUp).Offset(1, 0) = textbox1
te mettra le contenu de textbox1 dans la cellule B kkchose (en format texte !!)
tu peux convertir la valeur de ta texbox en nombre par cint, cdbl ...

 

[Dull]

Re : Ecrire des données depuis un usf sur la feuille active

Salut Pascal, le Forum

ActiveSheet Sans s devrait mieux fonctionner

de plus évite les Select

With ActiveSheet.Range("B65536").End(xlUp)
    .Offset(1, 0) = Combobox1.Value
    .Offset(0, 1) = TextBox1.Value
    .Offset(0, 2) = TextBox2.Value
End With

Par Exemple

Edition: Salut Bertrand

Bonne Journée

 

[pascal21]

Re : Ecrire des données depuis un usf sur la feuille active

bonjour à tous les deux
merci dull ça fonctionne avec le méthode offset