Discussion :

[RP766]

Bonjour,

J'ai dans un fichier 4 tableaux les uns sous les autres complétés par VBA. Dans les données, il y a des colonnes vides présentes dans le fichier d'origine. Ces colonnes vides posent soucis dans le traitement des données. Pour l'instant, je les nomme dans ma macro et je demande d'écrire "NC". Je souhaiterais savoir s'il existe une méthode permettant de balayer un tableau et d'écrire "NC" dans les cases vides rencontrées sans trop alourdir le programme. Précision, les colonnes vides ne sont pas les mêmes dans les quatre tableaux. Pour deux d'entre eux, c'est la colonne J, pour les deux autres L.

Merci d'avance pour votre aide

[ARTURO83]

Bonjour,

Un exemple pour un tableau en A1:E10, à adapter selon vos besoin.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Remplissage_Cellules_Vides()
    Application.ScreenUpdating = False
    Set Plage1 = Range("A1:E10") 'Tableau 1
    For Each cell In Plage1
        If cell = "" Then cell.Value = "NC"
    Next
End Sub

Cdlt

[EricDgn]

Bonjour,

Si la plage est connue, la méthode .Replace est la plus simple. Exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1:B6").Replace What:="", Replacement:="NC", LookAt:=xlWhole

Cordialement.

[Pierre Fauconnier]

Salut.

Tu peux utiliser les SpecialCells pour traiter ce genre de cas, en considérant que les cellules sont bien vides, c'est-à-dire qu'il n'y a rien dedans, pas même une formule qui renverrait ""

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

range("a1:d10").SpecialCells(xlCellTypeBlanks).Value="NC"

[RP766]

Bonjour,

Merci à tous les trois pour vos réponses. Les messages de Pierre Fauconnier et ARTURO83 vont m'être très utiles, je pense, même s'il va probablement que j'apporte quelques adaptations au code proposé. Celui d'EricDgn est intéressant (je retiens cette solution pour une prochaine fois), mais il ne conviendra pas à ce cas de figure, justement parce que les colonnes vides ne sont pas forcément connues.

Je teste ce week-end et je vous tiens au courant.