Poiter des Ecritures avec ListBox ???

[MuscatMimi]

Bosoir a tous

J'ai un Usf avec une ListBox dans laquel je peux visionner mes" Ecritures "
Ces "Ecritures" sont entrées dans la feuille Ecritures avec un Usf a part
Il y a t'il un moyen de pouvoir pointer ces écritures dans cette ListBox????
et Valider ce Pointage
ou tout autre moyen ala place d'une ListBox
Merci a l'avance a tout ceux qui me répondrons
Cordialement
Bonne soirée

 

[jp14]

Re : Poiter des Ecritures avec ListBox ???

Bonsoir

En utilisant la propriété "Multiselect" de la "listbox" on peut sélectionner plusieurs lignes.
La propriété "Selected(numero de ligne)" permet de connaitre les lignes sélectionnées.

JP

 

[MuscatMimi]

Re : Poiter des Ecritures avec ListBox ???

Salut JP

Oui Multisélect je connais
mais comment valider une Ecritured'une ou plusieurs ligne
sachant que ces ecritures sont déja dans une feuille
je désire simplement, pointer les lignes qui m'intérresse et valider ce pointage
j'espére avoir été assez clair dans mes explications!!!
bonne soirée

 

[bqtr]

Re : Poiter des Ecritures avec ListBox ???

Bonsoir JP, vaucluse immo

Voici un exemple avec une listbox multiselect et multicolonne. La 3 èmè reprend les N° de ligne des données.

Si ca peut te donner des idées.

A+

 

[MuscatMimi]

Re : Poiter des Ecritures avec ListBox ???

Salut JP ,bqtr et le forum

merci bqtr ton code est super, juste ce qu'il me fallait

Mais,quelle modif a y apporter, pour pointer les eccitues sans vider la ListBox???
Bonne sirée
Cordialement

 

[bqtr]

Re : Poiter des Ecritures avec ListBox ???

Bonsoir,

Le fichier modifié:

La listbox n'est plus en multiselect, tu sélectionnes une ligne et tu valides. La ligne est ensuite effacée de la listbox.
Quand tu valides la dernière donnée l'Userform se ferme automatiquement.

A+

 

[MuscatMimi]

Re : Poiter des Ecritures avec ListBox ???

salut bqtr

Tu a mal lu ma derniére explication

Le premier code qu tu m'a donné est bien,
je voulais juste savoir s'il est possible
de ne pas vider la ListBox aprés Validation,tout simplement
Bonne journée
Ciaooooo

 

[bqtr]

Re : Poiter des Ecritures avec ListBox ???

Re,

Modifie le code du bouton du premier fichier (Classeur1) comme ceci:

Private Sub CommandButton1_Click()

Dim m As Long
For m = 0 To ListBox1.ListCount - 1
  If ListBox1.Selected(m) = True Then
       Sheets("Feuil1").Range("C" & ListBox1.Column(2, m)) = "X"
       ListBox1.Selected(m) = False
  End If
Next

End Sub

La listbox ne se vide plus, mais rien ne t'empêche de sélectionner à nouveau une écriture que tu as déjà pointée. Et je ne vois pas comment l'empêcher !!

A+

 

[MuscatMimi]

Re : Poiter des Ecritures avec ListBox ???

Bonsoir bqtr et le Forum

Merci pour cette Modif , je viens d'essayer, nickel, ça fonctionne a merveille

jevais abuser de ta gentillesse et de ton temps,j'ai un autre petit soucis
Puis-je te le soumettre????,

Cordialement et Bonne soirée

 

[Lii]

Re : Poiter des Ecritures avec ListBox ???

Bonsoir Tous,

Re,
...
La listbox ne se vide plus, mais rien ne t'empêche de sélectionner à nouveau une écriture que tu as déjà pointée. Et je ne vois pas comment l'empêcher !!
...

bqtr, pourquoi vouloir l'empêcher ? On peut s'en servir pour annuler le pointage, non ?
Mais je ne connais pas le contexte !
Je me suis demandé, si une liste était vraiment ce qu'il fallait.
On peut traiter le pointage très simplement avec une macro évènementielle (Double-clic en autres).
Voici un exemple (dans lequel les calculs de solde ne figurent pas).

 

[MuscatMimi]

Re : Poiter des Ecritures avec ListBox ???

BonsoirLII
pas mal,
et si il pouvait y avoir double clique sur une ligne de la ListBox
pour valider, au lieu de cliquer sur le Bouton

Pour infos a tous les deux,c'est une petite application de Gestion Budgetaire
qui a commencé tout simplement
et maintenant je vais aller jusqu'au bout, pour la dévelloper au maxi
Bien sur j'aurais encore quelques qusetions a poser, si vous êtes partant pour continuer a m'aider ce serait super
je vous en remercie a l'avance
Bonne soirée

 

[Lii]

Re : Poiter des Ecritures avec ListBox ???

Re,

Efface le bouton et son code et copie:

Private Sub ListBox1_Click()
  Dim Li As Long
  Li = ListBox1.ListIndex + 2   '[COLOR=SeaGreen]premier index= -1 d'où le +2[/COLOR]
  Range("C" & Li) = IIf(Range("C" & Li) = "", "X", "")
  ListBox1.List(ListBox1.ListCount - 1, 2) = IIf(Range("C" & Li) = "", "X", "")
End Sub

 

[jp14]

Re : Poiter des Ecritures avec ListBox ???

Bonsoir vaucluse, immo Lii

Ci joint le fichier avec une autre approche
Affichage des données dans une listview
Possibilité de trier le tableau
Sélection multiple
Quand les données sont pointés elles disparaissent de la listview.

A tester


JP

 

[bqtr]

Re : Poiter des Ecritures avec ListBox ???

Re, Bonsoir Lii, Jp

Voici un exemple qui reprend l'idée de pointage/dé-pointage de Lii et la ListView de JP.

Les données pointées sont en bleu lors de l'ouverture du USF, les autres en noir.

Par un Double Click dans la ListView on:

- Pointe si pas pointé, la ligne passe en bleu
- Dé-pointe si pointé, la ligne repasse en noir

Les modifs sont répercutées automatiquement dans la feuille.
Les données ne sont pas effacées dans la LitView.

A+

 

[MuscatMimi]

Re : Poiter des Ecritures avec ListBox ???

Bonjour aJP,LII,Bqtr et le Forum

Bravo, je suis toujours aussi étonné de voir la gentillesse de vous tous et le
temps que vous consacré a des petits novices que nous sommes
a leurs résoudre leurs soucis,
J'avoue que l'amalgamme faite par jp est trés alléchante
et parait bien me convenir
Encore a un grand merci a vous

Si je puis me permettre,pourrais-je encore vous solliciter
je bloque encore sur d'autres petits soucis
Cordialement