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

[Anr1]

Bonjour tt le monde,

Je demande si vous pouvez m'aidez pour crée un macro afin de remplir les cases vides dans un tableau par la valeur "ND"

Feuil2: Cellules colonne D
Feuil1 Cellules colonne H

C'est juste une exemple mon problème est variables a chaque fois une colonne différente est vide


Merci d'avance

 

[Ikito]

Bonjour anouarlachiri,

Voici le fichier magique.

 

[Anr1]

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

 

[Ikito]

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.

 

[Anr1]

Merci bcp @Ikito votre macro fonctionne bien

 

[Hasco]

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:

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

 

[Anr1]

Parfait @Roblochon

Merci bien à vous aussi