ACTIVER UNE MACRO POUR PLUSIEURS FEUILLES | ||
---|---|---|
Inscription: 19/11/2012
Messages:
3
Version Excel utilisée: 2007 |
Posté le : 20-11-2012 20h15
Bonsoir,
J'ai créé une macro et j'aimerai que cette macro s'active automatiquement sur toutes les feuilles créées juste en cliquant sur un bouton. Sans être obligée d'aller sur chaque feuille pour activer la macro. j'ai au moins 200 feuilles. Dim Varsomme As Long Range("H10").Select Do If Selection.Interior.ColorIndex = 15 Then Varsomme = Varsomme + ActiveCell.Value End If ActiveCell.Offset(0, 1).Select Loop Until ActiveCell.Value = "." Range("I46").Value = Varsomme End Sub Pouvez-vous m'aider svp? fredya. |
|
|
Re: Activer une macro pour plusieurs feuilles | ||
---|---|---|
Inscription: 18/05/2006
De Saône-et-Loire (71)
Messages:
1539
Système d'exploitation: PC Version Excel utilisée: 97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365 |
Posté le : 20-11-2012 23h05
Bonsoir fredya, bienvenue sur XLpages.com
Tout d'abord, 2 remarques, STP :
Concernant ta question... pas facile de te répondre "à l'aveugle" sans même un exemple de tes feuilles de calcul (au besoin : lire ICI pour joindre un fichier)... Cela dit, si j'interprète bien ta question, voici une macro à tester : DANS UN MODULE DE CODE STANDARD (ex: Module1) : Option Explicit En espérant t'avoir dépanné... Cordialement, Didier_mDF
Le Webmaster La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien |
|
|
Re: Activer une macro pour plusieurs feuilles | ||
---|---|---|
Inscription: 19/11/2012
Messages:
3
Version Excel utilisée: 2007 |
Posté le : 22-11-2012 19h42
Bonsoir,
Merci de m'avoir répondu! Mais ça n'a pas fonctionné! ci-joint le fichier. Pouvez-vous encore m'aider svp? Dim Sh As Worksheet Dim RCible As Range Dim Varsomme As Long For Each Sh In Sheets Varsomme = 0 Set RCible = Sh.Cells(10, 8) Do If RCible.Interior.ColorIndex = 15 Then Varsomme = Varsomme + RCible.Value End If Set RCible = RCible.Offset(0, 1) Loop Until RCible.Value = "." Sh.Range("N143").Value = Varsomme Next Sh End Sub |
|
|
Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.
Qui consulte actuellement ce sujet ?
1 Utilisateur(s) anonymes