Remplacement des cellules vides

J

joss56

XLDnaute Accro

• 16 Mars 2016

• #2

Re : Remplacement des cellules vides

Bonjour,

Comme ça peut-être

Jocelyn

 

Pièces jointes

• forum.xlsm

  18.5 KB · Affichages: 22
• forum.xlsm

  18.5 KB · Affichages: 21

Vote positif 0 Vote négatif

N

Nazim

XLDnaute Junior

• 16 Mars 2016

• #3

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

 

Vote positif 0 Vote négatif

J

joss56

XLDnaute Accro

• 16 Mars 2016

• #4

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

N

Nazim

XLDnaute Junior

• 16 Mars 2016

• #5

Re : Remplacement des cellules vides

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

Nazim

 

Vote positif 0 Vote négatif