> 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
Graveuse laser Longer Ray5 10W à 199 €
199 € 299,99 € -34% @Geekbuying

Geekbuying fait une belle promotion sur l'excellente graveuse laser Longer Ray5 10W qui passe à 199 € avec le code NNNFRLR10 alors qu'on la trouve ailleurs à partir de 299,99 €. Cette machine de gravure laser va vous permettre de graver et découper le papier, le cuir, le bois, le bambou, la corne, le plastique, la céramique l'acrylique, ...

L'envoi se fait depuis un entrepôt européen. Vous êtes ainsi certains de recevoir la graveuse rapidement et sans douane.


Voir le bon plan
Dashcam iZEEKER (FullHD, grand angle, détection collision) à 29,98 €
29,98 € 50 € -40% @Amazon

Amazon fait une promotion sur la Dashcam (caméra de voiture) iZEEKER qui passe à 29,98 € en activant un coupon de réduction de 40% sur la page du produit. Cette caméra enregistre en continue lorsque vous roulez en Full HD (boucle sur la carte mémoire SD à ajouter). Lorsque vous stationnez, un capteur de mouvement sur batterie permet de débuter un enregistrement d'urgence en cas d'impact.


Voir le bon plan
Ecran PC 27 pouces Koorui (FHD, IPS, 75 Hz) à 129,99 €
129,99 € 160 € -19% @Amazon

Amazon fait une promotion sur l'écran PC 27 pouces Koorui qui passe à 129,99 € au lieu de 160 €. Cet écran possède une dalle Full HD (1920x1080) IPS à à bords fins. Temps de réponse de 5 ms et fréquence de rafraichissement de 75 Hz.  Entrées VGA et HDMI.  Une bon écran bureautique et multimédia.


Voir le bon plan
Lot de 4 prises connectées Wi-Fi TP-Link Tapo P110 avec suivi de la consommation à 37,90 €
37,90 € 59,50 € -36% @Amazon

Amazon fait une promotion sur le lot de 4 prises connectées Wi-Fi TP-Link Tapo P110 qui passe à 37,90 € alors qu'on la trouve habituellement à 59,50 €.

Cette prise peut être contrôlée à distance en utilisant l'app gratuite Tapo sur votre smartphone (iOS ou Android). Vous pouvez créer des planifications horaires pour allumer ou éteindre automatiquement et quand vous le souhaitez, l'appareil qui y est branché.

Vous pourrez même contrôler la prise via des commandes vocales avec Alexa ou Google Assistant. Cette version offre le suivi de la consommation.  Pratique pour trouver les appareils énergivores.


Voir le bon plan
Carte mémoire Samsung 256 Go MicroSDXC Evo Select U3 (130 Mo/s) à 18,99 €
18,99 € 32 € -41% @Amazon

Amazon fait une promotion sur la carte mémoire Samsung 256 Go MicroSDXC Evo Select U3 qui passe à 18,99 €.  Une très bonne affaire pour cette carte que l'on trouve ailleurs à partir de 32 € et qui offre des vitesses de 130 Mo/s en lecture et 110 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
PC portable 14 pouces Lenovo Ideapad Slim 5 (FHD, Core i7-13620H, 16 Go RAM, SSD 512 Go, Windows 11) à 699 €
699 € 999 € -30% @Boulanger

Boulanger propose actuellement l'ordinateur portable Lenovo Ideapad Slim 5 à 699 € avec le code promo PCBOULANGER alors qu'on le trouve ailleurs à partir de 999 €. Ce portable dispose d'un écran 14 pouces Full HD+ (1920x1200) IPS, d'un processeur Intel Core i7-13620H, de 16 Go de RAM DDR5, d'un SSD de 512 Go, d'un chip graphique Iris Xe, du WiFi 6E, du Bluetooth 5.1 et tourne sous Windows 11. Un portable puissant que vous pourrez facilement emporter partout avec vous.


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