Date 2010
Résolu
lebonlazare
Messages postés
3
Statut
Membre
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 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
- Jm date désabonnement ✓ - Forum Consommation & Internet
- Jm date avis - Forum Consommation & Internet
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...
