Macro: Remplir cellule vide tableau

Bonjour à vous,

J'ai le problème suivant :

j'ai 2 colonnes B et C , je remplis la colonne B avec X valeurs ( la colonne B n'a pas une dimension finie => le nombre de cellule varie)

Je remplis le colonne C avec maintenant X - 10 valeurs ( donc 10 cellules vide vis à vis de la colonne B)

Ce que je souhaite faire , c'est avoir une macro qui me remplisse les 10 cellules vide de la colonne B par la valeur 0.


Merci pour vos idées ;)

bonjour

voir du coté des boucles for next

ex:

Code:

---

1 2 3

for i = 1 to 10 Workbooks("nomduclasseur").Sheets("nomfeuille").Cells(i, 2).Value = 0 next i

---

Hello

Ce que je veux c'est que la macro agisse peu importe la taille de la colonne B.

Ici tu rentres directement la taille de la colonne...Et de plus cela écrit 0 partout...

bonjour,

je t'ai pas donné le code, je t'ai donné une piste qui doit t'aider à faire ton code:
après il suffit de rajouter quelqus conditions par exemple:

Code:

---

1 2 3 4 5

for i = 1 to 20 if Workbooks("nomduclasseur").Sheets("nomfeuille").Cells(i, 2).Value = "" then Workbooks("nomduclasseur").Sheets("nomfeuille").Cells(i, 2).Value = 0 end if next i

---

ensuite les cellules vides sont à la fin de la colonne ou un peu de partout au milieu du genre B3 vide mais B4 remplie et ensuite B5 vide?

Bonjour,
Une autre solution avec la méthode SpecialCells de l'objet Range
En supposant que la plage de cellules commence en A1 de la feuille nommée [maFeuille] du classeur où se trouve le code VBA et que les cellules vides sont en colonne 3 de cette plage

Code:

---

1 2 3 4 5

Sub RemplirCelluleVide() Dim rng As Range Set rng = ThisWorkbook.Worksheets("maFeuille").Range("A1").CurrentRegion ' Sélection de la liste complète (Equivalent à Ctrl + "*") rng.Columns(3).SpecialCells(xlCellTypeBlanks) = 0 ' Remplace les cellules vides de la colonne C par une valeur nulle End Sub

---