Discussion :

[Rifl3x]

Bonjour,

J’ai un problème, je récupère des données que j’affiche dans un tableau. Ces données sont dans les colonnes A, B, C. Je dois alors effectuer des opérations sur ces données à l’aide d’une macro. J’affiche alors les données dans bdd après macro

Vous trouverez le fichier en pièce jointe !

Problème : Cependant, lorsque je rentre les données dans un tableau puis les affiche de nouveau cela me change la date (en orange) en inversant les mois et jours.

Du coup j’ai essayé de régler le problème en convertissant les dates au préalable à l’aide de CNUM(). Et ça marche, seulement, cela créé des colonnes en plus et cela affiche 0 ou #VALEUR alors qu’il ne devrait pas y avoir de date. Donc pour 100000 lignes de données, cela prend du temps.

N’y aurait-il pas un autre moyen de régler le problème sans ma méthode =CNUM( ) ? En changeant les formats ou autres… ?

J’ai pu remarquer qu’en double cliquant par exemple sur la cellule C5 puis en faisant entrée. Cela me règle le problème. La macro n’échange pas les jours et mois. Y a-t-il un moyen de faire « Entrée » sur toutes les cellules d’un coup par macro?
Sinon, pourquoi cela affiche #VALEUR alors que la case est vide ?

Merci infiniment d'avance pour votre aide !!!

Pour les flemmards :p




Avec le code de la macro

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
Sub Test()
Worksheets("Bdd initiale").Activate
 
Range("A2:C15").NumberFormat = "General"
 
Range("D2").Select
ActiveCell.FormulaR1C1 = "=VALUE(RC[-2])"
Range("E2").Select
ActiveCell.FormulaR1C1 = "=VALUE(RC[-2])"
Range("D2:E2").Select
Selection.AutoFill Destination:=Range("D2:E15")
 
Dim Tableau_1()
Tableau_1 = Range("A2:E15")
 
Worksheets("Bdd après macro").Activate
Range("A2").Resize(14, 5) = Tableau_1
 
End Sub

[Invité]

Bonjour,
Par Macro Range("A:C") = Range("A:C").Value

[Docmarti]

Bonjour

@rdurupt : Ta suggestion

Code :

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

Range("C2:C15").Value = r.Value

provoque la conversion de valeurs STRING en valeurs DATE (les cellules étant au format DATE ). Il y a donc inversion jour/mois.

Mieux vaut FormulaLocal qui ne provoque pas de conversion, donc pas le problème d'inversion.

Code :

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

1
2
3
4
5
6
Sub Corriger_Cellules()
 Set r = Range("C2:C15")
 r.NumberFormat = "m/d/yyyy"
 r.FormulaLocal = r.Value
 
End Sub

[Igloobel]

Bonjour,

juste histoire d'ajouter de l'eau au moulin


http://didier-gonard.developpez.com/...-excel-et-vba/

C'est devenu un livre de chevet et je te conseille le chapitre III

A+

[Docmarti]

La technique:
1) Définir la propriété NumberFormat désirée
2) Ré-écrire la valeur dans la cellule en utilisant FormulaLocal pour que les valeurs ne soient pas modifiées.

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
28
29
30
Sub Appel()
Set origine = Worksheets("Bdd initiale").Range("A1:E15")
Set fdest = Worksheets("Bdd après macro")
 
fdest.Activate
fdest.Cells.Clear
 
origine.Copy fdest.Cells(1, 1)
 
Call tt_A2(fdest.Range("A2:A15"))
 
Call tt_B2(fdest.Range("B2:C15"))
 
fdest.Columns("A:E").AutoFit
End Sub
 
Sub tt_A2(r)
 
 r.Select
 
 r.NumberFormat = "0"
 r.FormulaLocal = r.Value
End Sub
Sub tt_B2(r)
 
 r.Select
 
 r.NumberFormat = "m/d/yyyy"
 r.FormulaLocal = r.Value
End Sub