Date 2010
Résolu
lebonlazare
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
dans une feuille d'excel (bon de commande) j'ai une macro qui incremente une case qui est le numéro du bon (et sert en même temp du mon pour l'enregistrement de la feuille)
cette case a le format "yymminxxx" ou yy=année: mm = mois: in= initiales de la personne: xxx le numéro du bon
tout a bien marché (depuis 2001) jusqu'au passage en 2010 l'incrementation ne fonctionne plus j'ai toujour 1001in001 y a t il un bug commu ?
merci de m'aider
Lazare
dans une feuille d'excel (bon de commande) j'ai une macro qui incremente une case qui est le numéro du bon (et sert en même temp du mon pour l'enregistrement de la feuille)
cette case a le format "yymminxxx" ou yy=année: mm = mois: in= initiales de la personne: xxx le numéro du bon
tout a bien marché (depuis 2001) jusqu'au passage en 2010 l'incrementation ne fonctionne plus j'ai toujour 1001in001 y a t il un bug commu ?
merci de m'aider
Lazare
A voir également:
- Date 2010
- Clé activation office 2010 gratuit - Télécharger - Sécurité
- Word 2010 - Télécharger - Traitement de texte
- Waptrick java football 2010 - Télécharger - Jeux vidéo
- Airpods 3 date de sortie - Guide
- Jm date désabonnement - Forum Gmail
4 réponses
La voici
Sub Incrementation()
Dim Nb, An%, Mois
An = CInt(Format(Date, "YY"))
Mois = Format(Date, "MM")
If Range("I1") = 0 Then Range("I1") = An & Mois & "CD" & Format(0, "000")
Nb = Right(Range("I1"), InStr(1, Range("I1"), "CD", vbTextCompare) - 1)
Range("I1") = An & Mois & "CD" & Format(Val(Nb) + 1, "000")
End Sub
Sub Incrementation()
Dim Nb, An%, Mois
An = CInt(Format(Date, "YY"))
Mois = Format(Date, "MM")
If Range("I1") = 0 Then Range("I1") = An & Mois & "CD" & Format(0, "000")
Nb = Right(Range("I1"), InStr(1, Range("I1"), "CD", vbTextCompare) - 1)
Range("I1") = An & Mois & "CD" & Format(Val(Nb) + 1, "000")
End Sub
J'y ai apporté 2 modifications et cela fonctionne :
enlève le % après AN dans la déclaration des variables :
Dans le "calcul" de Nb, remplacer -1 par -2 :
en effet, on souhaite retourner les 3 chiffres à droite de I1 or
enlève le % après AN dans la déclaration des variables :
Dim Nb, An, Mois
Dans le "calcul" de Nb, remplacer -1 par -2 :
Nb = Right(Range("I1"), InStr(1, Range("I1"), "CD", vbTextCompare) - 2)
en effet, on souhaite retourner les 3 chiffres à droite de I1 or
InStr(1, Range("I1"), "CD", vbTextCompare) = 5...
