Exécuter une macro dans plusieurs feuilles d'1 classeur

Exécuter une macro dans plusieurs feuilles d'1 classeur - VB/VBA/VBS - Programmation

Marsh Posté le 10-02-2010 à 15:37:02    

Bonjour à tous.
 
Je bosse sur un fichier Excel avec macro VBA.
 
Je cherche à extraire des données selon certaines conditions tel que mon code le fait très bien sur une page définie :
 

Code :
  1. Dim lig As Long
  2. Dim compteur As Long
  3. Dim compteur2 As Long
  4. Dim feuil As String
  6. 'pour feuille 1
  7. compteur = 7
  8. For lig = 12 To 211
  9.     Sheets("1" ).Select
  10.     If Cells(lig, 2) < 30 Then
  11.     If Cells(lig, 2) = 0 Then GoTo 10
  12.         Range(Cells(lig, 6), Cells(lig, 7)).Select
  13.         Selection.Copy
  14.     Sheets("suivi" ).Select
  15.         compteur = compteur + 1
  16.         Range("D" & compteur).PasteSpecial 3
  17.     Sheets("1" ).Select
  18.         Range("F4" ).Select
  19.         Selection.Copy
  20.     Sheets("suivi" ).Select
  21.         Range("F" & compteur).PasteSpecial 3
  22.          
  23.     End If
  24. 10
  25. Next lig


 
Mon problème est que j'aimerais que ce code soit appliqué sur plusieurs feuilles qui sont nommées de 1 à 54 (mais j'aimerais pouvoir définir le second chiffre selon mon nombre réel de feuille qui peut changer) sans les autres feuilles.
 
J'ai tenté un "for feuill = 1 to 54", mais j'échoue. je ne dois pas écrire mon code correctement...
 
auriez vous des pistes pour m'aider ?
 
Thomas

Message cité 1 fois
Message édité par psykocoic le 10-02-2010 à 15:39:32

---------------
Excel/VBA en apprentissage...
Reply

Marsh Posté le 10-02-2010 à 15:37:02   

Reply

Marsh Posté le 10-02-2010 à 15:59:58    

:hello:  
 
Salut !
Je ne sais pas si je vais réussir à répondre à ton problème mais j'ai eu un cas similaire.
J'ai également un classeur avec un certain nombre de feuilles (toutes ces feuilles ont la même structure) et je devais faire travailler une macro sur chacune d'elles à la suite...
Mon souci était que le nombre de ces feuilles étaient variables... et en plus, elles avaient chacune un nom spécifique... même pas numérique... genre A puis S25 puis XDE puis AAA... bref z'avez compris... hein  :D  
(le nombre de feuille est variable car j'ai une autre macro qui en crée en fonction des besoins)...
 
J'ai résolu mon problème en créant 2 feuilles nommées AAAAAAAAAA et ZZZZZZZZZZ.
La 1ère feuille, je l'ai placé en tout premier et la seconde en... dernier...  :p  
 
Ma macro de traitement global commence par se placer sur la feuille AAAAAAAAAA et ensuite il y a une boucle qui parcourt les feuilles une à une (peu importe le nom de ces feuilles)... j'utilise ActiveSheet.Next.Select (ou un truc comme ça)... je sors de ma boucle dès que la macro se trouve sur la feuille ZZZZZZZZZZ.
 
Voili...
 
Bon, cela oblige à avoir 2 feuilles en plus... mais bon, je m'en sers pour autre chose... ;)


---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To
Reply

Marsh Posté le 10-02-2010 à 16:08:42    

Merci pour la réponse.
j'ai vu des messages similaires à ce que tu me dis.
 
seulement, je ne souhaite pas que ma macro passe par toutes les feuilles. seules celles avec un nom en numérique m'intérresse.
 
en gros, j'ai, dans l'ordre :
 
- index
- fiche
- suivi
- 1
- 2
- 3
- 4
- 5 ... ... jusqu'à un nombre défini.

Reply

Marsh Posté le 10-02-2010 à 17:01:17    

Et bien, dans la boucle, tu analyse le nom de la feuille active... s'il est numérique, ta macro s'exécute sinon non...
Ou alors, la feuille AAAAAAAAAA dans mon exemple est la feuille suivi dans ton cas... ;)


---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To
Reply

Marsh Posté le 10-02-2010 à 17:12:07    

merci encore. tu aurais un exemple de code pour chacune des deux solutions que tu proposes ?

Reply

Marsh Posté le 10-02-2010 à 17:28:38    

Pour ton cas, je pencherai vers ça :
 

Code :
  1. Sheets("suivi" ).Select
  2. Do
  3. ActiveSheet.Next.Select
  4. If ActiveSheet.Name = "ZZZZZZZZZZ" Then
  5. Exit Do
  6. End If
  7. ton code à insérer ici
  8. Loop Until ActiveSheet.Next.Name = "ZZZZZZZZZZ"


Désolé mais je ne sais pas comment sortir d'une boucle sans l'Exit Do
Voili


---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To
Reply

Marsh Posté le 10-02-2010 à 18:29:53    

ok. merci, je vais tester.
 
bonne soirée.

Reply

Marsh Posté le 10-02-2010 à 18:42:11    

Bon... test raté... je comprends pas pourquoi...
 
j'ai adapté le code comme suis :
 

Code :
  1. Sheets("suivi" ).Select
  2.    Do
  3.    ActiveSheet.Next.Select
  4.    If ActiveSheet.Name = "ZZZZZ" Then
  5.    Exit Do
  6.    End If
  7.  
  8. Dim lig As Long
  9. Dim compteur As Long
  12. compteur = 7
  13. For lig = 12 To 211
  15.     If Cells(lig, 2) < 30 Then
  16.     If Cells(lig, 2) = 0 Then GoTo 10
  17.         Range(Cells(lig, 6), Cells(lig, 7)).Select
  18.         Selection.Copy
  19.     Sheets("suivi" ).Select
  20.         compteur = compteur + 1
  21.         Range("D" & compteur).PasteSpecial 3
  22.              
  23.     End If
  24. 10
  25. Next lig
  26.  
  27.    Loop Until ActiveSheet.Next.Name = "ZZZZZ"


 
mais ça ne fonctionne pas, ça tourne en boucle en restant sur la première valeur à copié trouvé...

Reply

Marsh Posté le 11-02-2010 à 10:44:55    

Bonjour à tous.
 
quelqu'un aurait une idée pour me dépanner ? je n'ai pas réussi à appliquer l'idée soumise par scaryfan.
 
du coup, pour le moment, je suis obligé de faire tourner comme suit :
 

Code :
  1. 'pour feuille 1
  2. compteur = 7
  3. For lig = 12 To 211
  4.     Sheets("1" ).Select
  5.     If Cells(lig, 2) < 30 Then
  6.     If Cells(lig, 2) = 0 Then GoTo 10
  7.         Range(Cells(lig, 6), Cells(lig, 7)).Select
  8.         Selection.Copy
  9.     Sheets("suivi" ).Select
  10.         compteur = compteur + 1
  11.         Range("D" & compteur).PasteSpecial 3
  12.     Sheets("1" ).Select
  13.         Range("F4" ).Select
  14.         Selection.Copy
  15.     Sheets("suivi" ).Select
  16.         Range("F" & compteur).PasteSpecial 3
  17.          
  18.     End If
  19. 10
  20. Next lig
  22. 'pour feuille 2
  23. For lig = 12 To 211
  24.     Sheets("2" ).Select
  25.     If Cells(lig, 2) < 30 Then
  26.     If Cells(lig, 2) = 0 Then GoTo 11
  27.         Range(Cells(lig, 6), Cells(lig, 7)).Select
  28.         Selection.Copy
  29.     Sheets("suivi" ).Select
  30.         compteur = compteur + 1
  31.         Range("D" & compteur).PasteSpecial 3
  32.     Sheets("2" ).Select
  33.        Range("F4" ).Select
  34.        Selection.Copy
  35.     Sheets("suivi" ).Select
  36.         Range("F" & compteur).PasteSpecial 3
  37.      
  38.     End If
  39. 11
  40. Next lig
  42. 'pour feuille 3
  43. For lig = 12 To 211
  44.     Sheets("3" ).Select
  45.     If Cells(lig, 2) < 30 Then
  46.     If Cells(lig, 2) = 0 Then GoTo 12
  47.         Range(Cells(lig, 6), Cells(lig, 7)).Select
  48.         Selection.Copy
  49.     Sheets("suivi" ).Select
  50.         compteur = compteur + 1
  51.         Range("D" & compteur).PasteSpecial 3
  52.     Sheets("3" ).Select
  53.        Range("F4" ).Select
  54.        Selection.Copy
  55.     Sheets("suivi" ).Select
  56.         Range("F" & compteur).PasteSpecial 3
  57.      
  58.     End If
  59. 12
  60. Next lig


 
avec autant de bloc que de pages...
 
merci de vos idées


Message édité par psykocoic le 11-02-2010 à 10:57:29
Reply

Marsh Posté le 13-02-2010 à 17:35:39    

psykocoic a écrit :

Bonjour à tous.

 

Je bosse sur un fichier Excel avec macro VBA.

 

Je cherche à extraire des données selon certaines conditions tel que mon code le fait très bien sur une page définie :

 
Code :
  1. Dim lig As Long
  2. Dim compteur As Long
  3. Dim compteur2 As Long
  4. Dim feuil As String
  6. 'pour feuille 1
  7. compteur = 7
  8. For lig = 12 To 211
  9.     Sheets("1" ).Select
  10.     If Cells(lig, 2) < 30 Then
  11.     If Cells(lig, 2) = 0 Then GoTo 10
  12.         Range(Cells(lig, 6), Cells(lig, 7)).Select
  13.         Selection.Copy
  14.     Sheets("suivi" ).Select
  15.         compteur = compteur + 1
  16.         Range("D" & compteur).PasteSpecial 3
  17.     Sheets("1" ).Select
  18.         Range("F4" ).Select
  19.         Selection.Copy
  20.     Sheets("suivi" ).Select
  21.         Range("F" & compteur).PasteSpecial 3
  22.          
  23.     End If
  24. 10
  25. Next lig
 

Mon problème est que j'aimerais que ce code soit appliqué sur plusieurs feuilles qui sont nommées de 1 à 54 (mais j'aimerais pouvoir définir le second chiffre selon mon nombre réel de feuille qui peut changer) sans les autres feuilles.

 

J'ai tenté un "for feuill = 1 to 54", mais j'échoue. je ne dois pas écrire mon code correctement...

 

auriez vous des pistes pour m'aider ?

 

Thomas

 

Essaye ça :

Code :
  1. Dim lig As Long
  2. Dim compteur As Long
  3. Dim compteur2 As Long
  4. Dim feuil As String
  5. Dim i As Integer
  6. Dim nbFeuille As Integer
  8. 'Choix du nombre de feuille
  9. nbFeuille = InputBox("Saisir le nombre de feuilles" )
  11. 'Début de la boucle : de la feuille 1 à la feuille nbFeuille
  12. For i = 1 To nbFeuille
  14. compteur = 7
  15. For lig = 12 To 211
  16.     Sheets(i).Select
  17.     If Cells(lig, 2) < 30 Then
  18.     If Cells(lig, 2) = 0 Then GoTo 10
  19.         Range(Cells(lig, 6), Cells(lig, 7)).Select
  20.         Selection.Copy
  21.     Sheets("suivi" ).Select
  22.         compteur = compteur + 1
  23.         Range("D" & compteur).PasteSpecial 3
  24.     Sheets("1" ).Select
  25.         Range("F4" ).Select
  26.         Selection.Copy
  27.     Sheets("suivi" ).Select
  28.         Range("F" & compteur).PasteSpecial 3
  29.        
  30.     End If
  31. 10
  32. Next lig
  33. next i


Message édité par otobox le 13-02-2010 à 17:38:30

---------------
OtObOxBlOg - - - Etre seul à avoir tort  c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons
Reply

Marsh Posté le 13-02-2010 à 17:35:39   

Reply

Marsh Posté le 13-02-2010 à 22:29:35    

MErci, je vais tester.

Reply

Marsh Posté le 16-02-2010 à 14:48:17    

Bonjour
 
Pour compléter l'idée de OtObOx, voici un moyen de connaitre le nombre de feuille sous Excel :
Sheets.Count
 
Ce qui donnerait avec le début de code de OtObOx :

Code :
  1. Dim lig As Long
  2. Dim compteur As Long
  3. Dim compteur2 As Long
  4. Dim feuil As String
  5. Dim i As Integer
  6. Dim nbFeuille As Integer
  8. 'Choix du nombre de feuille/Compte le nb de feuille
  9. nbFeuille = Sheets.Count


Message édité par SuppotDeSaTante le 16-02-2010 à 14:48:52

---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 16-02-2010 à 17:49:29    

Je pense qu'il peut y avoir un petit problème dans le code que j'ai posté. Pour tester, j'avais renommé ma première feuille 1, la deuxième 2 et la troisième 3.
Ca fonctionne, merci :)
Mais c'est un hasard, car le nom des feuilles suit leur numérotation (index).
Je pense que ça fonctionnera mieux en indiquant que c'est le nom de la feuille "1" et pas le numéro (1). Il faut convertir le numéro en chaine de caractère avec la fonction cstr()
 
Pour se faire, modifier cette ligne :

Sheets(i).Select


par :

Sheets(cstr(i)).Select


La différence est subtile, mais importante ;)
 
(ceci dit, je n'ai pas testé, mais ça devrait fonctionner).


Message édité par otobox le 16-02-2010 à 17:49:52

---------------
OtObOxBlOg - - - Etre seul à avoir tort  c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons
Reply

Marsh Posté le 16-02-2010 à 18:21:17    

le problème était bien là... entre comment je nommais les feuilles et leur ordre dans le classeur.
 
quand on dit for feuil 1 to i, ça prend la premièrre feuille sans distinction de son  nom jusqu'à la i...
 
je suis compréhensible là ?

Reply

Marsh Posté le 16-02-2010 à 19:05:13    

Oui, puisque les feuilles peuvent être identifiées par leur numéro unique ou par leur nom !
Le numéro unique est de type numérique, le nom est de type string (chaine de caractères)
En convertissant la variable numérique i par un string i, la procédure reconnait que tu sélectionnes un nom de feuille et pas sa référence numérique !


---------------
OtObOxBlOg - - - Etre seul à avoir tort  c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons
Reply

Marsh Posté le 16-02-2010 à 22:05:35    

ok pour le string...
 
punaise... encore une solution "facile et simple" pour laquelle j'ai galéré quelques heures...
 
Merci à tout ceux qui sont intervenus. je vous mets le code que j'ai retenu pour le moment :
 

Code :
  1. Dim lig As Long
  2. Dim compteur As Long
  3. Dim feuil As Long
  4. Dim chiffre As String
  7. 'on va chercher combien de feuilles sont à regarder
  8. Sheets("Index" ).Select
  9. Range("J26" ).Select
  10. chiffre = ActiveCell.Value
  12. ' on extrait
  13. compteur = 7
  14. For feuil = 4 To chiffre
  15.      Sheets(feuil).Select
  16. For lig = 12 To 211
  17.     If Cells(lig, 2) < 30 Then
  18.     If Cells(lig, 2) = 0 Then GoTo 1
  19.         Range(Cells(lig, 6), Cells(lig, 7)).Select
  20.         Selection.Copy
  21.     Sheets("suivi" ).Select
  22.         compteur = compteur + 1
  23.         Range("D" & compteur).PasteSpecial 3
  24.     Sheets(feuil).Select
  25.         Range("F4" ).Select
  26.         Selection.Copy
  27.     Sheets("suivi" ).Select
  28.         Range("F" & compteur).PasteSpecial 3
  29.          
  30.     End If
  31. 1
  32. Next lig
  34. Next feuil
  37. End Sub


Message édité par psykocoic le 16-02-2010 à 22:06:47
Reply

Marsh Posté le 17-02-2010 à 07:49:47    

A partir du moment où tu mets un for...next, tu incrémentes un chiffre...
Or, dans ta boucle :

For feuil = 4 To chiffre


feuil est une variable de type Integer et chiffre une variable que tu as déclaré en type String :  

Dim chiffre As String


Ca ne va pas fonctionner ! Incompatibilité de type !
 
Il faut que tu transformes le type de ta variable en Integer :

Dim chiffre As Integer


puis quand tu sélectionnes ta feuille, il faut convertir cette variable feuil de type Integer en type String ! Et seulement à cet endroit là !

Sheets(cstr(feuil)).Select


Message édité par otobox le 17-02-2010 à 07:53:24

---------------
OtObOxBlOg - - - Etre seul à avoir tort  c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons
Reply

Marsh Posté le 17-02-2010 à 08:57:28    

d'après mes premiers tests, ça avait l'air de fonctionner... mais je suis toujours ok pour améliorer les codes et apprendre. n'ayant pas de formation sur le domaine, je tatonne sur la création de mes codes.
 
par contre, étant donner que je cherche mes feuillets via leur numéro et non plus le nom que je leur donne, ceci est-il encore nécessaire ?  
 

Sheets(cstr(feuil)).Select

Message cité 1 fois
Reply

Marsh Posté le 17-02-2010 à 18:23:59    

psykocoic a écrit :

d'après mes premiers tests, ça avait l'air de fonctionner... mais je suis toujours ok pour améliorer les codes et apprendre. n'ayant pas de formation sur le domaine, je tatonne sur la création de mes codes.
 
par contre, étant donner que je cherche mes feuillets via leur numéro et non plus le nom que je leur donne, ceci est-il encore nécessaire ?
 

Sheets(cstr(feuil)).Select



Ben non, comme je tentais de l'expliquer dans mon message précédent, le cstr converti un nombre en chaine de caractère. Donc, pour appeler les feuilles par leur nom, pas par leur n° unique.


---------------
OtObOxBlOg - - - Etre seul à avoir tort  c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons
Reply

Marsh Posté le 17-02-2010 à 18:34:31    

ok. j'avais donc bien compris. merci.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed