Passer plusieurs variables dans une autre macro excel VBA

Passer plusieurs variables dans une autre macro excel VBA Sujet résolu

Ajouter un message à la discussion

claudio10

Posté le 12/05/2013 @ 13:48

Bonjour

excel -VBA

1ère macro

Sub col_D_E()
Application.ScreenUpdating = False 'gèle l'écran
name1 = ActiveSheet.Name 'copie le nom feuille active
Range("D3").Select
col1 = ActiveCell.Column: col2 = col1 + 1 'Numéro colonne et colonne +1
Cells(96, 1).Value = col1: Cells(96, 2).Value = name1
Call suite
End Sub

Macro suivante

Sub suite()
col1 = Cells(96, 1).Value: name1 = Cells(96, 2).Value: name2 = "Appel": col2 = col1 + 1
Sheets(name1).Select
ActiveWindow.ScrollColumn = 1 'positionnement 1ère colonne inscription etc..
ActiveWindow.ScrollRow = 1 'positionnement 1ère ligne inscription etc..
titre = Cells(1, 3).Value
titre = Trim(titre) 'supprime les espaces avant et après
Date1 = Cells(4, col1).Value
nbravec = Cells(5, col1).Value: nbrsans = Cells(5, col2).Value
Sheets(name2).Select 'Appel

Je suis obligé de les écrire avec la 1ère macro et de les relire avec la 2ème macro (jaune)

Je signale que j'ai essayé pas mal de suggestions trouvées sur internet ,mais rien ne fonctionne .

Nota:les 2 macros sont dans le même module

D'avance merci

Modifié par claudio10 le 12/05/2013 14:18

ferrand

Posté le 12/05/2013 à 14:22

Salut,

L'instruction Sub permet de déclarer des arguments pour la macro :

Sub suite(col1, col2, name1)

et l'appel permet de transmettre les arguments requis :

Call suite(col1, col2, name1)

Mais au cas particulier, il suffit simplement de fusionner les 2 macros en une, on ne voit pas ce qui justifie cette dissociation en 2 macros distinctes...

claudio10

Posté le 12/05/2013 à 17:28

j'ai une 1ère macro pour chaque paire de colonnes 28 en tout ensuite j'ai une macro "suite" pour la suite du traitement.

je viens d'essayer ça me répond "Argument non facultatif".j'ai même renommé l'autre macro suite(name1 ,col1)

bon je ne suis pas fortiche en macro ,mais comme je connais bien le basic ,je m'en sers.

Je sais c'est pas l'idéal.

merci @+

claudio10

Posté le 12/05/2013 à 18:38

9a marche ,j'avais fait une ptite erreur

merci

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !

Les bons plans du moment PC Astuces

Tous les Bons Plans

SSD Interne M.2 NVMe Samsung 980 1 To (3500 Mo/s) à 49,99 €
49,99 € ~~64 €~~ -22% @Amazon

Amazon fait une superbe promotion sur le SSD Interne M.2 NVMe PCIe 3.0 Samsung 980 1 To qui passe à 49,99 €. On le trouve ailleurs à partir de 64 €. Ce SSD offre des taux de transfert de 3500 Mo/s.

Voir le bon plan

Caméra de surveillance extérieure TP-Link Tapo C500 (360°, alarme sonore personnalisable) à 34,99 €
34,99 € ~~59,99 €~~ -42% @Amazon

Amazon fait une promotion sur la caméra extérieure de surveillance TP-Link Tapo C500 qui passe à 34,99 € livrée gratuitement au lieu de 59,99 € ailleurs. Cette caméra se connecte à votre réseau en WiFi et peut ensuite être contrôlée à distance. Elle offre une définition FHD 1080p, la vision nocturne, pivote à 360° à l'horizontale et 130° à la verticale, la détection et le suivi de mouvements (recevez une notification si quelque chose est détecté), une alarme sonore que vous pouvez personnaliser . Le stockage se fait (gratuitement) en local sur une carte MicroSD ou bien dans le cloud via un abonnement. Elle est étanche IP65.

Voir le bon plan

Calculatrice graphique NumWorks (pour le Lycée, application Python, mode examen) à 82,99 € (+33 € à cagnotter)
82,99 € ~~99 €~~ -16% @Cdiscount

Cdiscount fait une promotion sur la calculatrice graphique NumWorks (pour le Lycée, application Python, mode examen) qui passe à 82,99 €. Or 33 € sont à cagnotter pour cet achat pour les membres Cdiscount à volonté. Soit un prix de revient de 49,99 € !

Voir le bon plan

Imprimante 3D Creality Ender 5 S1 (nivellement auto, ultra rapide, 220x220x280mm) à 309,68 €
309,68 € ~~500 €~~ -38% @Geekbuying

Geekbuying fait une belle promotion sur la toute dernière imprimante 3D Creality Ender 5 S1 qui passe à 309,68 € avec le code NNNFRCR5S1. On la trouve ailleurs autour de 500 €. L'imprimante est expédiée depuis un stock Europe (en Pologne). Elle sera donc rapide et vous êtes sûr de ne pas avoir de douane.

La Creality Ender-5 S1 est une imprimante 3D conçue pour atteindre une vitesse fulgurante et la haute température. Avec un nivellement automatique CR-Touch et une vitesse d'impression pouvant atteindre les 250 mm/s, le processus d'impression est plus rapide que jamais.

Voir le bon plan

Bureau Assis Debout électrique SANODESK QS1 + plateau 140x60 cm à 139,99 €
139,99 € ~~179 €~~ -22% @Amazon

Amazon fait une promotion sur le bureau Assis Debout électrique SANODESK QS1 + plateau 140x60 cm qui passe à 139,99 € livré gratuitement. Hauteur réglable de 71 à 117 cm, 2 réglages possibles en mémoire. Plusieurs coloris disponibles.

Voir le bon plan

Caméra de surveillance TP-Link Tapo C200 à 19,99 €
19,99 € ~~39 €~~ -49% @Amazon

Amazon fait une promotion sur la caméra de surveillance TP-Link Tapo C200 qui passe à 19,99 €. On la trouve ailleurs autour d'une quarantaine d'euros. Cette caméra se connecte à votre réseau en WiFi et peut ensuite être contrôlée à distance. Elle offre une définition FullHD 1080p, la vision nocturne, la détection de mouvements (recevez une notification si quelque chose est détecté), une alarme sonore et visuelle. Le stockage se fait en local sur une carte MicroSD.

Voir le bon plan