Ajouter 1 sur une cellule particulière dans une macro

Résolu/Fermé

CarineVL Messages postés 206 Date d'inscription samedi 7 novembre 2015 Statut Membre Dernière intervention 25 octobre 2024 - 14 nov. 2015 à 13:58
CarineVL Messages postés 206 Date d'inscription samedi 7 novembre 2015 Statut Membre Dernière intervention 25 octobre 2024 - 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 ...

A voir également:

Ajouter 1 sur une cellule particulière dans une macro
Aller à la ligne dans une cellule excel - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Ajouter une signature sur word - Guide
Excel cellule couleur si condition texte - Guide
Verrouiller une cellule excel - Guide

2 réponses

Réponse 1 / 2

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524
14 nov. 2015 à 18:09

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 206 Date d'inscription samedi 7 novembre 2015 Statut Membre Dernière intervention 25 octobre 2024 4
15 nov. 2015 à 13:43

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

Réponse 2 / 2

Maurice
14 nov. 2015 à 14:29

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

CarineVL Messages postés 206 Date d'inscription samedi 7 novembre 2015 Statut Membre Dernière intervention 25 octobre 2024 4
14 nov. 2015 à 17:11

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

Discussions similaires

Excel, ajouter un caractère à une cellule