Discussion :

[Un Internaute]

Bonjour le forum,
Dans le code ci-dessous je voudrais, lorsque je fait Nouvelle Année lui faire dire de remplacer partout dans la feuille où il y a 2015 par 2016 ou peut-être y a t-il mieux à faire je ne sais pas .
Quelqu'un saurait-il comment faire?
Merci d'avance pour vos éventuels retours
Cordialement

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
26
27
28
29
Option Explicit
 
Sub NouvelleAnnee()
Dim NomFeuille As String
Dim An As Integer
Dim Couleur
 
  Couleur = Array(3, 4, 5, 6, 7, 8, 9, 10, 17, 40, 49, 42)
  With ActiveSheet
    An = Val(Split(.Name, " ")(1))
    If An = 0 Then
      MsgBox "Nom de la feuille non conforme"
      Exit Sub
    End If
    .Unprotect
    NomFeuille = "Charges " & An + 1 'Espace après Charges affiche Charges 2014.Supprimer Espace affiche Charges2014
 
    .Copy after:=Sheets(Sheets.Count)
    '.Shapes("AnneePlus").Delete     'Mettre en commentaires pour ne pas effacer le bouton (nouvelle année)de la Feuille Précédente
    .Protect
  End With
  With ActiveSheet
    .Name = NomFeuille
    .Tab.ColorIndex = Couleur((An - 2000) Mod 12)
    .Range("E3:E4,A8:C11,E8:E16,A26:C29,E26:E34,A44:C47,E44:E52,A62:C65,E62:E70,F5,F23,F41,F59,G8:I16,G26:I34,G44:I52,G62:I70").ClearContents
    '.Range("E3:E4,A8:C11,E8:E16,A26:C29,E26:E34,A44:C47,E44:E52,A62:C65,E62:E70,F5,F23,F41,F59,G8:I16,G26:I34,G44:I52,G62:I70").Interior.ColorIndex = 3
    .Range("A1").Select
  End With
End Sub

[keygen08]

bonjour

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
private sub machin()
Dim c As Range
With activesheet
    Set c = .Find("2015", LookIn:=xlValues)
    If Not c Is Nothing Then
        firstaddress = c.Address
        Do
            c.Value = "2016"
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstaddress
    End If
End With
End Sub

sinon, l'enregistreur de macro nous donne avec Ctrl+h et remplacer tout

Code :

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

1
2
3
    Cells.Replace What:="2015", Replacement:="2016", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

ce qui pourrait donné cela

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
26
27
28
29
30
Sub NouvelleAnnee()
Dim NomFeuille As String
Dim An As Integer
Dim Couleur
 
  Couleur = Array(3, 4, 5, 6, 7, 8, 9, 10, 17, 40, 49, 42)
  With ActiveSheet
    An = Val(Split(.Name, " ")(1))
    If An = 0 Then
      MsgBox "Nom de la feuille non conforme"
      Exit Sub
    End If
    .Unprotect
    NomFeuille = "Charges " & An + 1 'Espace après Charges affiche Charges 2014.Supprimer Espace affiche Charges2014
 
    .Copy after:=Sheets(Sheets.Count)
    '.Shapes("AnneePlus").Delete     'Mettre en commentaires pour ne pas effacer le bouton (nouvelle année)de la Feuille Précédente
    .Protect
  End With
  With ActiveSheet
    .Name = NomFeuille
    .Tab.ColorIndex = Couleur((An - 2000) Mod 12)
    .Range("E3:E4,A8:C11,E8:E16,A26:C29,E26:E34,A44:C47,E44:E52,A62:C65,E62:E70,F5,F23,F41,F59,G8:I16,G26:I34,G44:I52,G62:I70").ClearContents
    '.Range("E3:E4,A8:C11,E8:E16,A26:C29,E26:E34,A44:C47,E44:E52,A62:C65,E62:E70,F5,F23,F41,F59,G8:I16,G26:I34,G44:I52,G62:I70").Interior.ColorIndex = 3
    .Cells.Replace What:="2015", Replacement:="2016", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    range("a1").select
  End With
End Sub

[Un Internaute]

Bonjour keygen08,
Voilà c'est fait et ça fonctionne.
Merci à toi.
Bonne fin de WE
Bien cordialement