0 dans toutes les cases vides
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 SubJe 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.
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
Merci beaucoup et bonne journée,
bien cordialement,
Elfi