Effacer des champs si vide

bonjour a vous tous

me voila encore avec in petit probleme enorme pour moi

et facile pour plusieur d`entre vous

merci a l avance pour votrre aide

Ronald

Bonjour,

Essaies la formule suivante en i37.

Cordialement.

=SI(DONNEES!B1<>"";DONNEES!B1;"")

merci pour la reponse

étant loin d`un expert j`essaie de mettre votrec reponse en i37

mais il me donne une reponse avec une ref comme montre en i39

je dois mal inscrire quelque chose a quelque part

merci pour le support

Ronald

Sub SupLig_Vides() 
Dim Lp%, Lv%, Lg% 
Dim X%, Nb%

Sheets("Feuil1").Activate
'------------------- Initialisation -----------------------------
Nb = Sheets("Feuil1").Range("LettreChiffre").Value 
If Nb = 0 Then Exit Sub
If Nb = 33 Then Exit Sub 'Nb de lignes total à verifier
Lp = 0 'compteur lignes pleines
Lv = 0 'compteur lignes vides
Lg = 11 'ligne de départ du traitement 

'--------------- Suppression des cellules vides qq soient leurs nombres ------------
Do While Lp <= Nb - 1
    If Range("B" & Lg + Lp + Lv).Value = "" Then
        Lv = Lv + 1
        ElseIf Range("B" & Lg + Lp + Lv).Value <> "" And Lv >= 1 Then
            For X = -1 To 4
                Range("B" & Lg + Lp).Offset(0, X) = Range("B" & Lg + Lp).Offset(Lv, X).Value
                Range("B" & Lg + Lp).Offset(Lv, X).Value = ""
            Next
        Lp = Lp + 1
        Lv = 0
    Else
        Lp = Lp + 1
    End If
Loop
End Sub

Voici un code que j'ai sur une feuille .. essaie de l'adapter

vraiment trop hot pour moi

je suis plus que débutant

ne solution plus simple serait plus adapter a ma situation

merci ronald

Bonsoir ,

en changeant le nom de l'onglet DONNEES en le renommant données,ça fonctionne (bizarre!!)

Comme le fichier joint n'est pas complet (on voit des boutons de lancement macro sans le code correspondant)donc difficile de voir

d'où vient le problème.

ici le fichier exemple

c`est exactements ce que je cherchais

la vie est belle4

mille merci