bonjours isabelle
je voudrais savoir s'il est possible d'inverser les valeurs de cellules
dans la macro ci dessous
j'ai ajouté 2 collones de plus sur le tableau journal k6 et L6 ce qui me
donne le debit et credit de la contre partie les valeurs sont donc inversé
par rapport au compte initial
soit compte debit=G6 contrepartie credit=L6
compte credit=H6 contrepartie debit=K6
exemple
une foi que la recherche est fini
If Range("D6") = "516000" Or Range("J6") = "516000" Then
sur le tableau du compte, lorsque la rechercheD6 a donné la réponse oui sa
range la ligne B6:J6 jusque la s'est OK
sur le compte de contre partie suite a la recherche J6 il faudrait que sa me
place les valeurs de K6:L6 dans les collones de G et H
j'ai la posibilité également de copier toute la ligne et de camoufler les
valeur de G et H restant ainsi visible que les valeurs des contre parties
mais sa vas me charger les tableaux avec des données inutiles ce pourquoi
je recherche un complément a la macro que ma enseigné isabelle que je
remerci encore 1foix pour l'aide qu'elle ma fourni hier au soir
voila sa macro
ActiveSheet.Shapes("Button 77").Select
If Range("D5") = "512000" Or Range("J5") = "512000" Then
lgn = Sheets("feuil1").Range("B65536").End(xlUp).Row + 1
Sheets("SAISI").Range("B5:J5").Copy Destination:=Sheets("Feuil1").Range("B"
& lgn)
Sheets("feuil1").Select
End If
en espèrent ne pas trop vous ennuyer avec mes problèmes de débutant
merci encore
et bonne nuit a tous
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour francois,
il faut vérifier les valeurs séparément
lgn = Sheets("feuil1").Range("B65536").End(xlUp).Row + 1 If Range("D5") = "512000" Then Sheets("SAISI").Range("B5:J5").Copy Destination:=Sheets("Feuil1").Range("B" & lgn) ElseIf Range("J5") = "512000" Then Sheets("SAISI").Range("K5:L5").Copy Destination:=Sheets("Feuil1").Range("B" & lgn) End If
isabelle
bonjours isabelle je voudrais savoir s'il est possible d'inverser les valeurs de cellules dans la macro ci dessous
j'ai ajouté 2 collones de plus sur le tableau journal k6 et L6 ce qui me donne le debit et credit de la contre partie les valeurs sont donc inversé par rapport au compte initial soit compte debit=G6 contrepartie credit=L6 compte credit=H6 contrepartie debit=K6 exemple une foi que la recherche est fini If Range("D6") = "516000" Or Range("J6") = "516000" Then sur le tableau du compte, lorsque la rechercheD6 a donné la réponse oui sa range la ligne B6:J6 jusque la s'est OK sur le compte de contre partie suite a la recherche J6 il faudrait que sa me place les valeurs de K6:L6 dans les collones de G et H
j'ai la posibilité également de copier toute la ligne et de camoufler les valeur de G et H restant ainsi visible que les valeurs des contre parties mais sa vas me charger les tableaux avec des données inutiles ce pourquoi je recherche un complément a la macro que ma enseigné isabelle que je remerci encore 1foix pour l'aide qu'elle ma fourni hier au soir voila sa macro
ActiveSheet.Shapes("Button 77").Select If Range("D5") = "512000" Or Range("J5") = "512000" Then lgn = Sheets("feuil1").Range("B65536").End(xlUp).Row + 1 Sheets("SAISI").Range("B5:J5").Copy Destination:=Sheets("Feuil1").Range("B" & lgn)
Sheets("feuil1").Select
End If
en espèrent ne pas trop vous ennuyer avec mes problèmes de débutant merci encore et bonne nuit a tous
bonjour francois,
il faut vérifier les valeurs séparément
lgn = Sheets("feuil1").Range("B65536").End(xlUp).Row + 1
If Range("D5") = "512000" Then
Sheets("SAISI").Range("B5:J5").Copy
Destination:=Sheets("Feuil1").Range("B" & lgn)
ElseIf Range("J5") = "512000" Then
Sheets("SAISI").Range("K5:L5").Copy
Destination:=Sheets("Feuil1").Range("B" & lgn)
End If
isabelle
bonjours isabelle
je voudrais savoir s'il est possible d'inverser les valeurs de cellules
dans la macro ci dessous
j'ai ajouté 2 collones de plus sur le tableau journal k6 et L6 ce qui me
donne le debit et credit de la contre partie les valeurs sont donc inversé
par rapport au compte initial
soit compte debit=G6 contrepartie credit=L6
compte credit=H6 contrepartie debit=K6
exemple
une foi que la recherche est fini
If Range("D6") = "516000" Or Range("J6") = "516000" Then
sur le tableau du compte, lorsque la rechercheD6 a donné la réponse oui sa
range la ligne B6:J6 jusque la s'est OK
sur le compte de contre partie suite a la recherche J6 il faudrait que sa me
place les valeurs de K6:L6 dans les collones de G et H
j'ai la posibilité également de copier toute la ligne et de camoufler les
valeur de G et H restant ainsi visible que les valeurs des contre parties
mais sa vas me charger les tableaux avec des données inutiles ce pourquoi
je recherche un complément a la macro que ma enseigné isabelle que je
remerci encore 1foix pour l'aide qu'elle ma fourni hier au soir
voila sa macro
ActiveSheet.Shapes("Button 77").Select
If Range("D5") = "512000" Or Range("J5") = "512000" Then
lgn = Sheets("feuil1").Range("B65536").End(xlUp).Row + 1
Sheets("SAISI").Range("B5:J5").Copy Destination:=Sheets("Feuil1").Range("B"
& lgn)
Sheets("feuil1").Select
End If
en espèrent ne pas trop vous ennuyer avec mes problèmes de débutant
merci encore
et bonne nuit a tous
lgn = Sheets("feuil1").Range("B65536").End(xlUp).Row + 1 If Range("D5") = "512000" Then Sheets("SAISI").Range("B5:J5").Copy Destination:=Sheets("Feuil1").Range("B" & lgn) ElseIf Range("J5") = "512000" Then Sheets("SAISI").Range("K5:L5").Copy Destination:=Sheets("Feuil1").Range("B" & lgn) End If
isabelle
bonjours isabelle je voudrais savoir s'il est possible d'inverser les valeurs de cellules dans la macro ci dessous
j'ai ajouté 2 collones de plus sur le tableau journal k6 et L6 ce qui me donne le debit et credit de la contre partie les valeurs sont donc inversé par rapport au compte initial soit compte debit=G6 contrepartie credit=L6 compte credit=H6 contrepartie debit=K6 exemple une foi que la recherche est fini If Range("D6") = "516000" Or Range("J6") = "516000" Then sur le tableau du compte, lorsque la rechercheD6 a donné la réponse oui sa range la ligne B6:J6 jusque la s'est OK sur le compte de contre partie suite a la recherche J6 il faudrait que sa me place les valeurs de K6:L6 dans les collones de G et H
j'ai la posibilité également de copier toute la ligne et de camoufler les valeur de G et H restant ainsi visible que les valeurs des contre parties mais sa vas me charger les tableaux avec des données inutiles ce pourquoi je recherche un complément a la macro que ma enseigné isabelle que je remerci encore 1foix pour l'aide qu'elle ma fourni hier au soir voila sa macro
ActiveSheet.Shapes("Button 77").Select If Range("D5") = "512000" Or Range("J5") = "512000" Then lgn = Sheets("feuil1").Range("B65536").End(xlUp).Row + 1 Sheets("SAISI").Range("B5:J5").Copy Destination:=Sheets("Feuil1").Range("B" & lgn)
Sheets("feuil1").Select
End If
en espèrent ne pas trop vous ennuyer avec mes problèmes de débutant merci encore et bonne nuit a tous
francois
Bonjours isabelle? j'ai éssayé la macro comme modifé ci dessous sa marche correct sauf, que lorsque la contre partie J5 qui doit me commender l'inversion des cellules K & L vers les cellules G &H ne correspond pas a ce que je voulais faire en fait sa me déplace les cellules K L vers B C ou il y aurais du avoir la date et les n° de cheques le but recherché étais de copier la ligne B5:J5 et de remplacer les cellules G5 &H5 par les cellules K5 & L5 de sorte que la ligne soit entierre soit compte B5 C5 D5 E5 F5 G5 H5 I5 J5 K & L sont des cellules cachées contrepartie B5 C5 D5 E5 F5 K5 L5 I5 J5
j'ai pas voulu vous ennuiller avec sa et je planche dessus depuis 18H avec l'espoir d'y arriver en fait j'ai trouvé une solution qui fonctionne j'ai incéré deux autres lignes lgn7 & lgn8 sur la ligne 8 j'ai repproduit toutes les cellules de la ligne 6 (calculs) et renvoyé par collage spécial dans la ligne 7 pour avoir que des valeurs sans formules ce qui donne ceci contrepartie B7 C7 J7 E5 F5 H7 G7 I5 D7 en valeur de cellule ce qui m'interverti J7au lieu de D5 ;H7 au lieu de G5; G7 au lieu de H5 et D7 au lieu de J5 j'ai fait une macro de saisi pour indiquer qu'il faut selectionner la ligne 8 faire colage spécial sur la ligne 7 ce qui fait que les lignes 5 et 7 se modifient en meme temps par rapport a la selection des opérations effectues ensuite j'ai fait un bouton enregistre qui fait fonctionner les macros de saisi, et de ventilation resultat d'une seule saisi je remplis le journal, le rapport comptable et toutes les ventilations de comptes
ceci grace a vous isabele je suis fier d'avoir réussi vue que je suis un débutant en VBA mais s'est grace a vos conseils avisés je n'oubli pas papyty et tout les membres actif de ce forum d'ailleur je vous tire le chapeau pour les connaissances que vous avez dans la matière encore 1000 fois merci
"isabelle" a écrit dans le message de news:
bonjour francois,
il faut vérifier les valeurs séparément
lgn = Sheets("feuil1").Range("B65536").End(xlUp).Row + 1 If Range("D5") = "512000" Then Sheets("SAISI").Range("B5:J5").Copy Destination:=Sheets("Feuil1").Range("B" & lgn) ElseIf Range("J5") = "512000" Then Sheets("SAISI").Range("K5:L5").Copy Destination:=Sheets("Feuil1").Range("B" & lgn) End If
isabelle
bonjours isabelle je voudrais savoir s'il est possible d'inverser les valeurs de cellules dans la macro ci dessous
j'ai ajouté 2 collones de plus sur le tableau journal k6 et L6 ce qui me donne le debit et credit de la contre partie les valeurs sont donc inversé
par rapport au compte initial soit compte debit=G6 contrepartie credit=L6 compte credit=H6 contrepartie debit=K6 exemple une foi que la recherche est fini If Range("D6") = "516000" Or Range("J6") = "516000" Then sur le tableau du compte, lorsque la rechercheD6 a donné la réponse oui sa
range la ligne B6:J6 jusque la s'est OK sur le compte de contre partie suite a la recherche J6 il faudrait que sa me
place les valeurs de K6:L6 dans les collones de G et H
j'ai la posibilité également de copier toute la ligne et de camoufler les
valeur de G et H restant ainsi visible que les valeurs des contre parties
mais sa vas me charger les tableaux avec des données inutiles ce pourquoi
je recherche un complément a la macro que ma enseigné isabelle que je remerci encore 1foix pour l'aide qu'elle ma fourni hier au soir voila sa macro
ActiveSheet.Shapes("Button 77").Select If Range("D5") = "512000" Or Range("J5") = "512000" Then lgn = Sheets("feuil1").Range("B65536").End(xlUp).Row + 1 Sheets("SAISI").Range("B5:J5").Copy Destination:=Sheets("Feuil1").Range("B"
& lgn)
Sheets("feuil1").Select
End If
en espèrent ne pas trop vous ennuyer avec mes problèmes de débutant merci encore et bonne nuit a tous
Bonjours isabelle?
j'ai éssayé la macro comme modifé ci dessous
sa marche correct sauf, que lorsque la contre partie J5 qui doit me
commender l'inversion des cellules K & L vers les cellules G &H ne
correspond pas a ce que je voulais faire
en fait sa me déplace les cellules K L vers B C ou il y aurais du avoir la
date et les n° de cheques
le but recherché étais de copier la ligne B5:J5 et de remplacer les cellules
G5 &H5 par les cellules K5 & L5 de sorte que la ligne soit entierre
soit compte B5 C5 D5 E5 F5 G5 H5 I5 J5 K & L sont des cellules cachées
contrepartie B5 C5 D5 E5 F5 K5 L5 I5 J5
j'ai pas voulu vous ennuiller avec sa et je planche dessus depuis 18H
avec l'espoir d'y arriver
en fait j'ai trouvé une solution qui fonctionne
j'ai incéré deux autres lignes lgn7 & lgn8
sur la ligne 8 j'ai repproduit toutes les cellules de la ligne 6 (calculs)
et renvoyé par collage spécial dans la ligne 7 pour avoir que des valeurs
sans formules
ce qui donne ceci contrepartie B7 C7 J7 E5 F5 H7 G7 I5 D7 en valeur de
cellule ce qui m'interverti J7au lieu de D5 ;H7 au lieu de G5;
G7 au lieu de H5 et D7 au lieu de J5
j'ai fait une macro de saisi pour indiquer qu'il faut selectionner la ligne
8 faire colage spécial sur la ligne 7
ce qui fait que les lignes 5 et 7 se modifient en meme temps par rapport a
la selection des opérations effectues
ensuite j'ai fait un bouton enregistre qui fait fonctionner les macros de
saisi, et de ventilation
resultat d'une seule saisi je remplis le journal, le rapport comptable et
toutes les ventilations de comptes
ceci grace a vous isabele je suis fier d'avoir réussi vue que je suis un
débutant en VBA mais s'est grace a vos conseils avisés je n'oubli pas
papyty et tout les membres actif de ce forum
d'ailleur je vous tire le chapeau pour les connaissances que vous avez dans
la matière
encore 1000 fois merci
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de news:
3FCE9640.89FF8FB2@videotron.ca...
bonjour francois,
il faut vérifier les valeurs séparément
lgn = Sheets("feuil1").Range("B65536").End(xlUp).Row + 1
If Range("D5") = "512000" Then
Sheets("SAISI").Range("B5:J5").Copy
Destination:=Sheets("Feuil1").Range("B" & lgn)
ElseIf Range("J5") = "512000" Then
Sheets("SAISI").Range("K5:L5").Copy
Destination:=Sheets("Feuil1").Range("B" & lgn)
End If
isabelle
bonjours isabelle
je voudrais savoir s'il est possible d'inverser les valeurs de cellules
dans la macro ci dessous
j'ai ajouté 2 collones de plus sur le tableau journal k6 et L6 ce qui me
donne le debit et credit de la contre partie les valeurs sont donc
inversé
par rapport au compte initial
soit compte debit=G6 contrepartie credit=L6
compte credit=H6 contrepartie debit=K6
exemple
une foi que la recherche est fini
If Range("D6") = "516000" Or Range("J6") = "516000" Then
sur le tableau du compte, lorsque la rechercheD6 a donné la réponse oui
sa
range la ligne B6:J6 jusque la s'est OK
sur le compte de contre partie suite a la recherche J6 il faudrait que
sa me
place les valeurs de K6:L6 dans les collones de G et H
j'ai la posibilité également de copier toute la ligne et de camoufler
les
valeur de G et H restant ainsi visible que les valeurs des contre
parties
mais sa vas me charger les tableaux avec des données inutiles ce
pourquoi
je recherche un complément a la macro que ma enseigné isabelle que je
remerci encore 1foix pour l'aide qu'elle ma fourni hier au soir
voila sa macro
ActiveSheet.Shapes("Button 77").Select
If Range("D5") = "512000" Or Range("J5") = "512000" Then
lgn = Sheets("feuil1").Range("B65536").End(xlUp).Row + 1
Sheets("SAISI").Range("B5:J5").Copy
Destination:=Sheets("Feuil1").Range("B"
& lgn)
Sheets("feuil1").Select
End If
en espèrent ne pas trop vous ennuyer avec mes problèmes de débutant
merci encore
et bonne nuit a tous
Bonjours isabelle? j'ai éssayé la macro comme modifé ci dessous sa marche correct sauf, que lorsque la contre partie J5 qui doit me commender l'inversion des cellules K & L vers les cellules G &H ne correspond pas a ce que je voulais faire en fait sa me déplace les cellules K L vers B C ou il y aurais du avoir la date et les n° de cheques le but recherché étais de copier la ligne B5:J5 et de remplacer les cellules G5 &H5 par les cellules K5 & L5 de sorte que la ligne soit entierre soit compte B5 C5 D5 E5 F5 G5 H5 I5 J5 K & L sont des cellules cachées contrepartie B5 C5 D5 E5 F5 K5 L5 I5 J5
j'ai pas voulu vous ennuiller avec sa et je planche dessus depuis 18H avec l'espoir d'y arriver en fait j'ai trouvé une solution qui fonctionne j'ai incéré deux autres lignes lgn7 & lgn8 sur la ligne 8 j'ai repproduit toutes les cellules de la ligne 6 (calculs) et renvoyé par collage spécial dans la ligne 7 pour avoir que des valeurs sans formules ce qui donne ceci contrepartie B7 C7 J7 E5 F5 H7 G7 I5 D7 en valeur de cellule ce qui m'interverti J7au lieu de D5 ;H7 au lieu de G5; G7 au lieu de H5 et D7 au lieu de J5 j'ai fait une macro de saisi pour indiquer qu'il faut selectionner la ligne 8 faire colage spécial sur la ligne 7 ce qui fait que les lignes 5 et 7 se modifient en meme temps par rapport a la selection des opérations effectues ensuite j'ai fait un bouton enregistre qui fait fonctionner les macros de saisi, et de ventilation resultat d'une seule saisi je remplis le journal, le rapport comptable et toutes les ventilations de comptes
ceci grace a vous isabele je suis fier d'avoir réussi vue que je suis un débutant en VBA mais s'est grace a vos conseils avisés je n'oubli pas papyty et tout les membres actif de ce forum d'ailleur je vous tire le chapeau pour les connaissances que vous avez dans la matière encore 1000 fois merci
"isabelle" a écrit dans le message de news:
bonjour francois,
il faut vérifier les valeurs séparément
lgn = Sheets("feuil1").Range("B65536").End(xlUp).Row + 1 If Range("D5") = "512000" Then Sheets("SAISI").Range("B5:J5").Copy Destination:=Sheets("Feuil1").Range("B" & lgn) ElseIf Range("J5") = "512000" Then Sheets("SAISI").Range("K5:L5").Copy Destination:=Sheets("Feuil1").Range("B" & lgn) End If
isabelle
bonjours isabelle je voudrais savoir s'il est possible d'inverser les valeurs de cellules dans la macro ci dessous
j'ai ajouté 2 collones de plus sur le tableau journal k6 et L6 ce qui me donne le debit et credit de la contre partie les valeurs sont donc inversé
par rapport au compte initial soit compte debit=G6 contrepartie credit=L6 compte credit=H6 contrepartie debit=K6 exemple une foi que la recherche est fini If Range("D6") = "516000" Or Range("J6") = "516000" Then sur le tableau du compte, lorsque la rechercheD6 a donné la réponse oui sa
range la ligne B6:J6 jusque la s'est OK sur le compte de contre partie suite a la recherche J6 il faudrait que sa me
place les valeurs de K6:L6 dans les collones de G et H
j'ai la posibilité également de copier toute la ligne et de camoufler les
valeur de G et H restant ainsi visible que les valeurs des contre parties
mais sa vas me charger les tableaux avec des données inutiles ce pourquoi
je recherche un complément a la macro que ma enseigné isabelle que je remerci encore 1foix pour l'aide qu'elle ma fourni hier au soir voila sa macro
ActiveSheet.Shapes("Button 77").Select If Range("D5") = "512000" Or Range("J5") = "512000" Then lgn = Sheets("feuil1").Range("B65536").End(xlUp).Row + 1 Sheets("SAISI").Range("B5:J5").Copy Destination:=Sheets("Feuil1").Range("B"
& lgn)
Sheets("feuil1").Select
End If
en espèrent ne pas trop vous ennuyer avec mes problèmes de débutant merci encore et bonne nuit a tous
isabelle
alors tout est pour le mieux, j'en suis bien heureuse Francois. au plaisir isabelle
Bonjours isabelle? j'ai éssayé la macro comme modifé ci dessous sa marche correct sauf, que lorsque la contre partie J5 qui doit me commender l'inversion des cellules K & L vers les cellules G &H ne correspond pas a ce que je voulais faire en fait sa me déplace les cellules K L vers B C ou il y aurais du avoir la date et les n° de cheques le but recherché étais de copier la ligne B5:J5 et de remplacer les cellules G5 &H5 par les cellules K5 & L5 de sorte que la ligne soit entierre soit compte B5 C5 D5 E5 F5 G5 H5 I5 J5 K & L sont des cellules cachées contrepartie B5 C5 D5 E5 F5 K5 L5 I5 J5
j'ai pas voulu vous ennuiller avec sa et je planche dessus depuis 18H avec l'espoir d'y arriver en fait j'ai trouvé une solution qui fonctionne j'ai incéré deux autres lignes lgn7 & lgn8 sur la ligne 8 j'ai repproduit toutes les cellules de la ligne 6 (calculs) et renvoyé par collage spécial dans la ligne 7 pour avoir que des valeurs sans formules ce qui donne ceci contrepartie B7 C7 J7 E5 F5 H7 G7 I5 D7 en valeur de cellule ce qui m'interverti J7au lieu de D5 ;H7 au lieu de G5; G7 au lieu de H5 et D7 au lieu de J5 j'ai fait une macro de saisi pour indiquer qu'il faut selectionner la ligne 8 faire colage spécial sur la ligne 7 ce qui fait que les lignes 5 et 7 se modifient en meme temps par rapport a la selection des opérations effectues ensuite j'ai fait un bouton enregistre qui fait fonctionner les macros de saisi, et de ventilation resultat d'une seule saisi je remplis le journal, le rapport comptable et toutes les ventilations de comptes
ceci grace a vous isabele je suis fier d'avoir réussi vue que je suis un débutant en VBA mais s'est grace a vos conseils avisés je n'oubli pas papyty et tout les membres actif de ce forum d'ailleur je vous tire le chapeau pour les connaissances que vous avez dans la matière encore 1000 fois merci
"isabelle" a écrit dans le message de news:
bonjour francois,
il faut vérifier les valeurs séparément
lgn = Sheets("feuil1").Range("B65536").End(xlUp).Row + 1 If Range("D5") = "512000" Then Sheets("SAISI").Range("B5:J5").Copy Destination:=Sheets("Feuil1").Range("B" & lgn) ElseIf Range("J5") = "512000" Then Sheets("SAISI").Range("K5:L5").Copy Destination:=Sheets("Feuil1").Range("B" & lgn) End If
isabelle
bonjours isabelle je voudrais savoir s'il est possible d'inverser les valeurs de cellules dans la macro ci dessous
j'ai ajouté 2 collones de plus sur le tableau journal k6 et L6 ce qui me donne le debit et credit de la contre partie les valeurs sont donc inversé
par rapport au compte initial soit compte debit=G6 contrepartie credit=L6 compte credit=H6 contrepartie debit=K6 exemple une foi que la recherche est fini If Range("D6") = "516000" Or Range("J6") = "516000" Then sur le tableau du compte, lorsque la rechercheD6 a donné la réponse oui sa
range la ligne B6:J6 jusque la s'est OK sur le compte de contre partie suite a la recherche J6 il faudrait que sa me
place les valeurs de K6:L6 dans les collones de G et H
j'ai la posibilité également de copier toute la ligne et de camoufler les
valeur de G et H restant ainsi visible que les valeurs des contre parties
mais sa vas me charger les tableaux avec des données inutiles ce pourquoi
je recherche un complément a la macro que ma enseigné isabelle que je remerci encore 1foix pour l'aide qu'elle ma fourni hier au soir voila sa macro
ActiveSheet.Shapes("Button 77").Select If Range("D5") = "512000" Or Range("J5") = "512000" Then lgn = Sheets("feuil1").Range("B65536").End(xlUp).Row + 1 Sheets("SAISI").Range("B5:J5").Copy Destination:=Sheets("Feuil1").Range("B"
& lgn)
Sheets("feuil1").Select
End If
en espèrent ne pas trop vous ennuyer avec mes problèmes de débutant merci encore et bonne nuit a tous
alors tout est pour le mieux, j'en suis bien heureuse Francois.
au plaisir
isabelle
Bonjours isabelle?
j'ai éssayé la macro comme modifé ci dessous
sa marche correct sauf, que lorsque la contre partie J5 qui doit me
commender l'inversion des cellules K & L vers les cellules G &H ne
correspond pas a ce que je voulais faire
en fait sa me déplace les cellules K L vers B C ou il y aurais du avoir la
date et les n° de cheques
le but recherché étais de copier la ligne B5:J5 et de remplacer les cellules
G5 &H5 par les cellules K5 & L5 de sorte que la ligne soit entierre
soit compte B5 C5 D5 E5 F5 G5 H5 I5 J5 K & L sont des cellules cachées
contrepartie B5 C5 D5 E5 F5 K5 L5 I5 J5
j'ai pas voulu vous ennuiller avec sa et je planche dessus depuis 18H
avec l'espoir d'y arriver
en fait j'ai trouvé une solution qui fonctionne
j'ai incéré deux autres lignes lgn7 & lgn8
sur la ligne 8 j'ai repproduit toutes les cellules de la ligne 6 (calculs)
et renvoyé par collage spécial dans la ligne 7 pour avoir que des valeurs
sans formules
ce qui donne ceci contrepartie B7 C7 J7 E5 F5 H7 G7 I5 D7 en valeur de
cellule ce qui m'interverti J7au lieu de D5 ;H7 au lieu de G5;
G7 au lieu de H5 et D7 au lieu de J5
j'ai fait une macro de saisi pour indiquer qu'il faut selectionner la ligne
8 faire colage spécial sur la ligne 7
ce qui fait que les lignes 5 et 7 se modifient en meme temps par rapport a
la selection des opérations effectues
ensuite j'ai fait un bouton enregistre qui fait fonctionner les macros de
saisi, et de ventilation
resultat d'une seule saisi je remplis le journal, le rapport comptable et
toutes les ventilations de comptes
ceci grace a vous isabele je suis fier d'avoir réussi vue que je suis un
débutant en VBA mais s'est grace a vos conseils avisés je n'oubli pas
papyty et tout les membres actif de ce forum
d'ailleur je vous tire le chapeau pour les connaissances que vous avez dans
la matière
encore 1000 fois merci
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de news:
3FCE9640.89FF8FB2@videotron.ca...
bonjour francois,
il faut vérifier les valeurs séparément
lgn = Sheets("feuil1").Range("B65536").End(xlUp).Row + 1
If Range("D5") = "512000" Then
Sheets("SAISI").Range("B5:J5").Copy
Destination:=Sheets("Feuil1").Range("B" & lgn)
ElseIf Range("J5") = "512000" Then
Sheets("SAISI").Range("K5:L5").Copy
Destination:=Sheets("Feuil1").Range("B" & lgn)
End If
isabelle
bonjours isabelle
je voudrais savoir s'il est possible d'inverser les valeurs de cellules
dans la macro ci dessous
j'ai ajouté 2 collones de plus sur le tableau journal k6 et L6 ce qui me
donne le debit et credit de la contre partie les valeurs sont donc
inversé
par rapport au compte initial
soit compte debit=G6 contrepartie credit=L6
compte credit=H6 contrepartie debit=K6
exemple
une foi que la recherche est fini
If Range("D6") = "516000" Or Range("J6") = "516000" Then
sur le tableau du compte, lorsque la rechercheD6 a donné la réponse oui
sa
range la ligne B6:J6 jusque la s'est OK
sur le compte de contre partie suite a la recherche J6 il faudrait que
sa me
place les valeurs de K6:L6 dans les collones de G et H
j'ai la posibilité également de copier toute la ligne et de camoufler
les
valeur de G et H restant ainsi visible que les valeurs des contre
parties
mais sa vas me charger les tableaux avec des données inutiles ce
pourquoi
je recherche un complément a la macro que ma enseigné isabelle que je
remerci encore 1foix pour l'aide qu'elle ma fourni hier au soir
voila sa macro
ActiveSheet.Shapes("Button 77").Select
If Range("D5") = "512000" Or Range("J5") = "512000" Then
lgn = Sheets("feuil1").Range("B65536").End(xlUp).Row + 1
Sheets("SAISI").Range("B5:J5").Copy
Destination:=Sheets("Feuil1").Range("B"
& lgn)
Sheets("feuil1").Select
End If
en espèrent ne pas trop vous ennuyer avec mes problèmes de débutant
merci encore
et bonne nuit a tous
alors tout est pour le mieux, j'en suis bien heureuse Francois. au plaisir isabelle
Bonjours isabelle? j'ai éssayé la macro comme modifé ci dessous sa marche correct sauf, que lorsque la contre partie J5 qui doit me commender l'inversion des cellules K & L vers les cellules G &H ne correspond pas a ce que je voulais faire en fait sa me déplace les cellules K L vers B C ou il y aurais du avoir la date et les n° de cheques le but recherché étais de copier la ligne B5:J5 et de remplacer les cellules G5 &H5 par les cellules K5 & L5 de sorte que la ligne soit entierre soit compte B5 C5 D5 E5 F5 G5 H5 I5 J5 K & L sont des cellules cachées contrepartie B5 C5 D5 E5 F5 K5 L5 I5 J5
j'ai pas voulu vous ennuiller avec sa et je planche dessus depuis 18H avec l'espoir d'y arriver en fait j'ai trouvé une solution qui fonctionne j'ai incéré deux autres lignes lgn7 & lgn8 sur la ligne 8 j'ai repproduit toutes les cellules de la ligne 6 (calculs) et renvoyé par collage spécial dans la ligne 7 pour avoir que des valeurs sans formules ce qui donne ceci contrepartie B7 C7 J7 E5 F5 H7 G7 I5 D7 en valeur de cellule ce qui m'interverti J7au lieu de D5 ;H7 au lieu de G5; G7 au lieu de H5 et D7 au lieu de J5 j'ai fait une macro de saisi pour indiquer qu'il faut selectionner la ligne 8 faire colage spécial sur la ligne 7 ce qui fait que les lignes 5 et 7 se modifient en meme temps par rapport a la selection des opérations effectues ensuite j'ai fait un bouton enregistre qui fait fonctionner les macros de saisi, et de ventilation resultat d'une seule saisi je remplis le journal, le rapport comptable et toutes les ventilations de comptes
ceci grace a vous isabele je suis fier d'avoir réussi vue que je suis un débutant en VBA mais s'est grace a vos conseils avisés je n'oubli pas papyty et tout les membres actif de ce forum d'ailleur je vous tire le chapeau pour les connaissances que vous avez dans la matière encore 1000 fois merci
"isabelle" a écrit dans le message de news:
bonjour francois,
il faut vérifier les valeurs séparément
lgn = Sheets("feuil1").Range("B65536").End(xlUp).Row + 1 If Range("D5") = "512000" Then Sheets("SAISI").Range("B5:J5").Copy Destination:=Sheets("Feuil1").Range("B" & lgn) ElseIf Range("J5") = "512000" Then Sheets("SAISI").Range("K5:L5").Copy Destination:=Sheets("Feuil1").Range("B" & lgn) End If
isabelle
bonjours isabelle je voudrais savoir s'il est possible d'inverser les valeurs de cellules dans la macro ci dessous
j'ai ajouté 2 collones de plus sur le tableau journal k6 et L6 ce qui me donne le debit et credit de la contre partie les valeurs sont donc inversé
par rapport au compte initial soit compte debit=G6 contrepartie credit=L6 compte credit=H6 contrepartie debit=K6 exemple une foi que la recherche est fini If Range("D6") = "516000" Or Range("J6") = "516000" Then sur le tableau du compte, lorsque la rechercheD6 a donné la réponse oui sa
range la ligne B6:J6 jusque la s'est OK sur le compte de contre partie suite a la recherche J6 il faudrait que sa me
place les valeurs de K6:L6 dans les collones de G et H
j'ai la posibilité également de copier toute la ligne et de camoufler les
valeur de G et H restant ainsi visible que les valeurs des contre parties
mais sa vas me charger les tableaux avec des données inutiles ce pourquoi
je recherche un complément a la macro que ma enseigné isabelle que je remerci encore 1foix pour l'aide qu'elle ma fourni hier au soir voila sa macro
ActiveSheet.Shapes("Button 77").Select If Range("D5") = "512000" Or Range("J5") = "512000" Then lgn = Sheets("feuil1").Range("B65536").End(xlUp).Row + 1 Sheets("SAISI").Range("B5:J5").Copy Destination:=Sheets("Feuil1").Range("B"
& lgn)
Sheets("feuil1").Select
End If
en espèrent ne pas trop vous ennuyer avec mes problèmes de débutant merci encore et bonne nuit a tous
