Discussion :

[Runsh63]

Bonjour,

J'ai besoin de ne conserver que certaines lignes en fonction du premier caractère de la valeur des cellules d'une feuille de données. Si le nombre de caractères est inférieur à 6, cela signifie que le(s) caractère(s) manquant(s) pour arriver à 6 sont un (des) 0, placé(s) en début de chaîne. Par exemple, si j'ai 123456, pas de problème, si j'ai 1234, cela signifie que la "bonne" valeur est 001234. Je souhaite donc passer par l'équivalent de la formule TEXTE afin d'avoir tous mes comptes au même format. Ci-dessous le code que j'ai écrit. L'embêtant c'est que lors de l'exécution de la macro, celle-ci ne se lance pas car Excel me dit "Sub or Function not defined" en me surlignant "Text". Que faut-il écrire pour arriver au résultat voulu ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Test()
 
    With Sheets("Compile BS")
            Dim LR As Integer, Account As Range, AccClass As String
            LR = .Cells(.Rows.Count, 1).End(xlUp).Row
            For Each Account In .Range("A2:A" & LR)
            AccClass = Left(Text(Account.Value, "000000"), 1)
            If AccClass = "4" Or AccClass = "7" Then Rows(Account).Delete
            Next Account
    End With
End Sub

Je vous remercie par avance pour votre aide !

Runsh

J'ai remplacé la définition de mon AccClass par :

Code :

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

AccClass = Left(Format(Account.Value, "000000"), 1)

et ça ne me bloque plus. Mon problème maintenant c'est que je n'ai aucune ligne qui a été supprimée alors qu'il devrait y en avoir justement. Pouvez-vous m'expliquer pourquoi ma boucle ne fonctionne pas ?
Merci d'avance !

Cordialement,

Runsh

[rvtoulon]

bonjour,
ton probleme vient du fait que tu formates le contenu de la cellule comme suit "000000" donc si dans la cellule il y a 1234 lui il considére qu'il y a "001234".
La fonction LEFT comme tu l'as écrite recherche le premier caractère en partant de la gauche, donc dans l'exemple "=0".
Dans ta condition tu effaces la ligne si c égale à 4 ou 7. Donc comme c'est égale à 0 il efface rien.

Voila ce que j'ai compris.

[Runsh63]

Bonjour rvtoulon.,

Je te donne un exemple de numéros de compte que j'ai dans ma liste : 70401, 401330, 100201, 763101. Le 70401 est donc bien 070401 et ne doit pas être suprimé. Par contre le 401330 ainsi que 763101 devrait être supprimé mais ce n'est pas le cas. Pourtant j'ai l'impression d'avoir fait quelque chose de correct...

[rvtoulon]

Re je comprend,
il faut remplacer ceci:

Code :

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

If AccClass = "4" Or AccClass = "7" Then Rows(Account).Delete

par:

Code :

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

If AccClass = "4" Or AccClass = "7" Then Rows(Account.Row).Delete

Mais ceci va te causer un autre probleme car lorsque tu auras supprimé la ligne celle du dessous va monter et la boucle for each va aller à la ligne suivante du coup tu ne vas pas analyser toutes les lignes.

Pour éviter cela, il faut faire une boucle ex: for i=10 to 2 step -1. Tu pars de la dernière ligne pour remonter vers la première.

ça donnerais ceci à peu près :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Test()
Dim LR As Integer, Account As Range, AccClass As String
 With Sheets("Compile BS")
    LR = .Cells(.Rows.Count, 1).End(xlUp).Row
 
      For i = LR To 2 Step -1
         AccClass = Left(Format(.Range("A" & i).Value, "000000"), 1)
           If AccClass = "4" Or AccClass = "7" Then Rows(i).Delete
      Next i
End With
End Sub

EDIT: petite erreur corrigée, j'ai remplacé "next account" par "next i" c'est mieux .

[Runsh63]

Merci beaucoup pour ton aide, c'est parfait !
Pour le coup du For... To, j'aurai pu éviter, je connais ce genre de trucs. En tout cas merci, car j'aurai quand même cherché un moment !!
Bonne journée !

Runsh