Discussion :

[Vadorblanc]

Bonjour
Cette macro supprime toutes les lignes vides, comment faire pour supprimer toutes les lignes dont la cellule en colonne A n'est pas un nombre.
Si c'est un nombre = ne pas supprimer
Si c'est du texte = supprimer

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
Sub SupprLignesVides()
    ' désactiver le rafraîchissement de l'écran pour accélérer le traitement
    Application.ScreenUpdating = False
    ' désactiver les alertes pour empêcher l'affichage
    ' des messages du genre "Voulez-vous etc."
    Application.DisplayAlerts = False
 
    ' se placer sur la dernière ligne contenant des données
    Range("A65536").End(xlUp).Select
    Do
        If IsEmpty(ActiveCell) Then
            ActiveCell.EntireRow.Delete
        End If
        ActiveCell.Offset(-1, 0).Select
    Loop Until ActiveCell.Row = 1
 
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

Merci pour l'astuce

[jfontaine]

Bonjour,

En utilisant isnumeric cela devrait faire ce que tu souhaites

Code :

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

1
2
3
if isnumeric(Range("A" & i).value then
'supprimer
end if

[PPz78]

bonsoir,

Code :

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

If VarType(ActiveCell) = vbString Then

PPz

[Vadorblanc]

Bonjour jfontaine, ton code bloque sur 'isnumeric' j'ai essayé de mettre 'ConstrainNumeric' c'est idem

Bonjour PPz78, ton code fonctionne mais il reste des lignes à supprimer dont les cellules en col A sont vides mais dont les autres col ne sont pas vides, de plus je n'arrive pas à supprimer la première ligne dont la col A est en texte malgré que je change 'Loop Until ActiveCell.Row = 1' par 'Loop Until ActiveCell.Row = 0' car bloque si je mets un zéro

Merci

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
24
Sub SupprLignesSaufNombreColA()
    ' désactiver le rafraîchissement de l'écran pour accélérer le traitement
    Application.ScreenUpdating = False
    ' désactiver les alertes pour empêcher l'affichage
    ' des messages du genre "Voulez-vous etc."
    Application.DisplayAlerts = False
 
    ' se placer sur la dernière ligne contenant des données
    Range("A65536").End(xlUp).Select
    Do
        'If IsEmpty(ActiveCell) Then
 
        'If IsNumeric(Range("A" & i)).Value Then
 
 
        If VarType(ActiveCell) = vbString Then
            ActiveCell.EntireRow.Delete
        End If
        ActiveCell.Offset(-1, 0).Select
    Loop Until ActiveCell.Row = 1
 
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

[babaothe]

salut

si tu as de nombreuses lignes susceptibles d'être ainsi supprimées, tu auras peut-être intérêt à constituer une plage des dites lignes et à les supprimer toutes à la fois (d'un seul coup et sans te préoccuper de le faire de bas en haut ou de haut en bas).
La méthode Union te le permet et devrait t'intéresser (tu nous as exposé être débutant et elle est donc à apprendre).

Ainsi (exemple que j'ai commenté pour toi) :

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
 
  Dim derlig As Integer, c As Range, jeter As Range
  'on détermine le rang de dernière cellule remplie dans la colonne A (derlig)
  derlig = Range("A:A").SpecialCells(xlCellTypeLastCell).Row
  'on traite la plage de A1 à la ligne derlig de la colonne A
  For Each c In Range("A1:A" & derlig) ' pour chaque cellule de cette plage :
    If Not IsNumeric(c.Value) Or IsEmpty(c) Then ' si ni un numérique ou si vide :
      'si la plage jeter est encore inexistante, on la crée avec la cellule trouvée
      'si elle existe déjà, on lui ajoute la cellule trouvée
      If jeter Is Nothing Then Set jeter = c Else Set jeter = Union(jeter, c)
    End If
  Next
  jeter.EntireRow.Delete ' on supprime d'un seul coup toutes les lignes de la plage jeter
  If Not jeter Is Nothing Then Set jeter = Nothing ' on détruit (en mémoire) la plage jeter
  Set c = Nothing ' on détruit (en mémoire) la plage c

Dans le code plus haut : note la ligne :

Code :

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

If Not IsNumeric(c.Value) Or IsEmpty(c) Then

elle considère toutes les cellules contenant du texte ou étant vides.
Si tu souhaites ne considérer que celles coàntenant du texte et ne pas également supprimer les vides, remplace-la par :

Code :

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

If Not IsNumeric(c.Value) Then

Voilà
En analysant attentivement ce code, tu commenceras à t'ouvrir d'autres horizons intéressants et dont tu auras l'occasion de te servir plus d'une fois.

[jfontaine]

désolé, il manquait une parenthese

Code :

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

1
2
3
4
5
If IsNumeric(Range("A1").Value) Then
 
    MsgBox "numerique"
 
End If

[Vadorblanc]

jfontaine, ton code fonctionne que si la première ligne contient un nombre dans la col A, et là il supprime tout même les cellules nombre en col A et ne garde que la première ligne.
Merci

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
Sub SupprLignesSaufNombreColA()
    ' désactiver le rafraîchissement de l'écran pour accélérer le traitement
    Application.ScreenUpdating = False
    ' désactiver les alertes pour empêcher l'affichage
    ' des messages du genre "Voulez-vous etc."
    Application.DisplayAlerts = False
 
    ' se placer sur la dernière ligne contenant des données
    Range("A65536").End(xlUp).Select
    Do
        'If IsEmpty(ActiveCell) Then
 
        If IsNumeric(Range("A1").Value) Then
 
       ' If VarType(ActiveCell) = vbString Then
            ActiveCell.EntireRow.Delete
        End If
        ActiveCell.Offset(-1, 0).Select
    Loop Until ActiveCell.Row = 1
 
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

[Vadorblanc]

Bonjour
J'ai rajouté la suppression de la première ligne au code de PPz78 et fait qu'il n'y a pas de cellules vides en col A avec des cellules non vides sur les autres col de la même ligne, c'est pas très pro, mais ça marche très bien comme ça.
Merci PPz78 et jfontaine

Code :

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

1
2
3
Rows("1:1").Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select