Discussion :

[wkrystof1]

Bonjour à tous,

J'ai un petit soucis avec ma macro. Je voudrais lui faire dire,
Commence sur la cellule non vide et tu remontes jusque F2 et pour toute les cellules non vide tu appliques la conversion.

Comme elle est écrite, elle s'arrête à la première cellule vide et je ne vois pas comment faire

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
Sub Compilation()
 
Dim i As Variant
Dim j As Variant
 
' boucle pour transformer en format date
j = 2
Do While j <> fin And j < 13
  Sheets("A").Cells(j, 6) = CDate(Sheets("A").Cells(j, 6))
    i = i + 1
    With Sheets("A").Cells(j, 6)
   .Value = CDate(.Value)
   .NumberFormat = "dd/mm/yyyy"
End With
     j = j + 1
Loop
 
End Sub

[unparia]

Bonjour
Où et comment as-tu déclaré et initialisé ta variable fin ?
Tu dis que tu "remontes remontes jusque F2" mais ton code parcours vers le bas et non vers le haut. Sois clair.
A quoi te sert la variable i ?
Tu dis "pour toute les cellules non vide tu appliques la conversion" mais je ne vois aucune expression conditionnelle

Pourquoi ne pas tout simplement :
- dresser la plage des cellules non vides de la colonne F à partir de la ligne 2
- appliquer une boucle for each à ces cellules (avec tes instructions de remplacement)

[wkrystof1]

Bonjour Unparia,

Comme je le dis, mon instruction est simple, et je voudrais lui faire faire une chose de que j'arrive pas à écrire

Voilà dans quoi je veux l'insérer mais je n'y arrive pas.

Code :

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

1
2
3
4
5
   DernLig = Range("C" & Rows.Count).End(xlUp).Row
 
For Each MaCellule In Range("F2:F" & DernLig)
    If MaCellule.Text = NotEmpty Then ?????
    Next MaCellule

Ce n'est pas faux aussi dysorthographie

[unparia]

Code :

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

If MaCellule.Text = NotEmpty

!!!!
s'écrit

Code :

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

if not macellule.text = ""

Et ... Then quoi ? -->> si tu sais ce que signifie le code que tu as montré dans ton premier message, je ne comprends pas que tu te poses cette question maintenant !
Le même code est à appliquer à la cellule Macellule (en boucle).
Moi, je sors, maintenant.

[wkrystof1]

Avec ces 2 macros, je ne sais pas comment en faire une

[unparia]

Te rends-tu au moins compte de ce que tu es en train de me dire que tu sais ce que faisais en boucle sur la cellule j,6 ce que tu avais écrit, à savoir :

Code :

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

1
2
3
4
With Sheets("A").Cells(j, 6)
.Value = CDate(.Value)
.NumberFormat = "dd/mm/yyyy"
End With

mais que tu ne vois pas comment l'appliquer à Macellule en boucle ?
Je te laisse, car là .. vraiment ...

[Invité]

Bonsoir,
Personnellement celles vide ou pas,en descendant en remontent quel importance?

J'appliquerai le format à toute la plage et appliquerais plage.value=plage.value

[Invité]

Bonjour,

Code :

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

1
2
3
4
With Range("F2:F" & DernLig)
    .NumberFormat = "dd/mm/yyyy"
    .Value = .Value
End With

[wkrystof1]

Bonjour Dysortho

La macro qui m'a donné génère des erreurs. Tout ce ne converti pas correctement

Qd, je fais la conversion manuellement, pas de soucis
Données - Convertir - je laisse coché Délimité, Tabulation et dans identificateur de texte : aucun

J'enregistre cet manipulation avec l'enregistreur de macro et là aussi cela ne fonctionne pas correctement

Merci d'avance

[Docmarti]

Avec NumberFormat = "General" ou NumberFormat = "", ca fonctionne avec CDate.

Code :

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

1
2
3
4
5
6
7
8
9
j = 2
Do While j <> fin And j < 13
Sheets("A").Cells(j, 6).Select
 
Sheets("A").Cells(j, 6).NumberFormat = ""
Sheets("A").Cells(j, 6) = CDate(Sheets("A").Cells(j, 6))
 
j = j + 1
Loop

[wkrystof1]

Merci Docmarti,

Mais avec cette macro je fais comment STP

Code :

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

1
2
3
4
With Range("F2:F" & DernLig)
    .NumberFormat = "dd/mm/yyyy"
    .Value = .Value
End With

[Docmarti]

Mets les valeurs dans la variable tableau T puis, si les valeurs contiennent des dates. utilise .FormulaLocal au lieu de .Value.

Code :

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

1
2
3
4
5
With Range("F2:F" & DernLig)
 t = .Value
.NumberFormat = ""
.FormulaLocal = t
End With