Discussion :

[laurasoe]

Bonjour :

J'aurai besoin de votre aide car je suis un peu bloquée!

En faite je voudrai remplir les cellules vide de ma colonne A par des 0 sachant que il faut remplir que jusqu'à la dernière ligne non vide de la colonne B. Aussi la longueur de ces colonnes peuvent changer. (j'espère avoir été claire)

Pour l'instant j'ai écrit quelque chose mais ça marche pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub remplir()
 
Dim derlig As Long
Dim selection As Range
derlig = Range("B" & Rows.Count).End(xlUp).Row
selection = Range("A1:derlig")
Dim Cel As Range
    For Each Cel In selection
        If IsEmpty(Cel) Then
            Cel = 0
        Else
            Cel = xlNone
        End If
    Next Cel
 
End Sub

Voilà,
Merci de votre aide!

Laura

[parmi]

Bonjour,

Essaie comme ceci

Code :

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

1
2
3
4
5
6
    Dim nbLignes As Long
 
    nbLignes = Cells(Rows.Count, "A").End(xlUp).Row
 
    Range("A2:A" & nbLignes).SpecialCells(xlCellTypeBlanks).Select
    Selection.Formula = "0"

NB: c'est plutôt rare que j'utilise les Select/Selection, mais dans ce cas-ci, c'est intéressant...

[laurasoe]

Bonjour, et merci beaucoup d'avoir répondu !

Mais y a deux problème avec votre code:

Le premier vient que ça efface mes cellules non vide.

et deuxième: la dernière ligne de la colonne A est la dernière ligne de la colonne B Pour être plus explicite

1       2
*       2
*       2
*       2
5       2
*       2
*       2
1       2
*       2
*       2
*       2
*       2
*
*
*
*

avec * = vide

Du coup en gros dans la colonne A le remplissage de 0 s'arrête au niveau de la dernière ligne de la deuxième colonne.

[Invité]

l'enregistreur de macro aurait donné ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Macro1()
'
' Macro1 Macro
'
 
'
 Range("A1:A7").Select
    Selection.Replace What:="", Replacement:="0", LookAt:=xlWhole, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

en la retravaillant un peut tu aurais obtenus ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
Dim R As Range
Set R = ActiveSheet.UsedRange
ReplaceVide R.Range(R(1, 1), R(R.Rows.Count, 1))
End Sub
 
Sub ReplaceVide(Plage As Range)
Plage.Replace What:="", Replacement:="0", LookAt:=xlWhole, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

[parmi]

Si tu veux avoir la dernière ligne de la colonne B, change le A pour B, ici

Code :

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

nbLignes = Cells(Rows.Count, "A").End(xlUp).Row

Pour ce qui est d'effacer tes données, je ne comprends pas (?)
Le code sélectionne les cellules vides en A seulement et leur met un 0...
Ça ne devrait pas toucher aux autres cellules.

[laurasoe]

Parmi merci beaucoup ! En fait en cherchant tout à l'heure c'est moi qui avait une erreur ! ça marche nickel !

et merci de votre aide aussi rdurupt


Je marque le problème comme résolu !

[parmi]

une bulle au cerveau...

Sans les Select(ion) (qui devraient toujours être évités...)

Code :

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

1
2
3
4
5
    Dim nbLignes As Long
 
    nbLignes = Cells(Rows.Count, "B").End(xlUp).Row
 
    Range("A2:A" & nbLignes).SpecialCells(xlCellTypeBlanks) = 0

Et la méthode Replace est aussi efficace....