Choix de feuilles.

[zeltron24]

Bonsoir le forum,

Pourriez vous me donner une solution SVP afin de copier certaines données d'une feuille dans une autre feuille.
En clair, j'ai plusieurs feuilles identiques, j'en sélectionne une parmi elle et je veux suivant un critère défini recopier dans une autre feuille certaines données puis revenir sur la feuille de départ. (Voir le fil de discussion sur la recopie de ceraines données)
Voici la macro qui ne fonctionne pas....

Sub CopieLEP()
Dim lgLig As Long
Dim lgDerLig As Long
Dim bCopie As Boolean
Dim vRang1 As Long
Dim vRang2 As Long
Dim vRang3 As Long
bCopie = False

' Tableau 1 : Boucle de la ligne rangée 7 à la fin
For lgLig = 7 To Range("B" & Cells.Rows.Count).End(xlUp).Row

' Uniquement le Virement LEP
If Range("F" & lgLig).Value = "Virement LEP" And Not Range("I" & lgLig).Value = "P" Then

' Copie des valeurs dans une variable
vRang1 = Range("B" & lgLig).Value 'Date de l'opération
vRang2 = Range("F" & lgLig).Value 'Nature de l'opération
vRang3 = Range("G" & lgLig).Value 'Montant de l'opération
Range("B2").Value = 1
Range("I" & lgLig).Value = "P"

' Sélection de la feuille LEP
Sheets("LEP").Select

' Dernière ligne libre en colonne B
lgDerLig = Sheets("LEP").Range("B" & Cells.Rows.Count).End(xlUp).Row + 1
Range("B" & lgDerLig).Value = vRang1 'Date de l'opération
Range("F" & lgDerLig).Value = vRang2 'Nature de l'opération
Range("H" & lgDerLig).Value = vRang3 'Montant de l'opération

bCopie = True
End If
Next lgLig

If bCopie = True Then
MsgBox "la copie a été réalisée avec succès."
Else
MsgBox "Toutes les données ont été copiées."
Range("B2").Value = ""
End If

' Sheets("LEP").Select ' retour sur la feuille de départ

Range("A10").Select

End Sub

Merci pour l'aide que vous me donneriez
zeltron24

 

[Excel_lent]

Re : Choix de feuilles.

Bonsoir zeltron,

Bonsoir à tous et aux autres.


A tester

Sub CopieLEP()
Dim lgLig As Long
Dim lgDerLig As Long
Dim bCopie As Boolean

bCopie = False

' Tableau 1 : Boucle de la ligne rangée 7 à la fin
For lgLig = 7 To Range("B" & Cells.Rows.Count).End(xlUp).Row

' Uniquement le Virement LEP
If Range("F" & lgLig).Value = "Virement LEP" And Not Range("I" & lgLig).Value = "P" Then
  With Sheets("LEP")
    lgDerLig = .Range("B" & Cells.Rows.Count).End(xlUp).Row + 1
    Range("B" & lgLig).Copy .Range("B" & lgDerLig) 'Date de l'opération
    Range("F" & lgLig).Copy .Range("F" & lgDerLig) 'Nature de l'opération
    Range("G" & lgLig).Copy .Range("H" & lgDerLig) 'Montant de l'opération
    Range("B2").Value = 1
    Range("I" & lgLig).Value = "P"
  End With
  bCopie = True
End If
Next lgLig

If bCopie = True Then
MsgBox "la copie a été réalisée avec succès."
Else
MsgBox "Toutes les données ont été copiées."
Range("B2").Value = ""
End If

' Sheets("LEP").Select ' retour sur la feuille de départ

Range("A10").Select

End Sub

 

[zeltron24]

Re : Choix de feuilles.

Bonsoir Excel_lent,

Et merci pour ton aide que je viens de lire. Comme il est tard ce soir, je mettrais cela en profit demain et ne manquerai pas de te tenir informer.

Cordialement
zeltron24

 

[zeltron24]

Re : Choix de feuilles.

Bonsoir le forum,

Je serai super content si quelqu'un pourrait reprendre mon fichier afin de corriger l'erreur.
Merci à Excel_lent pour son aide, mais un problème se pose lors de la recopie dans la feuille "LEP" en effet la copie se fait en fin de tableau (racourci pour le besoin de vous l'envoyé) et je ne trouve pas le pourquoi.
Dans l'attente je vous remercie d'avance pour votre aide

Cordialement
zeltron24

 

[zeltron24]

Re : Choix de feuilles.

Oubli, voici le fichier Mille excuses.

 

[Excel_lent]

Re : Choix de feuilles.

Bon...jour Zeltron,
Salut à tous et aux autres.

Un morceau (révélateur) de fichier est toujours utile pour travailler.
Vois si les corrections te satisfont.
Pour recopier sur la bonne ligne, j'ai modifié la mise en place de la numérotation des opérations dans la feuille "LEP" seulement.

Il serait plus facile de "pointer" avec une macro événementielle. Si cela t'intéresse, fais moi signe.

 

[zeltron24]

Bonsoir Excel_Lent et à vous tous.

J'ai examiné ton travail, très bon par ailleurs, mais un petit problème persiste.
En effet si j'efface les données déjà inscrite et que je relance un transfert vers LEP les copies se font à partir de la ligne 14 au lieu de 10 et le montant s'inscrit en colonne G Débit au lieu de H pour crédit. (Vu que c'est un virement fait d'un compte sur un autre.)
J'essaye de trouver la parade mais si tu peux m'aider j'apprécierais.
D'avance merci

 

[zeltron24]

Re : Choix de feuilles.

Re,

A force de chercher (pas bien longuement.....) je pense avoir trouvé une erreur de saisi. J'ai donc effectué la modif et cela fonctionne. Mais comment faire pour que la fenetre de choix se ferme et me renvoi sur la feuille LEP afin de visualiser les copies.

Je poursuis mes recherches en espérant trouver la solution.
(Ce qui me permettrai d'etre content de moi, preuve que je commence à comprendre un peu Excel) ;-)
Mais le chemin est encore long.

 

[Excel_lent]

Re : Choix de feuilles.

Bonsoir Zeltron, à tous et aux autres.

Voilà un variante avec des "Cases à cocher" qui permettent une simplification de l'USF (plusieurs choix à disposition).

Ajout : tu en as encore du boulot, notamment avec tes pointages.
Changement du fichier joint !

 

[zeltron24]

Bonsoir Excel_Lent et bonsoir à vous tous.

C'est du très bon travail que tu m'as fait Excel_Lent (sans jeu de mot 🙂 )
Cepandant un petit souci perciste. Si lorsque toutes mes données ont été copiées, je refais un transfert via le bouton et que je coche qu'une seule option, c'est la fenêtre de "la copie a été réalisée avec succès." qui s'ouvre au lieu de "Toutes les données ont été copiées.".
Par contre si je sélectionne les deux j'ai bien la fenêtre "Toutes les données ont été copiées." qui s'ouvre.
N'y a t il pas moyen de le faire pour l'une ou l'autre option et aussi de mettre le "P" dans la colonne I de la feuille LEP ainsi le pointage serai automatisé.
Je me mets au travail de mon coté
Je te souhaite une bonne soirée et d'avance merci.
🙂

 

[Excel_lent]

Re : Choix de feuilles.

Bonsoir Zeltron, à tous et aux autres.

J'ai remplacé le fichier précédent (Test E2) par un fichier corrigé (Test E3).
Il y avait peu à transformer.
Par contre, je te propose de nouvelles idées tirées du projet que j'ai réalisé pour la tenue de mes comptes. Il est en constante amélioration et si cela t'intéresse, je peux te le faire passer.

Bonne nuit ainsi qu'aux chalands qui passent à cette heure-ci.

 

[zeltron24]

Re : Choix de feuilles.

Bonsoir à tous et à Excel Lent

C'est avec plaisir que j'aimerais disposer de ton programme de comptabilité qui me donnera certainement de meilleures idées.
D'avance Merci
As tu utilisé des macros événementielles comme tu le disais lors d'un précédent fil pour mon fichier. comment cela fonctionne t-il?

Je profite de mon passage sur le fil pour, avec un peu d'avance, souhaiter à vous tous de bonnes fêtes de Noel. avec au pied du sapin, un magnifique MERCI en lettre d'or pour tous ceux et celles qui se dévouent afin de nous venir en aide.