XL 2013 Remplir les cellules vides d'une colonne par ("ND")

Ikito

XLDnaute Occasionnel

• 17 Juillet 2019

• #2

Bonjour anouarlachiri,

Voici le fichier magique.

 

Pièces jointes

• anouarlachiri.xlsm

  18.4 KB · Affichages: 6

Vote positif 0 Vote négatif

A

Anr1

XLDnaute Occasionnel

Supporter XLD

• 17 Juillet 2019

• #3

Merci @Ikito,

Vraiment c'est un fichier magique lol

Mais des fois j'ai 3 colonnes vides à la fois ou plus alors c'est long de remplir a chaque fois la lettre de colonne ...
y a pas une solution pour remplir les colonnes vides d'un seul coup ?

J'ai trouvé une solution mais c'est long comme programme
Merci

 

Vote positif 0 Vote négatif

Ikito

XLDnaute Occasionnel

• 17 Juillet 2019

• #4

Re,

Essaye d'exprimer ton besoin dès la première formulation et de fournir dans ton fichier exemple tous les cas de figure, ça gagnerait du temps à tout le monde...

Cliquer sur la colonne à remplir, puis cliquer sur le bouton.

EDIT : Sinon, si les colonnes sont exclusivement vides (c'est à dire que toutes les cellules sont vides), on peut procéder autrement.

 

Pièces jointes

• anouarlachiri (1).xlsm

  21.6 KB · Affichages: 5

Vote positif 0 Vote négatif

A

Anr1

XLDnaute Occasionnel

Supporter XLD

• 17 Juillet 2019

• #5

Merci bcp @Ikito votre macro fonctionne bien

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 17 Juillet 2019

• #6

Bonjour,

La macro suivante remplira n'importe quelle colonne vide d'un tableau qui contient la cellule active et avec une ligne d'entête:

VB:

Sub Remplir()
    Dim col As Range
    For Each col In ActiveCell.CurrentRegion.Columns
        If Application.CountA(col) = 1 Then
            col.Offset(1).Resize(col.Rows.Count - 1).Value = "ND"
        End If
    Next
End Sub

Bon tests

 

Vote positif 0 Vote négatif

A

Anr1

XLDnaute Occasionnel

Supporter XLD

• 17 Juillet 2019

• #7

Parfait @Roblochon

Merci bien à vous aussi

 

Vote positif 0 Vote négatif