Remplacer Valeur 0

[Gexk5]

Bonsoir le forum,
Voici mon problème, afin de réaliser une synthese, avec des filtres, j'aurai besoin de vos compétences, dans ma colonne A après extraction, j'obient une reference puis en dessous des 0, je voudrais remplacer les 0 par la reference, j'ai essayé avec une formule, cela fonctionne sur les 3 premieres lignes puis tout est vide!!!!!
Je vous joint un petit exemple de mon fichier.
Merci de vos repnses

 

[bcharef]

Re : Remplacer Valeur 0

Bonsoir Gexk5,
Bonsoir à toutes et à tous.

Un essai en D3 et tirez vers le bas de ce qui est de la colonne A et tirez vers la droite puis vers le bas pour la colonne B.

=SI(A3=0;D2;A3&"")

Fichier ci joint.

A vous lire et bon courage.

Cordialement

BCharef.

 

[Gexk5]

Re : Remplacer Valeur 0

Re le forum, bcharef
Meric de ton aide , exactement ce qu'il me fallait

MERCI

 

[bcharef]

Re : Remplacer Valeur 0

Re bonsoir Gexk5,
Re bonsoir à toutes et à tous.

Un autre essai en cas d'une extraction avec sous-totaux automatique d'un TCD.

A consulter le fichier ci joint dans l'espoir qu'il vous apportera une aide.

A vous lire et bon courage.

Cordialement.

BCharef.

 

[CB60]

Re : Remplacer Valeur 0

Bonjour
Tu peux utiliser cela peut être?

Sub Macro1()
Dim i
Application.ScreenUpdating = False
i = 3
While Range("A" & i).Value <> ""
    If Range("A" & i).Value = 0 Then Range("A" & i).Value = Range("A" & i - 1).Value
    If Range("B" & i).Value = 0 Then Rows(i).Delete Shift:=xlUp
    i = i + 1
Wend
Application.ScreenUpdating = True
End Sub

 

[Gexk5]

Re : Remplacer Valeur 0

Bonjour le forum, CB60, Bcharef
Merci de vos reponse, la solution de bcharef me convient, je mets ton code de coté pour le tester, cb60.

Merci encore