Discussion :

[formabox]

Hello l'équipe,

Après avoir résolu un problème... En voici un autre... Je souhaiterais exécuter ma macros sur les 12 feuilles de l'année alors que mon classeur contient une feuille Récap et une feuille Paramètres.

Je pense utiliser la fonction For mais j'avoue que je ne sais pas trop comment m'y prendre... Je ne suis pas une pro du code et le for est toujours ma bête noire

Pour pour l'aide

[casefayere]

Re,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim fl As Worksheet
For Each fl In Worksheets
  If fl.Name <> "Récap" And fl.Name <> "Paramètres" Then'attention aux noms de feuilles avec accent
  'ton code
  End If
Next fl

[formabox]

Hello et merci pour le bout de code... Par contre, je lance ma macro depuis la première feuille Paramètre et vu que le IF ne correspond pas, il va directement au Endif et relance la boucle sans passer à la feuille suivante...

Est-ce que entre le end if et le next fl, je dois lui donner une action pour lui dire de tester la feuille suivante ? Car sinon, il reste toujours sur la 1ère... Alors qu'il doit faire des actions dans chaque feuilles mensuelles...

Je ne sais pas si je me suis bien fait comprendre

[casefayere]

Fais un essai tel quel sur un classeur vierge (4 feuilles au hasard) et tu verras, avec ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim fl As Worksheet
For Each fl In Worksheets
  If fl.Name <> "Feuil1" And fl.Name <> "Feuil2" Then
     fl.range("A1") = "toto"
  End If
Next fl

dans la feuille 3 ou 4 tu auras "toto" en A1

[patricktoulon]

bonjour

le code que l'on t'a donné est parfaitement fonctionnel

si la boucle sur les sheets ne fonctionne pas c'est que dans le code que tu dois metre dans cette boucle te sort de celle ci

je ne vois que ca

au plaisir

[casefayere]

patricktoulon a raison et si tu n'as pas l'habitude, sur l'exemple que je t'ai donné, inseres un bouton de commande sur n'importe quelle feuille, donnes lui ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
Dim fl As Worksheet
For Each fl In Worksheets
  If fl.Name <> "Feuil1" And fl.Name <> "Feuil2" Then
     fl.Range("A1") = "toto"
  End If
Next fl
End Sub

[formabox]

Je deviens folle, si je test sur un classeur vierge, ca fonctionne très bien ce que vous m'avez transmis comme code...

Par contre, dans mon classeur, voici le code que j'ai et Excel bug sur la ligne fl.range ("A4").activate... :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
For Each fl In Worksheets
 
  If fl.Name <> "Récap" And fl.Name <> "Feuil1" Then
 
            fl.Range("A4").Activate
            Cells.Find(What:=service, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
            :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
            False, SearchFormat:=False).Activate
 
            While ActiveCell = service
 
            ActiveCell.Offset(1, 0).Select
 
            Wend
 
            Selection.EntireRow.Insert
            ActiveCell.Value = service
            ActiveCell.Offset(0, 1).Select
            ActiveCell.Value = personne
 
 
  End If
 
Le but de mon code est de prendre le contenu de deux variables stockées dans la premières feuilles et d'aller rechercher dans les feuilles suivantes, le service correspondant (comme plusieurs personnes (lignes) font partir du même service, je fais une recherche du service puis une boucle pour aller sur la dernière ligne, insérer une ligne pour ajouter le contenu de ma variable...
Next fl

[formabox]

Youhouhou

J'ai trouvé mon erreur...

J'ai remplacé ma ligne fl.Range("A4").Activate par

fl.Select

Merci et belle fin de journée,

[casefayere]

essayes comme ça si j'ai compris...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim cellule As Range
For Each fl In Worksheets
  If fl.Name <> "Récap" And fl.Name <> "Feuil1" Then 'vérifies "Feuil1"
    Set cellule = fl.Cells.Find(What:=service, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
      :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
      False, SearchFormat:=False)
    If Not cellule Is Nothing Then
      Rows(cellule.Row).EntireRow.Insert
      cellule.Value = service 'vérifies la destination
      cellule.Offset(0, 1).Value = personne 'vérifies la destination
    End If
  End If
Next fl

[patricktoulon]

re
essaie deja ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
fl.Activate

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
sheets(fl.name).Activate

a plus

[formabox]

Attendez c'est pas tout

Car ca c'était juste pour comprendre le fonctionnement de la boucle sur les feuilles...

Mon idéal serait d'avoir deux inputbox au lancement de la macro qui demande :

1. Depuis quel mois vous souhaitez inscrire les données ? Répons Mars ou 3
2. Jusqu'à quel mois vous souhaitez inscrire les données ? Réponse Décembre ou 12

Et... que ma boucle For s'exécute uniquement à partir de la feuille mars jusqu'à la feuille décembre, par exemple...

[patricktoulon]

re

bon pour l'exemple du imputbox casefayere t'a répondu je crois ,tu n'a qu'a doubler la commande avec deux variable correspondantes

ensuite tu boucle sur les nom contenu dans l'ensemble (mois inputbox1,mois inputbox2)

regarde du coté des variables tableau qui pourrais te servir a mémoriser les noms des feuilles concernées

a plus

[formabox]

J'ai donc déclarer les 2 variables

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
dim fl1 as worksheet
dim fl2 as worksheet

Dans mon code, j'ai remplacé la boucle For fl each worksheets par

For compteur = fl1 to fl2

et j'ai ajouté le remplissage des variables par le contenu d'un inputbox :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
fl1 = inputbox("Mois début")
fl2 = inputbox("Mois fin")

Le problème est que la variable est déclarée en tant que workseet et que je saisi du texte dans mon inputbox... si je déclare la variable en string, je pense pas que ma macro tournera car il ne fera pas référence aux feuilles...

Allez j'essaie avec beaucoup de doutes...