Date 2010
Résolu/Fermé
lebonlazare
Messages postés
3
Date d'inscription
lundi 11 janvier 2010
Statut
Membre
Dernière intervention
11 janvier 2010
-
11 janv. 2010 à 12:00
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 11 janv. 2010 à 12:21
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 11 janv. 2010 à 12:21
A voir également:
- Date 2010
- Clé activation office 2010 gratuit - Télécharger - Sécurité
- Telecharger word 2010 - Télécharger - Traitement de texte
- Fracture 2010 film complet youtube - Forum TV & Vidéo
- Cette photo n’a pas été prise cette année. trouvez la date, l'heure et avec quel modèle d'appareil photo elle a été prise. ✓ - Forum Graphisme
4 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 753
11 janv. 2010 à 12:01
11 janv. 2010 à 12:01
Bonjour,
Quel est le code complet de cette macro?
Quel est le code complet de cette macro?
lebonlazare
Messages postés
3
Date d'inscription
lundi 11 janvier 2010
Statut
Membre
Dernière intervention
11 janvier 2010
11 janv. 2010 à 12:04
11 janv. 2010 à 12:04
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
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 753
11 janv. 2010 à 12:10
11 janv. 2010 à 12:10
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...
lebonlazare
Messages postés
3
Date d'inscription
lundi 11 janvier 2010
Statut
Membre
Dernière intervention
11 janvier 2010
11 janv. 2010 à 12:17
11 janv. 2010 à 12:17
en effet ca marche !!!
quel est l'explication pour le % ?
grand merci !!
Meilleurs voeux pour 2010
quel est l'explication pour le % ?
grand merci !!
Meilleurs voeux pour 2010
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 753
11 janv. 2010 à 12:21
11 janv. 2010 à 12:21
je ne sais pas... L'essentiel étant le résultat...
