Saisir des échéances à partir d'une listview

[ascal44]

Bonjour ,
Je voudrais saisir des échéances à partir d'une listview sur différents comptes banquaire.
Voici le lien pour un fichier d'exemple :

http://cjoint.com/?bjsmvwuF1t

 

[jp14]

Re : Saisir des échéances à partir d'une listview

Bonjour

Pour modifier les données à partir d'une listview il faut passer par des textBox, la question est de savoir qu'elles sont les données modifiables, toutes les données affichées ou certaines.

JP

 

[ascal44]

Re : Saisir des échéances à partir d'une listview

Les données modifiables sont les débits et les crédits.

 

[jp14]

Re : Saisir des échéances à partir d'une listview

Bonjour

Ci joint l'userform à importer dans le fichier.

Les dimensions et l'emplacement des textbox correspond aux colonnes de la litstview.
L'enregistrement et la mise à jour de la listview se fait après validation par un bouton.

A tester

JP

 

[ascal44]

Re : Saisir des échéances à partir d'une listview

Bonsoir , je n'arrive pas à ouvrir vos fichiers

Pouvez vous me les envoyer sous word ?

 

[jp14]

Re : Saisir des échéances à partir d'une listview

Bonsoir

Il faut ouvrir l'éditeur vba
Menu Fichier
Importer fichier
Se mettre dans le sous répertoire contenant le fichier "dezippé"
Sélectionner l'userform.

JP

 

[ascal44]

Re : Saisir des échéances à partir d'une listview

J'ai réussi à importer le fichier FRM de 8 Ko , mais pas celui en FRX de 4 Ko ?

Le changement des débits et crédits fonctionnent.

La saisie dans les différents comptes ne fonctionne pas ?

 

[jp14]

Re : Saisir des échéances à partir d'une listview

Bonjour

Le fichier .frx correspond à l'image de l'userform, il est automatiquement importé.
Concernant la copie des informations dans les deux feuilles, il faudrait plus d'information : doit-on copier la ligne entière ou une partie ?

JP

 

[ascal44]

Re : Saisir des échéances à partir d'une listview

Bonjour ,
il faudrait copier les même lignes qui se trouvent dans la feuille échéances : de A à O plus la valeur de la colonne G (Sous-Catégorie) recopiée en colonne S du compte correspondant.

 

[jp14]

Re : Saisir des échéances à partir d'une listview

Bonjour

Ci joint l'userform modifié

A tester

JP

 

[ascal44]

Re : Saisir des échéances à partir d'une listview

Bonsoir , il n'y a pas de code pour le bouton de saisie CommandButton1 ?

 

[ascal44]

Re : Saisir des échéances à partir d'une listview

J'ai vu l'erreur de compréhension:
En fait avec le commandbutton1 je veux que toutes les lignes de la listeview se copient dans les différents comptes. Si en colonne O j'ai " COURANT" recopier seulement dans le compte feuille " COURANT" ; si j'ai "BNP" recopier seulement dans la feuille "BNP".
J'ai plusieurs comptes (10)

Je joint un exemple des saisies dans les comptes

 

[jp14]

Re : Saisir des échéances à partir d'une listview

Bonsoir

Ci joint le code pour les boutons

Private Sub CommandButton1_Click()
Dim compte As String
For i = 1 To ListView1.ListItems.Count
    compte = ListView1.ListItems(i).ListSubItems(11).Text
    ligne1 = Val(Replace(ListView1.ListItems(i).Key, "K", ""))
With Sheets(compte)
    i = .Range("a65536").End(xlUp).Row + 1
    Sheets("Echéances").Range("a" & ligne1 & ":o" & ligne1).Copy _
     Destination:=.Range("a" & i)
     Sheets("Echéances").Range("g" & ligne1).Copy _
     Destination:=.Range("s" & i)
    
     
 End With
Next i
End Sub

Private Sub CommandButton2_Click()

With Sheets("Echéances")
.Range(TextBox1.Tag & ligne1) = TextBox1.Value
.Range(TextBox2.Tag & ligne1) = TextBox2.Value
End With
With ListView1
.ListItems(index1).ListSubItems(8).Text = Replace(TextBox1.Value, ".", ",")
.ListItems(index1).ListSubItems(9).Text = Replace(TextBox2.Value, ".", ",")
End With


CommandButton2.Visible = False
TextBox1.Value = ""
TextBox2.Value = ""
End Sub

A tester

JP

 

[ascal44]

Re : Saisir des échéances à partir d'une listview

C'est drôle la 2 ème ligne de la listeview ne se copie pas dans les comptes ?

 

[jp14]

Re : Saisir des échéances à partir d'une listview

Bonsoir

Autant pour moi, j'ai utilisé deux fois la variable i

Private Sub CommandButton1_Click()
Dim compte As String
Dim j As Long
For i = 1 To ListView1.ListItems.Count
    compte = ListView1.ListItems(i).ListSubItems(11).Text
    ligne1 = Val(Replace(ListView1.ListItems(i).Key, "K", ""))
With Sheets(compte)
    j = .Range("a65536").End(xlUp).Row + 1
    Sheets("Echéances").Range("a" & ligne1 & ":o" & ligne1).Copy _
     Destination:=.Range("a" & j)
     Sheets("Echéances").Range("g" & ligne1).Copy _
     Destination:=.Range("s" & j)
    
     
 End With
Next i
End Sub

Ci joint le code modifié

JP