Discussion :

[evo84]

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

[bboy-eazy]

bonjour

voir du coté des boucles for next

ex:

Code :

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

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

[evo84]

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...

[bboy-eazy]

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 :

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

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?

[Philippe Tulliez]

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 :

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

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