Discussion :

[plante20100]

Bonjour à tous,

j'ai une petite question à vous soumettre. Sur ma feuille de départ Excel j'ai une colonne jour, une mois et une année. A partir de ces données je veux renseigner une autre feuille excel en écrivant la date de facon traditionnelle (jj/mm/yyyy).

Pour se faire j'ai fait une petite macro:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
If ThisWorkbook.Sheets("feuil1").Cells(ligne, 9) < 10 Then
            Cells(i, 8) = "0" & ThisWorkbook.Sheets("feuil1").Cells(ligne, 9)
        Else: Cells(i, 8) = ThisWorkbook.Sheets("feuil1").Cells(ligne, 9)
        End If
 
        If ThisWorkbook.Sheets("feuil1").Cells(ligne, 10) < 10 Then
            Cells(i, 8) = Cells(i, 8) & "/0" & ThisWorkbook.Sheets("feuil1").Cells(ligne, 10)
        Else: Cells(i, 8) = Cells(i, 8) & "/" & ThisWorkbook.Sheets("feuil1").Cells(ligne, 10)
        End If
 
        Cells(i, 8) = Cells(i, 8) & "/" & ThisWorkbook.Sheets("feuil1").Cells(ligne, 11)

Ca marche en gros bien, à l'exception de quelque ligne où excel décide de son propre chef de forcer le format de ma cellule à date. Et ca perturbe mon traitement des données.

Je voudrais savoir si quelqu'un sait comment iniber cette automatisation du formatage.

PS: quand je fais du pas à pas et que je commence à remplir une des cases qui posent problèmes, la cellule prend la valeur de 05-juin au lieu de 05/06 comme lui demande.

merci d'avance

vince

[plante20100]

Merci beaucoup pour ta réponse.

J'ai utilisé ta méthode qui est super, ca marche nickel.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Cells(i, 8) = ThisWorkbook.Sheets("feuil1").Cells(ligne, 11) 'je met l'année 
 
        If ThisWorkbook.Sheets("feuil1").Cells(ligne, 10) < 10 Then
            Cells(i, 8).Formula = CStr("/0" & ThisWorkbook.Sheets("feuil1").Cells(ligne, 10) & "/" & Cells(i, 8))
        Else
            Cells(i, 8).Formula = CStr("/" & ThisWorkbook.Sheets("feuil1").Cells(ligne, 10) & "/" & Cells(i, 8))
        End If
 
        If ThisWorkbook.Sheets("feuil1").Cells(ligne, 9) < 10 Then
            Cells(i, 8).Formula = CStr("'0" & ThisWorkbook.Sheets("feuil1").Cells(ligne, 9) & Cells(i, 8))
        Else
            Cells(i, 8).Formula = CStr("'" & ThisWorkbook.Sheets("feuil1").Cells(ligne, 9) & Cells(i, 8))
        End If

J'ai un peu tout essayé avant (notamment construire ma date à l'envers pour fainter excel mais ca a pas marché.

En tout cas je te dois un grand merci

Bonne journée et à bientot pour de nouvelles aventures contre les bugs inexplorés d'office!!!

Vince