format date avec VBA

[CharlesSSQ]

Bonjour,

j'ai cette date (31-12-2009) en format standard "texte" dans excel. J'ai fait une petite macro pour importer cette date dans un autre classeur dans un range,en gardant ce même format. C'est-à-dire qu'aucun format de date ne dois être utilisé. Cependant lorsque je fais la macro la date s'inverse et devient (2009-12-31) en plus de devenir en format de DATE.

voici:

Application.Workbooks(WORKBOOK_PROCEDURE).Activate
Sheets(SHEET_TRAVAIL_PROCEDURE).Select
DateGuide = Cells(6, 4).Value

Application.Workbooks(WORKBOOK_GUIDE).Activate
Sheets(SHEET_TRAVAIL_GUIDE).Select

With Range("B2:B65536")
.ClearContents
.Interior.ColorIndex = 0
.ClearFormats
End With

With Range("B2:B65")
.Value = DateGuide

End With

MERCI

 

[Pierrot93]

Re : format date avec VBA

Bonjour Charles

essaye peut être ainsi, si j'ai bien compris :

pour la déclaration / initialisation de la variable

Dim DateGuide As String
DateGuide = Cells(6, 4).Text

pour le renvoie vers les cellules :

With Range("B2:B65")
    .Value = DateGuide
End With

bonne fin d'après midi
@+

 

[job75]

Re : format date avec VBA

Bonjour CharlesSSQ, salut Pierrot 🙂 meilleurs voeux,

Voire aussi :

With Range("B2:B65") 'curieux...
.NumberFormat = "@"
.Value = DateGuide
.ClearFormats 'peut-être inutile ?
End With

A+

 

[CharlesSSQ]

Re : format date avec VBA

Parfait!
Merci beaucoup

comment faire si DateGuide n'était pas toujours la même. Ex: DateGuide = cells(i , 7)
Dans ce cas mettre .text ne fonctionne pas car il n'y a pas de constante définie.

Merci

 

[Pierrot93]

Re : format date avec VBA

Re, bonsoir Job

peut être comme ceci :

Dim DateGuide As String
DateGuide = Cells(i, 7).Text

mais bien évidemment, il faut que "i" corresponde au numéro de ligne adéquat...

 

[CharlesSSQ]

Re : format date avec VBA

Bonjour,

J'ai aussi le même type de problème pour des pourcentages. J'ai dans un premier classeur des chiffres en format de % ex: 1,47%. Mon but est de les ammener dans un autre classeur en format standard de text, soit donc simplement 1,47. Toutefois cela me donne toujours 0,0147.

Merci

Application.Workbooks(WORKBOOK_DATA).Activate
Sheets(SHEET_TRAVAIL_FRAIS).Select

For i = 1 To 100
ticker(i) = Cells(4, i).Value
valeur(i) = Cells(6, i).Value

Next i

Application.Workbooks(WORKBOOK_GUIDE).Activate
Sheets(SHEET_TRAVAIL_GUIDE).Select

With Range("F2:F100")
.ClearContents
.ClearFormats
End With

For i = 1 To 100
tickerrecherche = ticker(i)
valeurratio = valeur(i)
Set Ligneticker = Range("A1:A10000").Find(tickerrecherche, LookIn:=xlValues, LookAt:=xlWhole)
If Not Ligneticker Is Nothing Then
frais = Ligneticker.Row
Cells(frais, 6) = valeurratio
With Application.Workbooks(WORKBOOK_GUIDE).Sheets(SHEET_TRAVAIL_GUIDE).Cells(frais, 6)
.Value = valeurratio
.NumberFormat = "0.00"

valeurratio = Cells(frais, 6).Text

End With
End If
Next i

 

[Pierrot93]

Re : format date avec VBA

Re

regarde le code ci-dessous, pour un pourcentage en A1 :

Dim x As String
x = Left(Range("A1").Text, Len(Range("A1").Text) - 1)

@+