Discussion :

[Guigsounet]

Bonjour

Je suis sous Excel 2007 et je souhaite effacer une lgne en fonction de la non présence d'une valeur

Mon code fonctionne

Code :

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

1
2
3
4
5
6
7
For j = 850 To 2 Step -1
    Select Case Cells(j, i).Value
        'Case "V1", "V2", "V4", "V6", "V7"
        Case Else
    'Suppression 
            Rows(j).EntireRow.Delete
    End Select

Pour faciliter la pérennité je souhaite mettre les valeurs Vx dans un tableau pour ne pas avoir a fouiller le code a chaque changement de valeur.
Ainsi si, dans le futur, les valeurs changent (différentes, moins de valeurs, plus de valeurs) je n'aurai qu'a modifier les valeurs ou ajouter/supprimer des lignes au tableau

Ma question est donc, comment interroger le tableau en question ?
Nom du tableau : TAId

[joe.levrai]

Bonjour,

peux-tu montrer la procédure complète ?

une boucle sur chaque colonne de chaque ligne ne me semble pas obligatoire ... via la fonction CountIf peut être

[Guigsounet]

Peu importe, j'optimiserai après (je dois identifier dans quelle colonne chercher, je peux récupérer l'indice de la colonne, ce que je ne fais pas actuellement)
Mon point de blocage concerne surtout le case pour voir si la valeur de ma cellule se situe dans mon tableau

[joe.levrai]

voir si la valeur de ma cellule se situe dans mon tableau

alors adapte cet exemple puisque tu ne veux rien montrer, pas même à quoi correspond ton TAId

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
Public Function IsInArray(ValeurCherchée As Variant, ArrayDeRecherche As Variant) As Boolean
' fonction qui vérifie si une chaine de caractère est dans un Array
' retourne Vrai si c'est dedans, sinon retourne Faux
    If Not IsArray(ArrayDeRecherche) Then Exit Function
    IsInArray = InStr(1, vbNullChar & Join(ArrayDeRecherche, vbNullChar) & vbNullChar, vbNullChar & ValeurCherchée & vbNullChar) > 0
End Function
 
 
Sub toto()
Dim TabVal()
Dim MaChaine As String
TabVal = Array("titi", "toto", "tata")
 
MaChaine = "toto"
MsgBox IsInArray(MaChaine, TabVal)
 
MaChaine = "toutou"
MsgBox IsInArray(MaChaine, TabVal)
End Sub

[Guigsounet]

Merci je regarde ça
Le tableau est composé d'une colonne

Code :

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

1
2
3
4
5
6
Asset ID
V1 
V2
V4
V6
V7

Mon code ressemble à ça

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
For i = 1 To 15
 
If Cells(1, i).Value = "Asset ID" Then
    Exit For
End If
Next i
 
For j = 850 To 2 Step -1
    Select Case Cells(j, i).Value
        Case "V1", "V2", "V4", "V6", "V7"
        Case Else
    'Suppression 
            Rows(j).EntireRow.Delete
    End Select
Next

[joe.levrai]

j'ai du mal à suivre la mécanique en lisant ton code

1) tu cherches la colonnes qui contient tes Asset ID : ok, bien que ce soit pas la façon la plus optimisée
2) ensuite, tu boucles sur les lignes de la même feuille et cherche à supprimer celles qui ne contiennent pas une valeur Asset ID dans la colonne des Asset ID

le point 2 m'interroge : si tu charges l'ensemble de tes Asset ID présents sur cette feuille, alors du coup aucune ligne ne va se supprimer ?
il doit nous manquer une explication


admettons que tu as 250 Asset ID possibles (V1 à V250), en fait tu voudrais supprimer les lignes ne contenant pas une liste plus restreintes d'asset id (par exemple : de V12 à V45 et V142) ?