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

 

[bqtr]

Re : Poiter des Ecritures avec ListBox ???

Re,

Tant mieux si cela te convient, c'est le but non !

Pour tes autres problèmes, n'hésite pas à ouvrir de nouvelles discussions, y aura bien une bonne âme qui passera par là pour t'aider. 🙂
N'oublie pas de joindre un bout de fichier en PJ, si nécessaire, c'est plus facile pour travailler.

A+

 

[jp14]

Re : Poiter des Ecritures avec ListBox ???

Bonjour

Pour éviter une erreur il faut modifier la procédure suivante.

Private Sub CommandButton1_Click()
With ListView1

[COLOR="red"]For i = .ListItems.Count To 1 Step -1 ' ligne à modifier[/COLOR]
On Error GoTo suite
    If .ListItems(i).Selected = True Then
        lig = CLng(Mid(.ListItems(i).Key, 2, 50))
        ' a modifier
        Range("C" & lig) = IIf(Range("C" & lig) = "", "X", "")
        ' fin modif
        ListView1.ListItems.Remove i
    End If
suite:
Next
End With


End Sub

Quand on supprime des lignes il faut commencer par la dernière ligne.

JP

 

[MuscatMimi]

Re : Poiter des Ecritures avec ListBox ???

Bonsoir Jp14,Bqtr et le Forum

Dis moi bqtr,
est ce possible de mettre un MsgBox quand on "Pointe" une écriture
et aussi un MsgBox quand on "Dépointe"

A+

 

[jp14]

Re : Poiter des Ecritures avec ListBox ???

Bonsoir

Il suffit de remplacer le code

Range("C" & lig) = IIf(Range("C" & lig) = "", "X", "")

par le code ci dessous par exemple

If Range("C" & lig) = "" Then
            Select Case MsgBox("Vous aller pointer l'opération" _
                               & vbCrLf & "Chéque : " & Range("A" & lig) _
                               & vbCrLf & "Libellé : " & Range("b" & lig) _
                               & vbCrLf & "" _
                               & vbCrLf & "Etes vous d'accord" _
                               , vbYesNo Or vbInformation Or vbDefaultButton1, Application.Name)
            
                Case vbYes
                    Range("C" & lig) = "X"
            
                Case vbNo
                
            End Select
        Else
            Select Case MsgBox("Vous aller supprimer le rapprochement de l'opération" _
                               & vbCrLf & "Chéque : " & Range("A" & lig) _
                               & vbCrLf & "Libellé : " & Range("b" & lig) _
                               & vbCrLf & "" _
                               & vbCrLf & "Etes vous d'accord" _
                               , vbYesNo Or vbInformation Or vbDefaultButton1, Application.Name)
            
                Case vbYes
                    Range("C" & lig) = ""
            
                Case vbNo
                
            End Select

A tester

JP

 

[bqtr]

Re : Poiter des Ecritures avec ListBox ???

Bonsoir tous le monde,

Dans le dernier fichier que j'ai mis, celui avec la ListView, remplace le code Private Sub ListView1_DblClick() par celui-ci :

Private Sub ListView1_DblClick()

With ListView1
   If .SelectedItem.ListSubItems(2).Text = "" Then
        If MsgBox("Confirmer le rapprochement.", vbYesNo, "Rapprochement") = vbYes Then
            .SelectedItem.ListSubItems(2).Text = "X"
            Sheets("Feuil1").Range("C" & .SelectedItem.Index + 1) = .SelectedItem.ListSubItems(2).Text
            MiseEnForme
            .ListItems(.SelectedItem.Index).Selected = False
            Exit Sub
         Else
            .ListItems(.SelectedItem.Index).Selected = False
        End If
   End If
  
   If .SelectedItem.ListSubItems(2).Text = "X" Then
        If MsgBox("Confirmer la suppression du rapprochement.", vbYesNo, "Suppression du Rapprochement") = vbYes Then
            .SelectedItem.ListSubItems(2).Text = ""
            Sheets("Feuil1").Range("C" & .SelectedItem.Index + 1) = .SelectedItem.ListSubItems(2).Text
            MiseEnForme
            .ListItems(.SelectedItem.Index).Selected = False
            Exit Sub
        Else
            .ListItems(.SelectedItem.Index).Selected = False
        End If
   End If
   
End With

End Sub

A+

 

[MuscatMimi]

Re : Poiter des Ecritures avec ListBox ???

Re JP

OK pour ton exemple
Mais je parle du dernier classeur proposer par bqtr
c'est dans ce classeur que j'aimerais avoir un MsgBox

A+

 

[MuscatMimi]

Re : Poiter des Ecritures avec ListBox ???

Re Bqtr
Merci pour les MsgBox,de la listView

Encore une question

est-il possible de faire afficher toutes les données de la ligne sélectionnée
dans des TextBox???sur ce même Usf

Je sais faire avec ListBox ,mais pas avec ListView, ListView que je connaissais mais que je viens de découvrir

En plus je désire inclure un Bouton afin de pouvoir modifier éventuelement les données de cette ligne, en ouvrant mon Usf qui m'a servi a entrer ces données dans ma feuil
ça c'est possible aussi avec un ListView???,

Je sais le faire avec une ListBox,mais avec ListView, je sais pas

Je t'ai remis e fichier avec mon Usf de saisie et modif,afin que tu puisse te rendre compte

Bon week-end
A+

 

[bqtr]

Re : Poiter des Ecritures avec ListBox ???

Bonsoir,

Voilà un exemple.
Tout est sur le USF2.

Le double-click comme avant (pointage/dépointage)

Le simple-click sur une ligne remplit les TextBoxs et le bouton de modif devient actif. Tu fais les modifs, valide et elles sont enregistrées sur la feuille et dans la ListView sans ouverture d'un autre USF.

Je te déconseille de trier les éléments de la ListView avec ta macro, car l'ordre des données entre la feuille et la ListView va être modifié. Donc quand tu feras une modif ce n'est pas la bonne ligne sur la feuille qui sera mise à jour.

A+

 

[MuscatMimi]

Re : Poiter des Ecritures avec ListBox ???

Salut bqtr et le forum

Merci pour ce que tu viens de me proposer

Par contre ce que j'ai oublier de préciser
c'est que le bouton pour ouvrir va être sur la Feuille "Acceuil"
et si je le place sur la Feuille Acceuil, les données de la feuille qui va servir a remplir la Listview sont sur la feuille, "Echéancier"
La, si je le place sur la Feuille Acceuil aucune donnée ne figure dans ma ListView
dans l'attente
Bonne journnée bqtr
A+

 

[bqtr]

Re : Poiter des Ecritures avec ListBox ???

Re,

Voilà avec le nom de la feuille "Echéancier". Tu peux lancer l'USF2 de n'importe quelle feuille.

Regarde ce lien : ICI cela parle des listview.

A+

 

[MuscatMimi]

Re : Poiter des Ecritures avec ListBox ???

bonjour bqtr et le forum
Merci de ta gentillesse,et merci pou le temps que tu m'a consacré

super maintenant je vais pouoir poursuivre mon projet

Vous êtes vraiment tous formidable ,compétant et toujours préts
en répondre a des novices comme moi
Je sais c'est le but de ce forum
mais je peux te dire que c'est le seul forum excel que je connaisse
, du moins en ce moment , dont les membres sont aussi éfficasse et compétant

A bientôt et on week-end
A+

 

[MuscatMimi]

Re : Poiter des Ecritures avec ListBox ???

Salut bqtr
Excuse moi encore de te déranger
et bé ,oui je suis matinal pour un lundi

J'ai fais un glissé déposé de ton Usf2 de ton classeur ,dans mon classeur
J'ai changer le chemin de la feuille ,pour a afficher les données dans ListView

Premier lancement de userfom2 erreur a la ligne en rouge

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
ListView1.Sorted = False
ListView1.SortKey = ColumnHeader.Index - 1

If ListView1.SortOrder = lvwAscending Then
ListView1.SortOrder = lvwDescending
Else
ListView1.SortOrder = lvwAscending
End If

ListView1.Sorted = True
End Sub

J'ai supprimé ce code
Ensuite erreur a cette ligne en rouge

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)MiseAJourTB
CommandButton2.Enabled = True
End Sub

J'avoue être perdu, avec ces ListView,déja avec ListBox c'était dur

Je te joint le fichier avec ce que j'ai pu faire
Bonne journée
Cordialement

 

[bqtr]

Re : Poiter des Ecritures avec ListBox ???

Bonsoir,

Ton fichier modifié.
J'ai changé deux trois trucs.

A+

 

[MuscatMimi]

Re : Poiter des Ecritures avec ListBox ???

Salut bqtr

Je dois commencer a te souler avec mes soucis

Merci pour les Modifs, de mon côté j'ai ajouter 4 Colonnes supplémentaires a afficher dans la ListView
Tout fonctionne dans ce classeu
mais reste toujours le soucis, quand j'inclu cet Usf dans mon classeur en cour

l'erreur ci dessous persite

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)ListView1.Sorted = False
ListView1.SortKey = ColumnHeader.Index - 1

If ListView1.SortOrder = lvwAscending Then
ListView1.SortOrder = lvwDescending
Else
ListView1.SortOrder = lvwAscending
End If

ListView1.Sorted = True
End Sub

J'ai supprimé ce code
Ensuite erreur a cette ligne en rouge

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)MiseAJourTB
CommandButton2.Enabled = True
End Sub

Je te met mon classeur en cours en fichier joint si tu veux bien regarder, ,si tu a du temps bien sur

T'inquiéte plus je viens de trouver ou était l'Erreur
Un Contrôle pas activé
Microsoft Windows Common Contrôle 6.0(Sp6)[/COLOR]

En passant peut tu me dire ce que tu pense de mon classeur????,sincérement
pour un novice comme moi,je l'ai fais avec le coucour de trés bon Excelliens de ce site ,toi y compris

Dans cet Usf2 il y a t'il possibilité de créer 7combobox
Nom - Date - Banque - Opération - Libéllé - Date - Pointée - Non pointée??
afin de chercher en fonction d'un item précis dans cette ListView

Bonne journée Bqtr
Et merci pour ta patience


Cordialement

 

[bqtr]

Re : Poiter des Ecritures avec ListBox ???

Re,

Tu veux retrouver une ligne particulière avec les combobox ?
Si c'est ça, c'est mission quasi impossible à cause des doublons dans chaque combobox.

Au mieux on peut filtrer (recharger la listview) à chaque nouveau choix dans les combobox. Mais là encore comment tu procéderas ?
Les combobox seront en cascade et dans ce cas c'est le dernier qui alimentera la listview, ou alors ils seront indépendants les uns des autres et chaque combobox pourra alimenter la listview.

A+