Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Convertir une Macro Excel 5 en VBA

Convertir une Macro Excel 5 en VBA

2 réponses
Avatar
deeperpaul
Bonjour pouvez-vous me convertir cette macro en VBA :

Enregistrement1 (a)
=POSER.VALEUR(qte_E;0)
=POSER.VALEUR(qte_S;0)

=OUVRIR("d:\privé\plmat\INT\Entrees.xls")
=SELECTIONNER("L2C1")
=OUVRIR("d:\privé\plmat\INT\Sorties.xls")
=SELECTIONNER("L2C1")
=TANT.QUE(CELLULE.ACTIVE()<>"")
=SELECTIONNER("lc10")
=TANT.QUE(CELLULE.ACTIVE()="OK")
=SELECTIONNER("l(1)c")
=SUIVANT()
=SELECTIONNER("lc5")
=CELLULE.ACTIVE() (NumSerie)
=SELECTIONNER("lc8")
=CELLULE.ACTIVE() (qte_S)

=ACTIVER("Entrees.xls")
=SI(RECHERCHER.SELECTION(NumSerie;1;2;1;1;FAUX))
=SELECTIONNER(DECALER(CELLULE.ACTIVE();0;6;;))
=ACTIVER("Sorties.xls")
=SELECTIONNER("lc1")
=COPIER()
=ACTIVER("Entrees.xls")
=COLLER()
=SELECTIONNER(DECALER(CELLULE.ACTIVE();0;1;;))
=ACTIVER("Sorties.xls")
=SELECTIONNER("lc2")
=COPIER()
=ACTIVER("Entrees.xls")
=COLLER()
=SELECTIONNER("lc9")
=CELLULE.ACTIVE() (qte_E)
=FORMULE(qte_E-qte_S)

=ACTIVER("Sorties.xls")
=SELECTIONNER("lc10")
=FORMULE("OK")
=FIN.SI()
=SELECTIONNER("l(1)c1")
=POSER.VALEUR(qte_E;0)
=POSER.VALEUR(qte_S;0)


=SUIVANT()
=ACTIVER("Entrees.xls")
=SELECTIONNER("l1c1")

=RETOUR()


Merci beaucoup.
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
anonymousA
Bonjour,

si tu parles Anglais et que tu as l'aide VBA installée sous Excel, il ne
te faudra pas longtemps pour traduire cette macro en Anglais puis à
rapprocher des méthodes et propriétés qui sont décrites dans l'aide.
Et en +, ca sera pédagogique.
Il te faudra récupérer autrement un fichier de traduction Francais
Anglais des commandes Excel5 mais ca existe sur Excelabo , du moins de
mémoire.

Have fun

A+

Bonjour pouvez-vous me convertir cette macro en VBA :

Enregistrement1 (a)
=POSER.VALEUR(qte_E;0)
=POSER.VALEUR(qte_S;0)

=OUVRIR("d:privéplmatINTEntrees.xls")
=SELECTIONNER("L2C1")
=OUVRIR("d:privéplmatINTSorties.xls")
=SELECTIONNER("L2C1")
=TANT.QUE(CELLULE.ACTIVE()<>"")
=SELECTIONNER("lc10")
=TANT.QUE(CELLULE.ACTIVE()="OK")
=SELECTIONNER("l(1)c")
=SUIVANT()
=SELECTIONNER("lc5")
ÎLLULE.ACTIVE() (NumSerie)
=SELECTIONNER("lc8")
ÎLLULE.ACTIVE() (qte_S)

¬TIVER("Entrees.xls")
=SI(RECHERCHER.SELECTION(NumSerie;1;2;1;1;FAUX))
=SELECTIONNER(DECALER(CELLULE.ACTIVE();0;6;;))
¬TIVER("Sorties.xls")
=SELECTIONNER("lc1")
=COPIER()
¬TIVER("Entrees.xls")
=COLLER()
=SELECTIONNER(DECALER(CELLULE.ACTIVE();0;1;;))
¬TIVER("Sorties.xls")
=SELECTIONNER("lc2")
=COPIER()
¬TIVER("Entrees.xls")
=COLLER()
=SELECTIONNER("lc9")
ÎLLULE.ACTIVE() (qte_E)
=FORMULE(qte_E-qte_S)

¬TIVER("Sorties.xls")
=SELECTIONNER("lc10")
=FORMULE("OK")
=FIN.SI()
=SELECTIONNER("l(1)c1")
=POSER.VALEUR(qte_E;0)
=POSER.VALEUR(qte_S;0)


=SUIVANT()
¬TIVER("Entrees.xls")
=SELECTIONNER("l1c1")

=RETOUR()


Merci beaucoup.



Avatar
deeperpaul
Bonjour Have Fun,

Sorry mais l'anglais et moi ça fait 2, je suis allé sur excelabo et jet n'ai
pas trouvé de traducteur.
De plus je travail à mi-temps, pour te dire que je n'ai pas beaucoup de
temps pour me former.
Donc ce que je voudrais c'est que l'on me traduise cette macro pour me
permettre de comprendre plus facilement VBA.

Merci par avance.



Bonjour,

si tu parles Anglais et que tu as l'aide VBA installée sous Excel, il ne
te faudra pas longtemps pour traduire cette macro en Anglais puis à
rapprocher des méthodes et propriétés qui sont décrites dans l'aide.
Et en +, ca sera pédagogique.
Il te faudra récupérer autrement un fichier de traduction Francais
Anglais des commandes Excel5 mais ca existe sur Excelabo , du moins de
mémoire.

Have fun

A+

Bonjour pouvez-vous me convertir cette macro en VBA :

Enregistrement1 (a)
=POSER.VALEUR(qte_E;0)
=POSER.VALEUR(qte_S;0)

=OUVRIR("d:privéplmatINTEntrees.xls")
=SELECTIONNER("L2C1")
=OUVRIR("d:privéplmatINTSorties.xls")
=SELECTIONNER("L2C1")
=TANT.QUE(CELLULE.ACTIVE()<>"")
=SELECTIONNER("lc10")
=TANT.QUE(CELLULE.ACTIVE()="OK")
=SELECTIONNER("l(1)c")
=SUIVANT()
=SELECTIONNER("lc5")
ÎLLULE.ACTIVE() (NumSerie)
=SELECTIONNER("lc8")
ÎLLULE.ACTIVE() (qte_S)

¬TIVER("Entrees.xls")
=SI(RECHERCHER.SELECTION(NumSerie;1;2;1;1;FAUX))
=SELECTIONNER(DECALER(CELLULE.ACTIVE();0;6;;))
¬TIVER("Sorties.xls")
=SELECTIONNER("lc1")
=COPIER()
¬TIVER("Entrees.xls")
=COLLER()
=SELECTIONNER(DECALER(CELLULE.ACTIVE();0;1;;))
¬TIVER("Sorties.xls")
=SELECTIONNER("lc2")
=COPIER()
¬TIVER("Entrees.xls")
=COLLER()
=SELECTIONNER("lc9")
ÎLLULE.ACTIVE() (qte_E)
=FORMULE(qte_E-qte_S)

¬TIVER("Sorties.xls")
=SELECTIONNER("lc10")
=FORMULE("OK")
=FIN.SI()
=SELECTIONNER("l(1)c1")
=POSER.VALEUR(qte_E;0)
=POSER.VALEUR(qte_S;0)


=SUIVANT()
¬TIVER("Entrees.xls")
=SELECTIONNER("l1c1")

=RETOUR()


Merci beaucoup.