Discussion :

[midge]

Bonjour,

Voilà mon problème, merci de m'aider je suis hyper débutant ...
je pars d'un planning recensant les tâches effectuées par chaque membre de plusieurs équipes, semaine par semaine. Dans mon classeur j'ai plusieurs feuilles : une qui me sert de base de travail, les semaines en question (j'écrase les semaines au fur et à mesure du calendrier).
J'ai une macro qui met en forme, ensuite qui copie/colle une feuille de comptage derrière les lignes des membres des équipes Probleme
existe-t-il un caractère générique qui remplacerait dans & macro le nom de la feuille choisie la macro va pour la semaine 1 mais pour les semaines suivantes comment faire ?

Code :

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

1
2
3
4
Selection.Copy
    Sheets("s1").Select
    Columns("L:L").Select
    ActiveSheet.Paste

2ème question : existe-t-il une manip intégrable dans 1 macro du genre CTRL+F pour rechercher dans une feuille les membres d'une équipe (par ex Eq1) les selectionner et les coller sur une autre feuille du classeur tout en faisant le comptage grâce à ma feuille de comptage ?

merci à toute personne pouvant me guider, même si je passe des heures à chercher "un traçage de route" me serait utile ...

[patricktoulon]

bonjour

pour ta recherche regarde du coté de cells find dans l'aide

[Phileo]

Bonjour,

Si tu veux répéter l'action sur plusieurs feuilles une méthode est de parcourir le contenu du classeur et de faire les actions nécessaires.

Code :

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

1
2
3
4
5
6
7
8
Sub test()
Dim n As Integer
For n = 1 To Worksheets.Count 'parcours tout le classeur
    If Worksheets(n).Name = "s" & n Then
        ton code
    End If
Next n
End Sub

Dans mon exemple on execute le code si le nom de la feuille commence par "s" et a le bon numéro d'indice.

[midge]

merci aux 2 personnes qui m'ont aiguillé
je vais explorer lentement (en plus de débuter, ...) vos pistes