ListBox transfert cellule

[daniel1949]

Bonjour le forum,
Je cherche à copier ou transférer (on joue sur les mots !) un (1) choix d'une listeBox installée dans un USF et ce, sur une cellule NON DEFINIE (n'importe laquelle...) d'une feuille.
Est-ce possible ?
Merci de vos réponses.

 

[skoobi]

Re : ListBox transfert cellule

Bonsoir dany_du_60,

ce code sélectionne au hasard une cellule dans la feuille, à adapter:

Sub azer()
lig = Int(Rnd * 65536) + 1
col = Int(Rnd * 256) + 1
Cells(lig, col).Select
End Sub

 

[daniel1949]

Re : ListBox transfert cellule

Merci... Mais ça ne marche pas sur listbox, ni même un vouton. C'est vrai que je suis nul en VB !

 

[Pierrot93]

Re : ListBox transfert cellule

Bonjour Dany, Skoobi

essaye peut être comme suit, pour renvoyer la valeur de ta "listbox" sur la feuille active dans n'importe quelle cellule :

code à utiliser dans le module de ton USF.

Dim lig As Long, col As Integer
lig = Int(Rnd * 65536) + 1
col = Int(Rnd * 256) + 1
Cells(lig, col).Value = ListBox1.Value
MsgBox "Valeur renvoyée en : " & Cells(lig, col).Address(0, 0)

bonne journée
@+

Edition : en supposant qut tu as bien un UserForm....

 

[daniel1949]

Re : ListBox transfert cellule

Bonjour Pierrot,
J'ai l'USF et en appliquant ton code un gentil msg me dit : "valeur envoyée en (exemple) GW37880"... Je fonce sur la cellule... Rien !
Je me pose une question. Est ce que le choix d'une ListBox est le bon. Je m'explique : j'ai une liste (texte) de prestations - Listephase. Je l'ai mise dans le Rowsource de la ListBox... Ce que je recherche c'est que lorsque j'envoie mon USF, je fasse un choix dans cette listBox et que ce choix soit copié sur la cellule que j'ai choisie... Je crois avoir été clair (?).
Merci d'aider un archi-nul en VB. Bonne journée.

 

[skoobi]

Re : ListBox transfert cellule

Re Bonjour dany,
salut Pierrot 🙂,

dans ce cas envoie le fichier.

 

[daniel1949]

Re : ListBox transfert cellule

Re-bonjour à tous,
Aie !!! J'ai quitté par obligation le 2003 et je suis maintenant sur le 2007 (une usine à gaz). Le fichier joint a été enregistré sous version 97-2003. Ne me demandez pas pourquoi je ne vais pas sur le forum 2007. Je risque d'être impoli ! ;o).
Merci d'avance.
Daniel

 

[Pierrot93]

Re : ListBox transfert cellule

Re

en supprimant et recréant une autre listbox, puis en utilisant le code ci-dessous, pas de souci chez moi :

Private Sub ListBox1_Click()
Dim lig As Long, col As Integer
Randomize
lig = Int(Rnd * 65536) + 1
col = Int(Rnd * 256) + 1
Cells(lig, col).Value = ListBox1.Value
MsgBox "Valeur renvoyée en : " & Cells(lig, col).Address(0, 0)
End Sub
Private Sub UserForm_Initialize()
ListBox1.List = Range("A1:A7").Value
End Sub

A priori, l'utilisation propriété rowsource, pour l'alimentation des données pose un problème dans ce cas...

bon après midi
@+

 

[skoobi]

Re : ListBox transfert cellule

Re,

voici le code que j'ai ajouté dans le fichier joint:

Private Sub ListBox1_Change()
Dim lig As Long, col As Integer
lig = Int(Rnd * 65536) + 1
col = Int(Rnd * 256) + 1
Cells(lig, col).Value = ListBox1.Value
MsgBox "Valeur renvoyée en : " & Cells(lig, col).Address(0, 0)
Cells(lig, col).Select
End Sub

De plus, tu avais mis les propriétés BoundColumn et ColumnCount à "2", c'est pour ça que ça ne marchait pas.

Edit: Salut Pierrot 🙂

 

[daniel1949]

Re : ListBox transfert cellule

Re-bonjour,
Pour Skoobi : ça marche pour le transfert sauf que ce dernier se fait d'une façon aléatoire. J'ai droit à "Valeur renvoyée en : BW3790" ou GH45210...

Pour Pierrot : c'est vrai que l'utilisation propriété rowsource, pour l'alimentation des données pose un problème...

Bref, si vous avez un peu de temps.

Daniel DEMILLY

 

[Pierrot93]

Re : ListBox transfert cellule

Re

tu voulais bien renvoyer le résultat sur une cellule aléatoire ??? Ou alors quelque chose a du nous échapper... Car tu disais :

sur une cellule NON DEFINIE (n'importe laquelle...) d'une feuille.

sinon, tu peux modifier comme suit, pour envoyer le résultat vers une cellule définie (A1 dans l'exemple ci dessous) :

Range("A1").Value = ListBox1.Value

bonne fin d'après midi.
@+

 

[daniel1949]

Re : ListBox transfert cellule

J'ai le message suivant : "Permission refusée (erreur 70) Vous avez tenté d'écrire sur un disque protégé en écriture ou d'accéder à un fichier verrouillé" ??? Ce 2007 est vraiment une usine à gaz.... Quand je dis aléatoire, c'est sur une cellule que j'ai choisie avant dans la feuille. Merci

 

[Pierrot93]

Re : ListBox transfert cellule

Re

si quand tu dis "choisis", c'est la cellule sélectionnée alors essaye comme suit

ActiveCell.Value = ListBox1.Value

pour ton problème de permission, vois pas trop, d'autant que je n'ais pas 2007, à quel moment ce message est il renvoyé ?

@+