> 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 poster des messages. 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
127,66 €Ecran PC 24 pouces Samsung C24RG50 (incurvé, FHD, 144 Hz, 4 ms) à 127,66 € avec le code GAMER10
Valable jusqu'au 22 Février

Cdiscount fait une promotion sur l'écran PC 24 pouces Samsung C24RG50 qui passe à 127,66 € livré gratuitement avec le code GAMER10 alors qu'on le trouve ailleurs à partir de 185 €. Cet écran incurvé possède une dalle VA FullHD (1920x1080) avec un rafraichissement de 144 Hz et un temps de réponse de 4 ms. Un très bon écran dédié aux joueurs.


> Voir l'offre
137,70 €Disque dur externe USB 3.0 Seagate 8 To à 137,70 € livré
Valable jusqu'au 20 Février

Amazon Allemagne propose actuellement le disque dur Seagate Expansion Desktop Drive 8 To à 131,09 € (avec la TVA ajustée). Comptez 6,61 € pour la livraison en France soit un total de 137,70 € livré alors qu'on le trouve ailleurs à partir de 200 €. Le disque est non soudé et vous pourez le récupérer pour l'utiliser dans un ordinateur, un NAS, etc. Connexion USB 3.0.

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douanes. Si vous êtes perdu en allemand, vous pouvez traduire le site en anglais.


> Voir l'offre
39,99 €Enceintes 2.1 Logitech Z337 avec bluetooth à 39,99 €
Valable jusqu'au 19 Février

Amazon fait une promotion sur le kit d'enceintes 2.1 Logitech Z337 (2 enceintes + 1 caisson de basses) d'une puissance de 40 W avec bluetooth qui passe à 49,99 € livré gratuitement. On le trouve ailleurs à partir de 79 €. Il possède un boitier de commande pour mettre les haut-parleurs sous tension, accéder au couplage Bluetooth et régler le volume.


> Voir l'offre

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