Convertir une date format texte en format date sur une plage avec des cellules vides

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:

---

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

---

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)

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

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:

---

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

Code:

---

If MaCellule.Text = NotEmpty

---

!!!!
s'écrit

Code:

---

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.

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

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:

---

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 ...

Bonjour,

Code:

---

1 2 3 4

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

---

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

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

Code:

---

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

---

Merci Docmarti,

Mais avec cette macro je fais comment STP

Code:

---

1 2 3 4

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

---

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

Code:

---

1 2 3 4 5

With Range("F2:F" & DernLig) t = .Value .NumberFormat = "" .FormulaLocal = t End With

---

Grand merci Doc