Formule TEXTE sous VBA

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:

---

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:

---

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

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.

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...

Re je comprend,
il faut remplacer ceci:

Code:

---

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

---

par:

Code:

---

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:

---

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 . :aie:

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