Ajouter 1 sur une cellule particulière dans une macro

Résolu

CarineVL Messages postés 342 Statut Membre -
CarineVL Messages postés 342 Statut Membre - 15 nov. 2015 à 13:43

Bonjour,
Comment faire pour ajouter 1 dans une macro sur une cellule particulière ?
Cette cellule est une semaine de l'année.
exemple= ajouter 1 à "45S2015" pour arriver à "46S2015"

Merci ...

Afficher la suite

2 réponses

Gyrus Messages postés 3360 Statut Membre 526

Bonjour,

Essaie comme cela

Sub Reinitialiser_JB()
Dim strZone As String
Dim xlSheet As New Excel.Worksheet
    On Error Resume Next
    strZone = Range("L1").Value
    Set xlSheet = ThisWorkbook.Sheets(strZone)
    If xlSheet Is Nothing Then
        MsgBox ("Veuillez effectuer la copie avant de réinitialiser la feuille")
        Exit Sub
    Else
        Range("L1").Value = Split(Range("L1").Value, "S")(0) + 1 & "S" & Year(Now)
    End If
End Sub

A+

CarineVL Messages postés 342 Statut Membre 9

Bonjour,
Merci ...
Cela fonctionne parfaitement ...
Cordialement,
CVL
0

Réponse 2 / 2
Maurice
Bonjour

voila une macro si j'ais bien compris
```
Sub TestNum()
   Range("A1").Value = Split(Range("A1").Value, "S")(0) + 1 & "S" & Year(Now)
End Sub
```
A+
Maurice
0
1. CarineVL Messages postés 342 Statut Membre 9
  
  Lorsque je l'intègre dans la macro, la macro s'arrête sur "TestNum" et indique "Erreur de compilation". "Erreur de syntaxe" ...
  voir ci-dessous (la cellule à augmenter se trouve en L1)
  
  Sub Reinitialiser_JB()
  ' Réinitialiser la feuille JB
  Dim strZone As String
  Dim xlSheet As New Excel.Worksheet
  
  On Error Resume Next
  
  'Bouton Réinitialiser JB
  
  strZone = Range("L1").Select
  Set xlSheet = ThisWorkbook.Sheets(strZone)
  If xlSheet Is Nothing Then
  MsgBox ("Veuillez effectuer la copie avant de réinitialiser la feuille")
  Exit Sub
  End If
  TestNum ()
  Range("L1").Value = Split(Range("L1").Value, "S")(0) + 1 & "S" & Year(Now)
  End Sub
  
  0

Ajouter 1 sur une cellule particulière dans une macro

2 réponses

Discussions similaires

Newsletters