Format Cellule

[DOMERGO]

bONJOUR

Comment faire apparaitre la valeur Zéro (0) dans une cellule SI ELLE EST VIDE EN UTILISANT FORMAT DE CELLULE

mERCI

 

[chris]

Re : Format Cellule

Bonjour

Excel ne peut pas formater le vide.
A la rigueur une MFC peut te colorer ou t'encadrer tes cellules vides mais pas les valoriser.

 

[Spitnolan08]

Re : Format Cellule

Bonjour,

Je rejoins Chris, après de multiples tentatives avortées...
Mais il n'est pas besoin de cRIER POUR SE FAIRE ENTENDRE sur le forum.

Cordialement

 

[CelluleVide]

Re : Format Cellule

Bonjour,

Le format ne peut rien pour cela.

Un petit code vba qui marche apres avoir selectionné la plage de cellule:

Sub RemplaceVide
'
Dim cel As Range
For Each cel In Selection
cel = IIf(IsEmpty(cel), 0, cel.Value)
Next cel
End Sub

A essayer.

 

[DOMERGO]

Re : Format Cellule

Merci Cellule Vide Et Les Autres Aussi....

Si Cette Macro Interesse Uniquement Les Cellule 22lx4c (ou D'autre Cellule Specifique) De Mes Feuilles

Merci

 

[CelluleVide]

Re : Format Cellule

Bonjour Domingo,
il te suffit de selectionner tes cellules "en dure" dans la macro:
Exemple:

Sub RemplaceVide
'Selection des cellules:
Range("C5:C18,G8:G28,K6:K23").Select

'Modification:
Dim cel As Range
For Each cel In Selection
cel = IIf(IsEmpty(cel), 0, cel.Value)
Next cel
End Sub

A+

 

[DOMERGO]

Re : Format Cellule

🙂Merci de ton aide.

 

[DOMERGO]

Re : Format Cellule

bONJOUR

MON PROBLEME MAINTENENT EST QUE JE SUIS ENCORE UN FOIS (MALGRES UN REEL EFFORT ) INCAPABLE D'APPLIQUER CETTE MACRO SUR UNE MULTITUDE DE FEUILLETS CHOSI PAR UN INDEX.

DANS MON EXEMPLE JE VOUDRAIS PARTIR DE MON INDEX AFIN DE POUVOIR COCHER LES FEUILLETS AUXQUELS JE VEUX APPLIQUER CETTE MACRO QUI ME REMPLACECE LES VIDES PAR UNE LETTRE OU UN AUTRE CHOSE CAR JE NE VEUX PAS DE CELLULES VIDES....

DANS MON CLASSEUR CI DESSOUS JE VOUDRAIS POUVOIR APPLIQUER LA MACRO "REMPLACERVIDE" DE LA MEME MANIERE QUE LA MACRO UTILISEE POUR ETUDE 1 (VOIR BOUTON LANCER DANS INDEX)

MERCI

 

[DOMERGO]

Re : Format Cellule

VOILA LE FICHIER

sORRY...

 

[porcinet82]

Re : Format Cellule

Salut,

Tu es deja passé sur le forum (je me rappel puisque c'est moi qui est fait la macro associer a ton bouton), donc tu devrais tenir compte des remarques (voir celle de Spitnolan le 30/08 à 17h16), à savoir, ne pas utiliser les majuscules quand tu fais une demande, cela revient à crier...

Pour ta demande, voiciune adaptation, mais pas testée

Sub RemplaceVide_v2()
Dim tablo As Variant, i%, k%
Dim cel As Range
ReDim tablo(1 To Range("A65536").End(xlUp).Row)
For i = 1 To UBound(tablo)
    If Cells(i, 2).Value = "X" Then tablo(i) = Cells(i, 1).Value
Next i
With Sheets("Etude 1")
    For i = 1 To Sheets.Count
        For k = 1 To UBound(tablo)
            If tablo(k) = Sheets(i).Name Then
                For Each cel In .Range("C33:C106,D33:D106,E33:E106")
                    cel = IIf(IsEmpty(cel), 0, cel.Value)
                Next cel
            End If
        Next k
    Next i
End With
End Sub

@+

 

[DOMERGO]

Re : Format Cellule

bonjour a vous,

voila je n'avais pas compris pour les majuscules c'est vous dire le niveau...
Ceci dit merci porcinet pour ton code.
En fait le code ci dessus s'applique au feuillet etude 1 et je voudrais qu'il s'applique au feuillet correspondant aux noms coches dans le feuillet index.

Je peux etre + clair si necessaire...

Merci

 

[porcinet82]

Re : Format Cellule

Salut,

Et bien tu aurais pu etre plus clair du premier coup 😉
Je ne suis pas sur d'avoir bien saisie, mais je tente tout de meme ma chance avec le code suivant :

Sub RemplaceVide_v2()
Dim tablo As Variant, i%, k%
Dim cel As Range
ReDim tablo(1 To Range("A65536").End(xlUp).Row)
For i = 1 To UBound(tablo)
    If Cells(i, 2).Value = "X" Then tablo(i) = Cells(i, 1).Value
Next i
For i = 1 To Sheets.Count
    For k = 1 To UBound(tablo)
        If tablo(k) = Sheets(i).Name Then
            For Each cel In Sheets(i).Range("C33:C106,D33:D106,E33:E106")
                cel = IIf(IsEmpty(cel), 0, cel.Value)
            Next cel
        End If
    Next k
Next i
End Sub

@+

 

[DOMERGO]

Re : Format Cellule

Merci c' est genial...
😀😀😀😀
encore une fois je t'en suis tres reconnaissant..