Récupération de l'année d'une cellule au format "yy" et concaténation Résolu

Question

Bonjour, 

Désolé s'il y a un double post mais je n'ai pas arrêté de faire des recherches et pas moyen d'avoir une réponse clair et fonctionnelle.

Dans la première cellule d'un tableau je récupère la date actuelle avec NOW() au format d/m/yy h:nn,
dans la deuxième cellule, à l'heure actuelle, il s'agit d'un numéro qui est incrémenté,
maintenant je voudrais que dans la deuxième cellule, je récupère l'année au format "yy" de la première cellule en concaténant ce numéro.

Comme je ne connais pas trop le VBA, au tout début j'avais réussi à récupérer l'année au format "yy" et maintenant plus moyen de l'avoir dû au fait que j'ai modifié le code plusieurs fois pour essayer de concaténer ce numéro.
En clair je veux que se soit comme ceci :
19 - 2345

Voici un bout de code de ce que j'avais déjà fait (au passage le fichier excel est de quelqu'un d'autre)
Le texte en gras est le code que j'ai ajouté.
' Incrémente le n° du POST-IT puis Copie Colle la valeur    Range("C9").Select        Annee = "=Year(B9)"    Annee_formater = Format(Annee, "yy")    ActiveCell.Value = Annee_formater        'ActiveCell.FormulaR1C1 = "=R[1]C+1"     Selection.Copy    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Avec ce code je récupère toujours l'année au format "yyyy" alors que j'indique bien "yy" alors que j'ai déjà récupéré ce format.

Pour information, c'est un fichier qui est utilisé tout les jours toute l'année, ensuite un nouveau est créé mais ça ce n'est pas important.

Voilà ça parait bête mais pas moyen de trouver "les" solutions.
Et le pire c'est que comme je viens de commencer le VBA, j'ai du mal à m'en sortir avec les méthodes parce que des fois il faut les écrire comme ça :
...= "=Year(B9)" ou ...= Year("B9")

Alors est-ce que je suis pas futé ou alors il y a une cou**** dans le paté car des fois l'un marche et l'autre non et vice - versa et j'en pète des plombs.

Merci de vos réponses

Vaucluse · Answer

Bonjour
si vous placez dans la cellule =YEAR(cell date), ça fonctionne sans VBA un fois la date entrée
crtdlmnt

via55 · Answer

Bonjour

1) les "" sont superflus
2) Format modifie le format d'affichage mais pas le nombre récupéré qui est toujours à 4 chiffres
3) Si les années sont toutes postérieures à 2000 il suffit de soustraire 2000 pour avoir un nombre à 2 chiffres 
Annee=Year(B9)-2000
Sinon on prend les 2 derniers chiffres avec :
Annee=Right(Year(B9),2)

Cdlmnt
Via

DESTIN8TE · Answer

Ah excellent la communauté. Le jour où je créé mon compte, ça va j'aime bien.

jordane45 · Answer

Bonjour,

Peux tu nous poster un exemple de ton fichier ?
Ou au moins nous poster le code complet de ta macro... qu'on voit comment tu as inséré le code dedans...

Car, si tu as plusieurs lignes à traiter.. il faut, bien entendu, adapter le code que Michel t'a donné...

DESTIN8TE · Answer

Bonjour,

Oui le voici ( En gras c'est ce que j'ai ajouté au code) :
Sub Insertion()    On Error Resume NextActiveSheet.ShowAllData' Supprime les filtres    Range("B8:W8").Select    Selection.AutoFilter    ' Selectionne la ligne 9, insère une ligne, copie les valeurs puis l'efface    Rows("9:9").Select    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove    Range("B10:AD10").Select    Selection.AutoFill Destination:=Range("B9:AD10"), Type:=xlFillDefault    Range("B9:AD10").Select    Rows("9:9").Select    Range("L9").Activate    Rows("9:9").EntireRow.AutoFit    Range("B9:W9").Select    Selection.ClearContents    Range("C9").Select    ' Copie de la date du jour en B9   Range("B9").Select   ActiveCell.FormulaR1C1 = "=NOW()"   Selection.Copy   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False        ' Incrémente le n° du POST-IT puis Copie Colle la valeur    Range("C9").Select    Annee = "=Year(B9)"    Annee_formater = Format(Annee, "yy")    ActiveCell.Value = Annee_formater    'ActiveCell.FormulaR1C1 = "=R[1]C+1"    Selection.Copy    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False       ' Mise en forme : Hauteur de ligne    Rows("9:9").Select    Rows("9:9").EntireRow.AutoFit     ' Ajoute les filtres    Range("B8:W8").Select    Selection.AutoFilter    Range("B8").Select    ActiveWorkbook.Worksheets("DATA").AutoFilter.Sort.SortFields.Clear    ActiveWorkbook.Worksheets("DATA").AutoFilter.Sort.SortFields.Add Key:=Range( _       "B8"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _       xlSortNormal    With ActiveWorkbook.Worksheets("DATA").AutoFilter.Sort        .Header = xlYes       .MatchCase = False        .Orientation = xlTopToBottom        .SortMethod = xlPinYin        .Apply  End With    Range("C9").Select    End Sub
Voici le résultat de la macro sans ma modification. 

En sachant que le N° du Post It signifie le n-ième Post-It, donc comme sur le screen, le dernier est le 4695ième Post It.

yg_be · Answer

bonjour, 
[B9].Value = Format(Now, "yy") & "-" & [B9].Value

DESTIN8TE · Answer

Voici la solution finale :
'' Concatène l'année actuelle avec un n° de POST-IT incrémenté puis Copie Colle la valeur
        Range("C9").Select
        If [C10].Value = "" Then ' Si la cellule positionné
            [C9].Value = Format(Now, "yy") & " - " & [C10].Value + 1
        Else
            Dim num As Integer
            num = CInt(Mid([C10].Value, 6))
            [C9].Value = Format(Now, "yy") + " - " + CStr(num + 1)
        End If
Ps : Le commentaire est de nature personnelle mais je l'ai laissé, on ne sait jamais, s'il peut vous éclaircir.

Récupération de l'année d'une cellule au format "yy" et concaténation

7 réponses

Discussions similaires

Newsletters