Valeur par défaut dans des cellules?

Bonsoir Tom,

Y aurait bien une solution un peu brutale :

for each c in selection
c.value=0
next

Il reste à régler la sélection.

Il y a sans aucun doute d'autres solutions.

Abel.

Bonjour à toutes et à tous,

merci de la réponse Abel.

J'ai fait de mon mieux mais suis trop débutant.

Alors je me permets de reformuler ma demande en explicitant certains points (j'ai fait de mon possible mais je bloque, trop débutant).

Voilà mon souci.

il me faudrait une macro qui fasse la chose suivante:

1) tester toutes les cellules d'une colonne (la colonne A);
2) pour chaque cellule non vide trouvées ( A... <> '') dans cette colonne (la colonne A)
3) tester toutes les cellules de la ligne correspondante de la colonne A, jusqu'à la colonne IN
4) pour chaque cellule vide de cette ligne (b... = '', v... = '' , IN... = '' etc...) inscrire la valeur 0 (zéro).

Exemple (?)

Si la cellule A99 est vide -> rien ne se passe
Si la cellule A98 n'est pas vide -> toutes les cellules vides de la ligne A98 jusqu'à IN98 se voient attribuer la valeur 0.

Mon objectif, supprimer les cellules vides en inscrivant la valeur 0 dans toutes les cellules d'une feuille excel dont les colonnes A à IN sont utilisés mais dont la longueur, le nombre de lignes est variables.

Cette macro serait lancée automatiquement à chaque fermeture.

Merci d'avance du coup de main

Tom

PS:J'ai bricolé un bout de code (fort loin de mon objectif final)... et ne suis pas trop capable d'aller plus loin.
Il attribue la valeur 0 aux cellules vides d'une plage.
Mais pas de double condition et la longueur est fixe (loin du compte donc).

_______________________
Sub verif()
Dim Cell As Range

For Each Cell In Range('A1:IN5')
If Cell.Value = '' Then
Cell.Value = 0
End If
Next Cell

End Sub
____________________________

Salut Tom,

Essaies ceci sur un brouillon !! LOLLL

Option Explicit

Sub verif()
Dim Cell As Range
Dim Acote, I
For Each Cell In Range('A1:A20')
If Not Cell.Value = '' Then
For I = 2 To 247
If Cells(Cell.Row, I) = '' Then
Cells(Cell.Row, I) = 0
End If
Next
End If
Next Cell

End Sub


Patrick

Ca fonctionne! Merci beaucoup

Bonjour Patrick,

j'ai essayé sur un brouillon d'abord... et ça marche parfaitement.

Mille mercis pour le coup de main...

a+
Tom