Des cellules vides

Bonjour à tous et bonne Année,

voice un nouveau sujet que je voudrais résoudre,

le commentaire est dans le fichier joint.

merci

Bonjour benoist, le forum,

Pas certain d'avoir compris....

En G1:

=SI($F1=0;"";$F1)

En K1:

=SI($J1=0;"";$J1)

A tirer vers le bas....

[EDIT] : dans ton code vba

 .Offset(, 1).Value = IIf(.Value = 0, "", .Value)

Cordialement,

Bonjour

Je ne vois pas trop l'intérêt de dupliquer les colonnes...

Tu peux soit simplement masquer les 0 avec un format de nombre personnalisé soit remplacer par une formule conditionnelle

=SI(F1="";"";F1)

dupliquer une colonne tout simplement j'ai une colonne masquer qui garde les montants et l'autre j'efface

merci à tous de votre réponse,

=SI(F1="";"";F1) sa marche super en faisant ça à chaque cellule ( bien sur à tirer vers le bas) merci à 78 CHRIST

par contre dans le code de "Xorsankukai" çà ne fonctionne pas

Bonjour à tous !

benoist a écrit :

merci à 78 CHRIST

Il y a longtemps que j'assimilais 78chris à une divinité.... j'ai maintenant la preuve.

Re,

par contre dans le code de "Xorsankukai" çà ne fonctionne pas

• Pourtant, lorsque j'inscris 0 dans F1, rien ne s'affiche en G1....en revanche si j'y inscris 1€, il s'affiche également en G1...

• De même pour J1, si 0, rien en K1, si 1 alors 1 en K1....

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim Isect As Range, Plage, c, i

   i = Range("A" & Rows.Count).End(xlUp).Row
    Set Plage = Range("F1:F" & i & ",J1:J" & i & ",L1:L" & i)
    Set Isect = Intersect(Target, Plage)
     If Isect Is Nothing Then Exit Sub
      For Each c In Isect.Cells
       With c
       'If .Value <> 0 Then .Offset(, 1).Value = .Value
        .Offset(, 1).Value = IIf(.Value = 0, "", .Value)
       End With
      Next c
End Sub

Cordialement,

Re,

oui je comprend bien, mais quand j'éfface après en f1 ça me l'enlève en g1 alors que je veut le garder en g1 !

Re,

C'est moi qui ne comprends toujours pas,

• Avec la formule, si tu effaces F1, G1 s'efface également, non ?

.Offset(, 1).Value = IIf(.Value = "", "", .Value)

revient au même que

=SI(F1="";"";F1)

L'essentiel est que ton problème soit résolu mais je reste sur une incompréhension, sans doute que je ne me suis pas encore remis du réveillon,

Pense à clôturer le sujet en validant la soluce de Jésus....heu 78chris

Cordialement,

non avec la formule de 78christ si j'éfface f1, g1reste

je joint un fichier avec ses modifications tu va voir

sur une cellule vide en f4 regarde en g4 et après enlève en f4