Discussion :

[alex.a]

Bonjour,

je n'arrive pas à supprimer des lignes possédant un champ vide.
Mon code importe des colonnes d'un autre classeur et renseigne certaines colonnes à partir d'une boucle. Mon problème est que certaines ligne importées sont vides et je voudrais les supprimer.(

mais mon code ne fait rien

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
18
19
20
21
22
23
Set FL2 = CL2.Worksheets("Recap-Fides")

    i = 34
    j = 8
        
    Do While nb_lignes_totales <> j - 8
        .
        .              
        .

                                           
        'supprime les lignes vides
        Dim iLigne As Integer
        iLigne = j
        FL2.Range("A" & j).Select
        If FL2.Range("A" & j).Value = "" Then
        FL2.Rows(iLigne).Delete
        End If
        
        i = i + 1
        j = j + 1
    Loop

Merci d'avance pour votre aide.

[sebi78]

essayer ca

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
Sub sup_ligne_vid_2()
 
Dim i As Integer
 
Application.ScreenUpdating = False
 
'boucle sur les lignes 100 à 1
For i = 100 To 3 Step -1
    'supprimer ligne vide
    If Application.WorksheetFunction.CountA(Rows(i)) = 0 _
    Then Rows(i).Delete
Next i
 
Application.ScreenUpdating = True
End Sub

[alex.a]

merci pour ton code sebi78 mais il ne fonctionne pas avec le mien.
En fait c'est le fichier qui me sert à l'importation qui possède des lignes vides. Celui sur lequel je travail a quelques colonnes importé (du fichier contenant les lignes vides) et le reste est calculé à partir de ces colonnes. Mais les calculs faisant référence à des cellules vide me renvois le résultat 0,000

j'ai essayé de modifier mon code dans ma boucle pour faire en sorte qu'il ne fasse les calculs que si la cellule est différente de vide; mais sans résultat

Code :

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

1
2
3
4
5
6
7
8
9
10
 
        FL2.Range("A" & j).Select
        If FL2.Range("A" & j).Value <> "" Then
            FL2.Range("D" & j).Select
            If FL2.Range("H" & j).Value = "Condensateur" Then
            FL2.Range("D" & j).Value = FL2.Range("C" & j) * FL2.Range("G4")
            Else
            FL2.Range("D" & j) = FL2.Range("C" & j)
            End If
        End If

Est-il possible d'inclure la suppression au sein de la boucle?
la boucle renseigne ligne après ligne les différents champs

[Bruno02]

Bonjour,
J'ai rencontré un problème similaire par importation de données issues d'un fichier .csv
J'ai codé .value = " " (un espace entre les guillemets) pour que ça marche.
A tester

[ouskel'n'or]

Si tu supprimes les lignes vide du fichier dont tu copies les données, les formules se mettront à jour (tu n'es pas obligé de l'enregistrer ensuite)
Est-ce que ça pourrait régler ton pb ?
A+