Ajouter 1 sur une cellule particulière dans une macro
Résolu/Fermé
CarineVL
Messages postés
122
Date d'inscription
samedi 7 novembre 2015
Statut
Membre
Dernière intervention
3 septembre 2023
-
14 nov. 2015 à 13:58
CarineVL Messages postés 122 Date d'inscription samedi 7 novembre 2015 Statut Membre Dernière intervention 3 septembre 2023 - 15 nov. 2015 à 13:43
CarineVL Messages postés 122 Date d'inscription samedi 7 novembre 2015 Statut Membre Dernière intervention 3 septembre 2023 - 15 nov. 2015 à 13:43
A voir également:
- Ajouter 1 sur une cellule particulière dans une macro
- Aller à la ligne dans une cellule excel - Guide
- Ajouter une adresse mail sur gmail - Guide
- Ajouter une signature sur word - Guide
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
2 réponses
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
14 nov. 2015 à 18:09
14 nov. 2015 à 18:09
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
CarineVL
Messages postés
122
Date d'inscription
samedi 7 novembre 2015
Statut
Membre
Dernière intervention
3 septembre 2023
14 nov. 2015 à 17:11
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
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
15 nov. 2015 à 13:43
Merci ...
Cela fonctionne parfaitement ...
Cordialement,
CVL