format date avec VBA

Re : format date avec VBA

Bonjour Charles

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

pour la déclaration / initialisation de la variable

pour le renvoie vers les cellules :

bonne fin d'après midi
@+

Re : format date avec VBA

Bonjour CharlesSSQ, salut Pierrot 🙂 meilleurs voeux,

Voire aussi :


A+

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

Re : format date avec VBA

Re, bonsoir Job

peut être comme ceci :


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

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

Re : format date avec VBA

Re

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


@+