0 dans toutes les cases vides

Bonjour le forum

Les question les plus simples sont parfois celles qu'on sait le moins résoudre.

Dans mon cas, j'ai besoin dans un tableau que "0" apparaisse dans toutes les cases vides (non saisies).

Je présume que c'est évident mais je patine. Comme un collègue me demande cela en urgence, je me permets de faire appel à vous,

Bien cordialement à tous,

Elfi

Salut plabrousse,

avec du code dans la feuille où se trouve ton tableau.

Range("A1:E12") doit être ajusté. Il s'agit de ton tableau.

Private Sub Worksheet_Activate()
Dim Tableau As Range
Dim Cellule As Range

Set Tableau = Range("A1:E12") 

For Each Cellule In Tableau
    If Cellule.Value = "" Then
    Cellule = 0
    Else: Cellule = Cellule
    End If
Next Cellule

End Sub

Bonjour EricF

Je viens d'essayer mais rien ne se produit. Peux-tu me préciser où mettre le code?

Merci d'avance,

Elfi

Alt-F11

Là, tu sélectionnes la feuille dans laquelle se trouve le tableau.

Et tu copie le code.

Bonjour le forum, bonjour, EricF

Eric, j'ai suivi tes recommandations à la lettre mais cela ne fonctionne toujours pas. Je te joins un fichier exemple pour simplifier.

https://www.excel-pratique.com/~files/doc/zerodanscasevide.xls

Bien cordialement,

Elfi

Tiens, je t'ai placé le code dans le Workbook_open

Comme ça, les zéros se placeront à l'ouverture du fichier.

J'ai aussi placé un bouton qui fait la même chose si tu veux tester.

https://www.excel-pratique.com/~files/doc/Copy_of_zerodanscasevide.xls

Eric, super, ça fonctionne.

Merci beaucoup et bonne journée,

bien cordialement,

Elfi

Rechercher des sujets similaires à "toutes cases vides"