Discussion :

[malabarbe]

Bonjour,

J'ai joint mon fichier exemple

Ce que je voudrais faire :
C'est de prendre le premier caractère de A2 c'est a dire le 1
puis afficher en D2 le contenu de B2 & A2 concaténnés

donc 102 et 20080908 deviendrais : 200809081
Toutes les lignes sont a traiter de la mème façon

La colonne B est au format Date (ISO)

Merci à vous

[zazaraignée]

Qu'est-ce que tu veux au juste ? qu'on t'aide sur un bout de code où tu bloques? ou qu'on fasse le code à ta place?

Note que je n'ai pas ouvert le fichier joint par précaution. Je sais que plusieurs ne se donneront pas ce mal.

En attendant que tu nous dises, regarde dans l'aide de VBA du côté des fonctions de chaînes de caractères et des opérateurs. Tout particulièrement:

• Left$
• &

[helios77]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub traitement()
Dim i As Integer
Dim jour, mois As String
i = 2
While Sheets("Feuil1").Cells(i, 2).Value <> ""
    mois = Month(Sheets("Feuil1").Cells(i, 2).Value)
    jour = Day(Sheets("Feuil1").Cells(i, 2).Value)
    If CInt(mois) < 10 Then mois = "0" & mois
    If CInt(jour) < 10 Then jour = "0" & jour
    Sheets("Feuil1").Cells(i, 4).Value = Year(Sheets("Feuil1").Cells(i, 2).Value) & mois & jour & Left(Sheets("Feuil1").Cells(i, 1).Value, 1)
    i = i + 1
Wend
 
End Sub

[malabarbe]

Pour zazaraignée,

Non je ne veut pas que l'on fasse a ma place
j'avais testé avec plein de codes différents mais
a chaque fois, la date changais de format !

Pour helios77,

Ton code tourne a merveille
un grand MERCI

@ +