Discussion :

[flet le kid]

Bonjour,

Depuis ACCESS, j'exploite un fichier Excel qui malheureusement contient des cellules vides que j'aimerai remplacer par la chaîne "VIDE" avant de les importer à l'aide de TransferSpreadSheet.

J'ai une colonne nommé montant dont je connais l'indice de colonne et il faudrait que pour cette colonne les cellules vides reçoivent plutôt la valeur entière 0

Comment le faire?

Merci

[DeaD78]

Bonjour,

Tu peux partir là-dessus (enregistreur de macros) :

Code :

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

1
2
3
4
Columns("U:U").Select 'ta colonne où il faut remplacer les cellules vides
    Selection.replace What:=" ", Replacement:="0", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Est-ce que tu recherches ?

EDIT : ici, tu remplaces un espace par un 0. Pour vérifier qu'une cellule est vide, il faut utiliser ça

Code :

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

IsEmpty(ActiveCell.Value)

et le tour est joué !

EDIT2 : allez, je te l'ai fait. Ca donne ça au final !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim i As Long
 
    Application.ScreenUpdating = False
 
    For i = 1 To 500 'Pour les 500 premières lignes        
        If IsEmpty(Cells(i, 1).Value) Then
            Cells(i, 1).Select 'Pour la colonne A
            Selection.replace What:=Cells(i, 1).Value, Replacement:="0", LookAt:=xlPart, _
                SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                ReplaceFormat:=False
        End If
    Next
 
    Application.ScreenUpdating = True

[cafeine]

Hello,

voici une solution un poil plus rapide :

Code :

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

1
2
3
dim maRange as range
maRange = activeworkbook.sheets("onglet 1").range("A1:K500")
maRange.specialcells(xlCellTypeBlanks).value = "vide"

[flet le kid]

Merci pour ta réopnse qui est la solution pour ce genre de soucis.

J'ai fais des recherches en même temps et ai trouvé ce topic qui contient la réponse à ma question également:
http://www.developpez.net/forums/d51...cellules-vides

Je me suis rendu compte que toute mes cellule ne sont pas vides donc, je fais plutôt des test sur la longueur des éléments.

J'adapte vos réponses à ma situation et je vous tiens au courant.

[flet le kid]

OK, j'ai résolu mon soucis par ce code:

Code :

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

1
2
3
4
5
    'Workbooks(1).Sheets(1).Cells.SpecialCells(xlCellTypeBlanks).Value = "VIDE"
        Set plage = Workbooks(1).Sheets(1).Range(Cells(1, 1), Cells(nbrelignes, nbrecolonnes))
        For Each Cell In plage
            If (Len(Cell.Value) < 2) Then Cell.Value = "VIDE"
        Next

Merci encore à vous