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 -
CarineVL Messages postés 342 Statut Membre -
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 ...
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
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Ajouter une signature sur word - Guide
- Aller à la ligne dans une cellule excel - Guide
- Bloquer une cellule excel - Guide
- Ajouter une liste déroulante excel - Guide
2 réponses
Bonjour,
Essaie comme cela
A+
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+
Bonjour
voila une macro si j'ais bien compris
A+
Maurice
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
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
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
Merci ...
Cela fonctionne parfaitement ...
Cordialement,
CVL