Remplacer cellule Vide par valeur cellule suivante

Bonjour tout le monde,

Est il possible de compléter la macro de Bigdams de façon de remplacer les cellules vides "" de la colonne D, par les valeurs des cellules des colonnes E ou F.

Aussi, je trouve un souci lié au remplacement de la virgule ","par un point "."si le nombre ne contient pas de chiffre après la virgule.

Voir fichier ci-joint

Merci d'avance

Salut zagalo,

Voila une proposition :

For i = 2 To Worksheets("Feuil2").Cells(Rows.Count, 1).End(xlUp).Row
    If Worksheets("Feuil2").Cells(i, 4) <> "" Then

        Else
        If Worksheets("Feuil2").Cells(i, 5) <> "" Then
            Worksheets("Feuil2").Cells(i, 4) = Worksheets("Feuil2").Cells(i, 5)
            Else
            Worksheets("Feuil2").Cells(i, 4) = Worksheets("Feuil2").Cells(i, 6)
        End If
    End If
    Worksheets("Feuil2").Cells(i, 4).NumberFormat = "###0.00"
    'Worksheets("Feuil2").Cells(i, 4) = CStr(Replace(Worksheets("Feuil2").Cells(i, 4), ",", "."))
Next i

La dernière ligne est en commentaire, mais si ça te dérange pas d'avoir tes données en texte, utilise la tu seras sûr d'avoir des points!

Bon courage

Salut Reuk,

Merci beaucoup, ça marche très bien,

Pour le changement du "," par "." mon sujet final c'est de passer à la conversion Excel vers TXT. je ne sais si c'est possible de le faire mais bon, les génies d'Excel ne manque plus ici dans ce forum fantastique.

Merci beaucoup

Je pense que c'est faisable, aucune idée de comment, mais quand c'est comme ça : Enregistreur de macro! (et enregistrer sous!)

Bon courage!