> 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
PC Portable 16.1 pouces HP Victus (FHD 144 Hz, Ryzen 7 7840HS, 16Go/512Go, RTX 4070 8 Go) à 1199,99 €
1199,99 € 1499 € -20% @Cdiscount

Cdiscount fait une promotion sur le PC Portable 16.1 pouces HP Victus 16-s0019nf qui passe à 1199,99 €. On le trouve habituellement à 1499 €.

Il comporte un écran IPS Full HD de 16.1 pouces IPS, un processeur AMD Ryzen 7 7840HS (8 coeurs), 16 Go de RAM DDR5, un SSD de 512 Go, une carte graphique dédiée GeForce RTX 4070 8 Go, un clavier rétro éclairé,. Il possède aussi le WiFi 6, le bluetooth 5.2, 2 ports USB 3.1 type C, un port USB 3.2 Gen 2, un port HDMI 2.1 et un port Ethernet. 


Voir le bon plan
Imprimante multifonction Epson EcoTank ET-2812 (couleur, réservoir d'encre) à 184,99 €
184,99 € 233 € -21% @Amazon

Amazon fait une promotion sur l'imprimante multifonction jet d'encre couleur Epson EcoTank ET-2812 qui passe à 184,99 € au lieu de 233 €. Le gros avantage de cette imprimante (qui fait aussi copie et numérisation) est qu'elle possède un réservoir d'encre que vous pourrez remplir facilement. Finies les cartouches trop chères ! Ainsi comptez 10 € pour bouteille d'encre de recharge qui permet d'imprimer 4500 pages en noir et 7500 pages en couleur ! Connexion par USB ou WiFi (pratique pour imprimer depuis un portable).


Voir le bon plan
PC Portable 16.1 pouces HP Victus (FHD 144 Hz,Core i5 13500H, 16Go/512Go, RTX 4060 8 Go, sans OS) à 899,99 €
899,99 € 1299 € -31% @Cdiscount

Cdiscount fait une promotion sur le PC Portable 16.1 pouces HP Victus 16-r0024nf qui passe à 899,99 €. On le trouve habituellement à 1299 €.

Il comporte un écran IPS Full HD de 16.1 pouces IPS, un processeur Intel Core i5-13500H, 16 Go de RAM, un SSD de 512 Go, une carte graphique dédiée GeForce RTX 4060 8 Go, un clavier rétro éclairé,. Il possède aussi le WiFi 6, le bluetooth 5.2, 2 ports USB 3.1 type C, un port USB 3.2 Gen 2, un port HDMI 2.1 et un port Ethernet. L'ordinateur est livré sans OS mais vous pouvez facilement installer Windows 10/11 pour quelques euros.

Une bonne affaire pour un portable performant dernière génération : bureautique, Internet, multimédia et gros jeux.


Voir le bon plan
Souffleur sans fil Bosch Professionnal 18V GBL-120 à 54,39 €
54,39 € 77 € -29% @Amazon

Amazon fait une promotion sur le souffleur sans fil Bosch Professionnal 18V GBL-120 qui passe à 54,39 € au lieu de 77 € grâce à un coupon de réduction à activer sur la page du produit. Il est fourni ici sans batterie et est compatible avec le système 18V de Bosch.

Le souffleur sans-fil GBL 18V-120 Professional de la catégorie 18 V permet de nettoyer en un tour de main. La vitesse de soufflage maximale de 270 km/h garantit de bons résultats pour le nettoyage de surfaces. Le souffleur est utilisable pour le nettoyage de postes de travail, le soufflage de trous de perçage et de multiples autres applications comme le soufflage d'une terrasse. Sa forme compacte et bien équilibrée assure une bonne maniabilité et une maniement facile. Il est compatible avec toutes les batteries et tous les chargeurs 18 V de Bosch Professional (Professional 18V System). Le GBL 18V-120 Professional offre le choix entre deux vitesses selon les besoins. 


Voir le bon plan
Processeur AMD Ryzen 7 7800X3D à 374,95 € livré
374,95 € 449 € -16% @Amazon Allemagne

Amazon Allemagne fait une promotion sur le processeur AMD Ryzen 7 7800X3D (8 coeurs, 16 threads, 4.2 GHz/5 GHz) qui passe à 369,98 € (avec la TVA ajustée). Comptez 4,97 € pour la livraison en France soit un total de 374,95 € livré. On le trouve ailleurs à partir de 449 €. 


Voir le bon plan
Smartphone Poco M4 5G (6,6 pouces, Full HD+ Amoled 90 Hz, 8 coeurs, 4 Go Ram, 64 Go) à 109,90 €
109,90 € 160 € -31% @Cdiscount

Cdiscount fait une belle promotion sur le smartphone Poco M4 5G qui passe à 109,90 € au lieu de 160 € . Il est dual SIM et compatible avec les réseaux mobiles 5G et 4G. Il est équipé d'un processeur MediaTek Dimensity 700 (8 coeurs), de 4 Go de RAM, de 64 Go de stockage extensibles par MicroSD et d'un écran de 6,43 pouces FHD+ (2400x1080) à 90 Hz. Il comprend aussi une triple caméra de 64 MP + 8 MP + 2 MP + Flash LED et une caméra selfie de 16 MP. Il comprend une grande batterie de 5000 mAh, pour une utilisation sur plusieurs jours (supporte la charge rapide).

Le POCO M4 Pro 5G dispose également d'un capteur d'empreinte digitale sur le côté, du WiFi5 MIMO, du NFC, du Bluetooth 5.1 et du GPS. Le tout tourne sous Android 11.


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