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

Carte mémoire microSDXC Samsung Pro Plus 512 Go (160 Mo/s) à 49,99 €
49,99 € ~~65 €~~ -23% @Amazon Allemagne

Amazon fait une promotion sur la carte mémoire microSDXC Samsung Pro Plus 512 Go qui passe à 49,99 €. On la trouve à partir de 65 € ailleurs.

Idéale pour les prises de vue 4K UHD et rafale jusqu'à 160 Mo/s en lecture et 120 Mo/s en écriture (UHS-I U3). Particulièrement robuste grâce à sa protection 7 couches : imperméable, résistant à la température, aux rayons X, à l'aimant, aux chocs, aux chutes et à l'usure.

Voir le bon plan

Carte graphique MSI Radeon RX 6800 Gaming Z Trio 16 Go à 492,04 € livrée
492,04 € ~~600 €~~ -18% @Amazon Allemagne

Amazon Allemagne propose actuellement la carte graphique MSI Radeon RX 6800 Gaming Z Trio 16 Go à 483,02 €. Comptez 8,02 € pour la livraison en France soit un total de 492,04 € livrée au lieu de 600 €. Une bonne affaire pour une carte graphique performante qui vous permettra de jouer à tout en haute qualité et haute fréquence en 1440p/1080p.

Voir le bon plan

Carte mémoire Samsung 128 Go MicroSDXC Evo Select U3 (130 Mo/s) à 16,49 €
16,49 € ~~25 €~~ -34% @Amazon

Amazon fait une promotion sur la carte mémoire Samsung 128 Go MicroSDXC Evo Select U3 qui passe à 16,49 €. Une bonne affaire pour cette carte que l'on trouve ailleurs à partir de 25 € et qui offre des vitesses de 130 Mo/s en lecture et 90 Mo/s en écriture. Elle est idéale pour les téléphones, caméras et appareils photo 4K. Elle est étanche, anti-choc et résiste aux rayons X et aux champs magnétiques. Elle est garantie 10 ans.

Voir le bon plan

Kit mémoire 32 Go DDR4 SO-DIMM Crucial (2x16 Go) 3200 MHz, CL22 à 66,79 €
66,79 € ~~90 €~~ -26% @Amazon

Amazon propose actuellement le kit mémoire 32 Go DDR4 SO-DIMM Crucial (2x16 Go) 3200 MHz, CL22 à 66,79 € alors qu'on le trouve ailleurs à partir de 90 €. Un excellent prix pour ce kit mémoire dédié aux ordinateurs portables et composé de 2 modules de 16 Go DDR4 3200 MHz CL22.

Voir le bon plan

5 bobines de filament PLA AmazonBasics (1,75 mm, 5x1 kg, 5 couleurs) à 67,31 €
67,31 € ~~91 €~~ -26% @Amazon

Amazon fait une belle promotion sur le lot de 5 bobines de filament PLA AmazonBasics pour imprimante 3D (1,75 mm, 1 kg) à 67,31 € au lieu de 91 €. Vous obtiendrez 5 bobines de 1 kg : bleu, noir, gris foncé, blanc et rouge. Un très bon filament testé sans problème par nos soins.

Voir le bon plan

Téléphone portable Energizer E13 (2G) à 12,99 €
12,99 € ~~30 €~~ -57% @Amazon

Amazon fait une promotion sur le téléphone portable Energizer E13 (2G) qui passe à 12,99 €. Si vous recherchez un téléphone qui vous servira à téléphoner et envoyer des SMS, qui ne craint rien et qui dispose d'une excellente autonomie (150 h en veille), voici l'appareil qu'il vous faut. Il intègre une radio FM et peut prendre en charge jusqu'à 2 cartes SIM (mini SIM).

Voir le bon plan