> Tous les forums > Forum Bureautique
 Passer plusieurs variables dans une autre macro excel VBASujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
claudio10
  Posté le 12/05/2013 @ 13:48 
Aller en bas de la page 
Astucien

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
Publicité
ferrand
 Posté le 12/05/2013 à 14:22 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

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 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Re

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 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Re

9a marche ,j'avais fait une ptite erreur

merci

Page : [1] 
Page 1 sur 1

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

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
Kit de 16 Go (2 x 8 Go) de mémoire DDR4 Kingston Fury Beast 3200 MHz à 40,83 € livré
40,83 € 60 € -32% @Amazon Allemagne

Amazon Allemagne propose actuellement le kit de 16 Go (2x8 Go) de mémoire DDR4 Fury Beast 3200 MHz CL16 à 36,20 € (avec la TVA ajustée). Comptez 4,63 € pour la livraison en France soit un total de 40,83 € livré alors qu'on le trouve ailleurs à plus de 60 €.


Voir le bon plan
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
Kit de surveillance Tapo C420S2 (2 caméras + base avec alarme sonore, QHD, extérieur IP65, WiFi) à 181,81 € livré
181,81 € 249,99 € -27% @Amazon Allemagne

Amazon Allemagne fait une belle promotion sur le kit Tapo C420S2 qui passe à 175,45 €. Comptez 6,36 € pour la livraison en France soit un total de 181,81 € livré au lieu de 249,99 €. Ce kit comporte 2 caméras de surveillance extérieures sans fil IP65, définition 4MP (QHD 2560x1440) avec détection de mouvements, vision nocturne, alarme sonore et lumineuse, audio bidirectionnel, batterie 180 jours. Stockage gratuit en local sur carte microSD dans la base, sur un NAS (compatible Synology) ou bien dans le cloud avec le service Tapo Care (sur abonnement).


Voir le bon plan
PC portable MSI Modern 15 (Core i3, 8 Go RAM, SSD 512 Go, Windows 11) à 399,99 €
399,99 € 550 € -27% @Amazon

Amazon fait une promotion sur le PC portable MSI Modern 15 B11M-020FR qui passe à 399,99 € au lieu de 550 €. Cet ordinateur possède une dalle 15.6 pouces Full HD anti reflet, est équipé d'un processeur Intel Core i3-1115G4, de 8 Go de RAM et d'un SSD NVME de 512 Go. Avec WiFi 6, Bluetooth, USB C. Il ne pèse que 1,7 kg et offre une autonomie de 8 heures. Il est fourni avec Windows 11.


Voir le bon plan
Lego Technic 42130 BMW M 1000 RR à 152,99 €
152,99 € 199,99 € -24% @Amazon

Amazon fait une promotion sur le Lego Technic 42130 BMW M 1000 RR qui passe à 152,99 €. On le trouve ailleurs à 199,99 €. 

Développée sur les circuits et perfectionnée sur route, la BMW M 1000 RR séduit les fans de sports mécaniques et de motos. Plongez dans un projet immersif en construisant la réplique LEGO® Technic (42130) de cette moto mythique. Admirez l’abondance de détails de cette maquette de moto à l’échelle 1:5, une première dans l’univers LEGO Technic. Présentant des fonctions authentiques, ce modèle se déplace comme l’original. Découvrez la boîte fonctionnelle à 3 vitesses (+ point mort), la direction, les suspensions avant et arrière, la transmission par chaîne et le moteur à 4 cylindres en ligne. La maquette porte le logo emblématique de BMW et constitue une superbe pièce de décoration, avec 2 supports. 1920 pièces.


Voir le bon plan
NAS Synology DS423+ (4 baies) à 461,92 € livré
461,92 € 549 € -16% @Amazon

Amazon Italie fait une promotion sur le NAS Synology DS423+ qui passe à 452,45 € (avec la TVA ajustée). Comptez 9,47 € pour la livraison en France soit un total de 461,92 € livré. On le trouve ailleurs à partir de 549 €. Le Synolgy DS423+ à 4 baies est un NAS performant doté de tous les outils dont vous avez besoin pour sécuriser, partager, sauvegarder et synchroniser vos données et vos fichiers multimédias.


Voir le bon plan

Sujets relatifs
2 pages par feuille dans macro excel
Excel 2007 Copier/Coller d’une feuille à l’autre Dans un même classeur.
Creation d' une boucle macro dans fichier EXCEL pour impression
Bouton macro dans feuille Excel 2010
(Macro) Copier onglet sur autre fichier Excel (2007)
Probleme excel - tri dans macro Excel 2007
excel vba passer une variable de commande vers macro
macro majuscule dans excel 2007
inserer une carte michelin ou autre dans excel
EXCEL RECHERCHEV pour autre fichier. Macro?
Plus de sujets relatifs à Passer plusieurs variables dans une autre macro excel VBA
 > Tous les forums > Forum Bureautique