Discussion :

[spico45]

Bonjour à tous,

j'ai 2 questionS:

1) J'enregistre dans la useform des dates au format jj/mm/aaaa et j'aimerais au moment de les inserer qu'il devienne sous un format semaine/aa.

2) j'ai tout un tas de produit qui vont de la ligne F4 à HV4. Dans ma useform je peux choisir le type de produit et sa quantitéet et je souhaiterais pourvoir insérer la qté dans la colonne correspondant au produit demandé.

Je vous mets le fichier en copie

Merci

Nicolas

[nchal]

Salut

Pour ta première question, tu peux utiliser la fonction format. Un petit exemple a adapter.

Code :

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

1
2
3
4
Dim str_date As Date
str_date = "21/12/2012"
 
MsgBox Format(str_date, "ww/yy")

[spico45]

salut,

je te remercie pour ta réponse mais en faite j'ai besoin que la date sous format "jj/mm/aa" soit changé en "ww/aa" au moment de l'insérer dans la cellule.

Je remets mon fichier excel ca je me suis aperçu que celui que j'avais mis n'avais pas de macro.

Cordialement

[gnusti]

Bonjour,

Pour te répondre sur le second point, voici une piste à adapter :

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
16
17
18
19
20
21
 
 
Public Sub Main()
    {...}
    Feuil1.cells(laLigneOuEcrire, getColonneProduit(leNomDeMonProduit)).value = maQuantité
    {...}
End Sub
 
Public Function getColonneProduit(vProduit As String) As Integer
    'Cette fonction renvoie 0 si la colonne du produit n'est pas trouvée sinon, le numéro de la colonne
    Dim colonne as Integer
 
    colonne = 6
    getColonneProduit = 0
 
    While Feuil2.cells(4, colonne).value <> ""
        If Feuil2.cells(4, colonne).value = vProduit Then getColonneProduit = colonne
        colonne = colonne + 1
    Wend
 
End Function

Dans le Main(), il faut penser à vérifier si tu ne récupères pas 0 etc. mais l'idée est là...

[spico45]

Re all

bon j'essaye mais je n'y arrive pas, je dois être trop C... aujourd'hui. (2 ans sans pratiquer et c'est le bordel).

J'ai vu pein de truc pour la date mais je narrive pas a l'adapter correctement.

Merci tout le monde

[nchal]

Salut,

Je ne comprend pas pourquoi ma solution ne te satisfait pas. si tu as ta variable en type date "jj/mm/aaaa" et que tu veux la mettre dans une cellule en mode "ww/yy", il suffit de faire

Code :

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

1
2
3
4
5
6
7
8
9
Sub datete()
 
Dim maDate As Date
 
maDate = Cells(1, 1).Value
 
Cells(1, 2).Value = Format(maDate, "ww/yy")
 
End Sub

[Philippe Tulliez]

Bonsoir,

Salut,
Je ne comprend pas pourquoi ma solution ne te satisfait pas. si tu as ta variable en type date "jj/mm/aaaa" et que tu veux la mettre dans une cellule en mode "ww/yy", il suffit de faire

Code :

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

1
2
3
4
5
Sub datete()
Dim maDate As Date
maDate = Cells(1, 1).Value
Cells(1, 2).Value = Format(maDate, "ww/yy")
End Sub

Le problème c'est que si le n° de la semaine est inférieure à 13, le résultat escompté ne sera pas visible.
En faisant précéder le code ASCII 39 soit l'apostrophe, cela fonctionnera à coup sûr

Code :

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

Cells(1, 2).Value = Chr(39) & Format(maDate, "ww/yy")

[nchal]

salut,

Philippe, une explication du pourquoi du comment ? J'avais jamais fais gaffe que si ww<13 sa ne marchais pas

[spico45]

Merci pour ces réponses mais le souci est toujours le même.
Je prends l'exemple de cette année avec le 31/12/2012, il me traduit par 53/12 hors c'est la semaine 01/13.

[fring]

Bonjour,

C'est un bug

Les fonctions Format et DatePart peuvent renvoyer un numéro de semaine erroné pour le dernier lundi de l'année

Tu as les explications là --> http://blog.developpez.com/philben/p...-des-semaines/

[spico45]

voilà le bout de code que j'ai fait, je pense qu'il peut etre mieux ecrit mais bon c'est déjà pas mal pour un pays comme le mien.

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
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub CommandButton1_Click()
 
Dim ligfin As Long
Dim ws As Worksheet
Dim Madate As Date
Dim val1 As String, val2 As String
 
Madate = Format(Date, "dd/mm/yy")
 
Set ws = Sheets("feuil2")
 
    ligfin = ws.Range("a65000").End(xlUp).Row + 1
    ws.Rows(ligfin).Insert Shift:=xlDown
 
    ws.Range("c" & ligfin) = UserForm1.ComboBox1
    ws.Range("a" & ligfin) = UserForm1.TextBox1
    ws.Range("b" & ligfin) = UserForm1.TextBox2
    ws.Range("d" & ligfin) = UserForm1.TextBox4
    ws.Range("e" & ligfin) = UserForm1.TextBox5
 
val1 = Madate
val2 = Chr(39) & Format(Madate, "ww/yy")
Cells.Replace What:=val1, Replacement:=val2, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
Unload UserForm1
 
End Sub

Le souci est avec la fonction "replace", elle ne veut pas fonctionner. Elle ne me remplace pas ma dtae sous format "dd/mm/yyyy" par "ww/yy".

Je peux peut-être changer directement le format de mon textbox4 et 5 quand je les copie dans mes cellules?

Et en plus je mets le fichier :-)

Merci

[spico45]

Re,

personne pour un petit coup de main?