Discussion :

[moxo01]

Bonjour,
j'ai un créé un fichier excel avec 2 feuilles, une premiere feuille pour la saisie de l'utilisateur et la 2eme pour le recap de toutes les saisies.
Ce fichier sert à l'attribution d'un numero pour des courriers officiels
Ds mon entreprise nous avons choisis le format exemple 2008060001
les 4 premiers chiffres correspondent à l'année les 2 suivants au mois et les 4 derniers c'est une incrementation
Donc ds mon formulaire de saisie, la cellule B4 est à la date du jour (aujourdhui()) et la cellule B14 contient ce numero. Lorsqu'il clique sur un bouton valider toutes les cellules saisie sont copié et collé sur l'autre feuille. La derniere etape est de mettre à jour cette cellule b14 pour la future saisie.
Pour cela dans mon code, je concatene mon année (saisie en dure en debut d'année) avec le mois du jour via la cellule b4 et avec les 4derniers chiffres du dernier numero attribué +1.
Mais j'ai des erreurs à tout va je met ici et la le caractere & mais tjrs pas bon "erreur de copie, erreur de syntaxe"...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

selection = "=CONCATENER(2008;(TEXTE(saisie!B4;"mm"));(TEXTE(DROITE(recap!A2;4)+1;"0000")))"

merci d'avance de votre aide

[alsimbad]

il te faut utiliser soit les meme formule en anglais soit
selection.formula et formule en anglais
soit selection.formulalocal = formule en français

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

selection.formulalocal = "=CONCATENER(2008;(TEXTE(saisie!B4;mm));(TEXTE(DROITE(recap!A2;4)+1;"000")))"

mais tu vas rencontrer des problemes avec les guillemets. je te donne pas la solution, je m'en sort pas moi même très bien avec ça.
mais tu peux aussi définir ta variable par le vba et la coller en b14

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("message").Range("b14") = "2008" & Format(Date, "mm") & Sheets("recap").Range("a2").Value

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
u = "2008" & Format(Date, "mm") & Sheets("recap").Range("a2").Value
range("b14") = u

[moxo01]

merci alsimbad

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
u = "2008" & Format(Date, "mm") & Sheets("recap").Range("a2").Value
range("b14") = u

la premiere partie est nickel ca copie bien pas d'erreur mais la partie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("recap").Range("a2").Value

me redonne mon ancienne chiffre complet alors que je veux juste les 4derniers numeros + 1. et si c'est 0002 qu'il ne me mettent pas 2 mais bien 0002.

sinon j'ai essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

selection.formulalocal = "=CONCATENER(2008;(TEXTE(saisie!B4;mm));(TEXTE(DROITE(recap!A2;4)+1;0000)))"

il me copie parfaitement le code ds la cellule sauf que je n'ai pas résultat car il me manque les guillemet à mm et à 0000 du coup j'ai une erreur de formule.
merci en tout cas je continue mes tests.

[moxo01]

c'est bon j'ai reussi c'est nickel j'ai ajouté 2 guillements à chaque fois

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

selection.formulalocal = "=CONCATENER(2008;(TEXTE(saisie!B4;""mm""));(TEXTE(DROITE(recap!A2;4)+1;""0000"")))"

a+