Macro VBA suppression ligne sous conditions

Version imprimable

03/09/2018, 10h58
domcoool92

Macro VBA suppression ligne sous conditions

Bonjour à tous,

J'ai un fichier ou j'ai deja réalisé pas mal de choses.

mais je bute sur un élément.
J'aimerai supprimer des lignes.

Sur la colonne F à partir de ligne 7, je voudrais supprimer chaque ligne dont le contenu le la cellule dans la colonne F n'est pas strictement égal à 6 caractères alphanumériques

Par avance merci de votre aide
03/09/2018, 11h02
MarcelG

Bonjour et Bienvenu sur le Forum,

Ton code STP.

Il serait plus constructif que tu recherches, par tous les moyens, le code adéquat à ta demande.
Tu pourras ensuite solliciter le Forum.
03/09/2018, 12h07
vinc_bilb
Bonjour,

C'est typiquement le type de demande qui a été traité plusieurs fois: si votre condition de suppression est définie (ce qui semble votre cas), alors passez par un filtrage pour ne laisser à l'écran que les lignes à supprimer.
Après, vous passez par un Range.SpecialCells(xlCellTypeVisible) pour la suppression.

Vous trouverez j'en suis sur pas mal d'exemples plus étoffés sur le forum

Par exemple:
Code:

1 2 TablO.Range.AutoFilter Field:=FiltFiledI, Criteria1:=FiltCriterV Set FilterTabl = TablO.DataBodyRange.SpecialCells(xlCellTypeVisible)

Bonjour merci pour vos conseils voici le code réalisé avec l'aide d'exemple mais rien ne ce passe.

a noter que les caractères alphanumériques sont en colonne E et pas F
Par exemple:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
    Option Explicit
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
 
Sub VerifierNombres()
 
On Error GoTo Erreur
Dim MonNombre As Variant
 
 
'
If IsNumeric(Var) = True Then
 
      If Len(Var) = 6 Then
        Rows(NoLig & ":" & NoLig).Delete
        End If
Else
    'code si expression n'est pas numérique
 
End If
 
Exit Sub
Erreur:
MsgBox "Une erreur s'est produite..."
End Sub
Sub For_X_to_Next_Ligne()
Set FL1 = Worksheets("DmResultat")
    NoCol = 5 'lecture de la colonne E
    For NoLig = 7 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol)
         VerifierNombres
    Next
    Set FL1 = Nothing
End Sub

03/09/2018, 14h26
Menhir

Citation:

Envoyé par domcoool92

Sur la colonne F à partir de ligne 7, je voudrais supprimer chaque ligne dont le contenu le la cellule dans la colonne F n'est pas strictement égal à 6 caractères alphanumériques

Faire une boucle For To sur l'ensemble des numéros de ligne en allant de la dernière à la première (donc Step -1 sur la boucle).
https://docs.microsoft.com/fr-fr/off...next-statement
Faire un test sur le nombre de caractères de la cellule en cours avec la fonction Len().
https://docs.microsoft.com/fr-fr/off...p/len-function
Si elle n'est pas conforme, faire un Delete sur le Row correspondant au numéro de ligne.
https://msdn.microsoft.com/fr-fr/lib.../ff834641.aspx

Citation:

Bonjour merci pour vos conseils voici le code réalisé avec l'aide d'exemple mais rien ne ce passe.

Commence par supprimer le On Error qui t'empêche de voir les problème.
Ensuite, demande-toi ce que représente Var dans ton code et comment le code peut-il passer d'une ligne à l'autre.