Discussion :

[stevenP]

Bonjour !

J'aimerai créer un programme qui me permettrai de remplir les champs vide de ma plage de donnée avec un " " , car quand j'exporte en CSV, il me manque des colonnes pour importer dans ma BDD..

j'ai déjà essayé cette macro mais elle trouve plus de case vide que nécessaire.

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
17
Sub Test()
    Dim Rg As Range, c As Range
 
    On Error Resume Next
    With Worksheets("Feuil1")
    Set Rg = .Range("A65536").End(xlUp).SpecialCells(xlCellTypeBlanks)
    End With
    Application.EnableEvents = False
    For Each c In Rg
    If IsNumeric(c.Offset(-1)) Or LCase(c.Offset(-1)) = "ok" Then
    c.Value = " "
    Else
    c.Value = " "
    End If
    Next
    Application.EnableEvents = True
End Sub

Et mon soucis c'est aussi que j'ai plusieurs requête qui ne me donne pas forcement le même nombre de colonne.

Merci d'avance pour votre aide

[Nicopilami]

à mon avis, tu as un pb de copier coller : if ... then ACTION_1 else ACTION_1 end if

dans les deux cas, tu fais la meme action...

bye
Nico