Discussion :

[chaudier37]

Bonjour,
J'ai fait une feuille de pointage qui contient des cellules à coloriser, en bleu pour le travail et un tableau récapitulatif compte les cellules colorisées et j'ai ainsi le total de mes heures. une feuille correspond à un mois, les feuilles sont ainsi nommées janvier, février, mars, avril... etc.
la formule qui compte les couleurs est celle-ci :
=CountByColor(annee2024.xlsm!refsociete;janvier!plheun)/2
refsociete est un nom défini qui fait référence à une société, salaire, etc
janvier est le nom de la feuille active
plheun est le nom d'une plage dans laquelle les cellules doivent être colorisées et sont comptées
Bien sûr, comme cette feuille est complexe, je n'allais pas la refaire 12 fois pour les 12 mois de l'année, je l'ai donc copiée. Une fois que j'ai copié les 12 feuilles, il faut que la formule
=CountByColor(annee2024.xlsm!refsociete;janvier!plheun)/2
devienne pour la feuille février
=CountByColor(annee2024.xlsm!refsociete;février!plheun)/2
et pour mars
=CountByColor(annee2024.xlsm!refsociete;mars!plheun)/2
Je suis obligée de faire un ''rechercher, remplacer'', "janvier" par "février", et "janvier" par "mars", etc.

Je voudrais savoir si vous pouvez m'aider et me donner la formule VBA ou non, qui me permette de faire ce "rechercher remplacer" pour les douzes mois de l'année.
merci beaucoup pour vortre aide

chaudier37

[Franc]

Salut, à tester:

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
Sub RemplacerJanvier()
    Dim ws As Worksheet
    Dim mois As Variant
    Dim i As Integer
 
     mois = Array("janvier", "février", "mars", "avril", "mai", "juin", "juillet", "août", "septembre", "octobre", "novembre", "décembre")
 
    ' Parcourir toutes les feuilles de calcul
    For i = LBound(mois) To UBound(mois)
        ' Définir la feuille de calcul actuelle
        Set ws = ThisWorkbook.Worksheets(mois(i))
        ' Remplacer "janvier" par le nom du mois actuel dans toutes les formules
        ws.Cells.Replace What:="janvier", Replacement:=mois(i), LookAt:=xlPart, MatchCase:=False
    Next i
End Sub

[chaudier37]

Bonjour,

Merci beaucoup, ça a fonctionné !

chaudier37