Remplacement des cellules vides

[Nazim]

Hello !!!

J'ai besoin d'aide sur une macro
j'ai un fichier (clonne B a I), je souhaite remplacer les cellules vide par un NA et les cellules ou il y'a un 0 par "DateNonValide"

Puis-je avoir de l'aide ?

Merci

En PJ le document

 

[joss56]

Re : Remplacement des cellules vides

Bonjour,

Comme ça peut-être

Jocelyn

 

[Nazim]

Re : Remplacement des cellules vides

Bonjour Jocelyn,
Oui merci, juste si je souhaite faire pour chaque ligne (la dimension du document peut changer en nombre de ligne pas en colonne) [j'essaie de faire une boucle non pas de i=1 à 20 mais plutôt sur toutes les lignes du fichier]
comment dois-je procéder ?
Merci

 

[joss56]

Re : Remplacement des cellules vides

Remplace la code existant par celui ci:

Private Sub CommandButton1_Click()

ligne = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
For i = 2 To ligne
For j = 2 To 8
If Cells(i, j) = "" Then Cells(i, j) = "NA"
If Cells(i, j) = 0 Then Cells(i, j) = "Date non valide"
Next j
Next i

End Sub

 

[Nazim]

Re : Remplacement des cellules vides

Merci c'est parfait
Bonne fin d'après midi

Nazim