Discussion :

[RiemaRien]

Bonjour,

J'ai dans un fichier excel une colonne qui comporte dans ces cellules des lettres et des chiffres et des cellules avec seulement des chiffres.
Je souhaite supprimer seulement les lignes où la cellule comporte des lettres+chiffres.
Je n'arrive pas dans ma maccro à séparer les cellules .
Pouvez-vous m'aider ?

Cordialement,

[halaster08]

Bonjour,

La fonction VALUE renvoie une erreur si tu l'utilise sur une cellule avec du texte.
Tu peux donc faire un test IF(ISERROR(VALUE("ta cellule")))

[RiemaRien]

Voici mon code :

Code :

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

1
2
3
4
5
6
Sub sup()
Dim i As String
If (IsError(Value("i,4"))) Then
    EntireRow.Delete
End If
End Sub

Etant nouvelle en VB je suis totalement perdue ..

[BENNASR]

j'ai trouvé cette fonction sur le net
fonction te permet de séparer les chiffres d'une colonne contenant des chiffre et des lettres

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
Option Explicit
 
Function Keep(x$, b As Boolean)
    Dim i%, s$, n#
    For i = 1 To Len(x)
        Select Case Right(Left(x, i), 1)
            Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"
                If b Then s = s & Right(Left(x, i), 1)
            Case Else
                If Not b Then s = s & Right(Left(x, i), 1)
        End Select
    Next i
    If b Then
        n = s
        Keep = n
    Else
        Keep = Trim(s)
    End If
End Function

[MarcelG]

Bonjour à vous,
Bonjour au Forum

Voir aussi la propriété

Code :

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

 IsNumeric

A adapter

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
Option Explicit
 
Public Sub essai()
 
Dim c As Range
 
For Each c In Workkshhets("lafeuille").Range("A1:A125")
 
        With c
                If Not IsNumeric(.Value) Then .EntireRow.Delete
        End With
 
Next c
 
End Sub

[BENNASR]

bonjour MarcelG, bonjour la forum
super ton code qui fonctionne tres bien mais svp corriger le mot Worksheets
qui altère le fonctionnement du code pour un débutant
bonne journée à tous

[RiemaRien]

Bonjour à vous,
Bonjour au Forum

Voir aussi la propriété

Code :

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

 IsNumeric

A adapter

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
Option Explicit
 
Public Sub essai()
 
Dim c As Range
 
For Each c In Workkshhets("lafeuille").Range("A1:A125")
 
        With c
                If Not IsNumeric(.Value) Then .EntireRow.Delete
        End With
 
Next c
 
End Sub

J'ai essayé ce code. Des lignes sont supprimées mais je ne sais pas lequelles et ce ne sont pas les bonnes ..

[MarcelG]

Salut,

Il s'agit des cellules dont la valeur ne peut pas être numérique.
Autrement dit, si tu leur ajoutes un nombre alors un message d'erreur est retourné.
Cela correspond à ton critère, ou je me trompe?

Voir l'aide en ligne d'Excel. Pour ce faire, clic sur le mot clé puis F1.

[halaster08]

Voici mon code :

Code :

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

1
2
3
4
5
6
Sub sup()
Dim i As String
If (IsError(Value("i,4"))) Then
    EntireRow.Delete
End If
End Sub

Etant nouvelle en VB je suis totalement perdue ..

Je te conseille alors de lire les tutos pour débutant, tu peux en trouver sur ce site dans la section Tutoriel

La dans ton code il y plein de choses qui ne vont pas:
C'est quoi ("i,4") la cellule ieme ligne 4eme colonne? si oui c'est cells(i,4)
Mais tu n'as donné aucune valeur à i, et en plus tu l'a défini comme comme du texte.
Ensuite "EntireRow.Delete" tu ne lui précise pas quel ligne il doit supprimer.

Autre conseil:
Tu peux aussi essayer l'enregistreur de macro, ça permet d'avoir un début de code correct même si il y a des retouches a faire, il y d'ailleurs aussi un tuto a ce sujet.

[MarcelG]

Salut,

Bien vu BENNASR.
Merci et bonne journée.

[unparia]

Bonjour
Si toutes les données numériques de cette colonne sont bien(comme il se doit) dans des cellules au format numérique, il suffira de (ici avec la colonne A) :

Code :

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

Columns(1).SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete

[RiemaRien]

Je te conseille alors de lire les tutos pour débutant, tu peux en trouver sur ce site dans la section Tutoriel

La dans ton code il y plein de choses qui ne vont pas:
C'est quoi ("i,4") la cellule ieme ligne 4eme colonne? si oui c'est cells(i,4)
Mais tu n'as donné aucune valeur à i, et en plus tu l'a défini comme comme du texte.
Ensuite "EntireRow.Delete" tu ne lui précise pas quel ligne il doit supprimer.

Autre conseil:
Tu peux aussi essayer l'enregistreur de macro, ça permet d'avoir un début de code correct même si il y a des retouches a faire, il y d'ailleurs aussi un tuto a ce sujet.

Merci des conseils, je regarderais plus de tutos.
Comment donner une valeur à i et ne pas le définir comme du texte ?
J'ai rajouté "If (IsError(Cells.Value("i,4"))) Then" mais cela ne fonctionne pas, et me met un débogage "incompatibilité de type".
Comment préciser que la ligne à supprimer est celle où il y a lettre+chiffre dans la cellule ?

[unparia]

As-tu lu ma réponse ?

Quand je l'execute il me met comme message d'erreur "Pas de cellules correspondantes" ..

met en exergue que tu as formaté en texte (oh !) toutes les cellules en format texte, y compris celles contenant des données numériques !
On ne travaille pas ainsi.