Recherche auto

[romainchu78]

Bonjour a tout le forum,

J'ai quelques lignes de codes. elle permettent de balayer la colonne
A en commencant par la fin. il check sur chacun des 3 premiers caractere des donnees pour voir si elle commence par F9X. si elle sont different alors il affiche un message.

Sub Macro3()
Dim n As Long
For n = Range("A65536").End(xlUp).Row To 1 Step -1
If Left(Trim(Range("A" & n)), 3) <> "F9X" Then
MsgBox "issue in row " & n
End If
Next n
End Sub

mon probleme est que je n'ai pas seulement F9X je veux aussi controler les donnees commencant par F2X, F7X et FNX.
comment puis incorporer ces mots cle dans la boucle if?
j'ai essaye de le faire de la maniere suivante en vain.

Sub Macro3()
Dim n As Long
For n = Range("A65536").End(xlUp).Row To 1 Step -1
If Left(Trim(Range("A" & n)), 3) <> "F9X" Or Left(Trim(Range("A" & n)), 3) <> "F7X" Or Left(Trim(Range("A" & n)), 3) <> "F2X" Or Left(Trim(Range("A" & n)), 3) <> "FNX" Then
MsgBox "issue in row " & n
End If
Next n
End Sub
merci

 

[ninbihan]

Re : Recherche auto

Bonsoir le forum et romain,

Sans avoir testé, tu peux essayer cela

Sub Macro3()
Dim n As Long
For n = Range("A65536").End(xlUp).Row To 1 Step -1
If Left(Trim(Range("A" & n)), 3) = "F9X" Or Left(Trim(Range("A" & n)), 3) ="F7X" Or Left(Trim(Range("A" & n)), 3)= "F2X" Or Left(Trim(Range("A" & n)), 3) ="FNX" Then
exit sub
Else
MsgBox "issue in row " & n
End If
Next n
End Sub

Bonne soirée,

Ninbihan

 

[romainchu78]

Re : Recherche auto

ca marche
merci

 

[Staple1600]

Re : Recherche auto

Bonsoir


Tu peux aussi essayer d'utiliser Like

If Range("A" & n) Like "F?X*" Then

 

[romainchu78]

Re : Recherche auto

Ok, maintenant je voudrais detecter si presence du carctere # en debut de donnees pour chacune des cases.
j'ai un debut de code comme cela:

Sub Macro2bis()
Application.ScreenUpdating = False
Dim rngCell As Range
For Each rngCell In ActiveSheet.UsedRange
If premiere caractere commence par # Then
cellule concernee = ""
End If
Next
Application.ScreenUpdating = True
End Sub

sachant que cette structure de code est en generale tres performante car je peux avoir des listes de plus de 9000 lignes sur 6 colonnes.

 

[gbinforme]

Re : Recherche auto

bonsoir

Avec "select case" cela fonctionne aussi :

For n = Range("A65536").End(xlUp).Row To 1 Step -1
Select Case Left(Trim(Range("A" & n)), 3)
Case "F9X", "F7X", "F2X", "FNX", "ABC", "..."
Case Else
MsgBox "issue in row " & n
End Select
Next n


N'importe quel code peut être rajouté sans problème.

idem pour "#"

For Each rngCell In ActiveSheet.UsedRange
Select Case Left(rngCell ), 1)
Case "#"
rngCell =""
Case Else
End Select

Next

 

[romainchu78]

Re : Recherche auto

jai essaye ca et jai un message d'errreur sur la ligne select case...

Sub macro3()
For Each rngCell In ActiveSheet.UsedRange
Select Case Left((rngCell), 1)
Case "#"
rngCell = ""
Case Else
End Select
Next
End Sub

 

[gbinforme]

Re : Recherche auto

bonsoir

remplace cette ligne : rngCell.Value = ""

pour l'erreur c'est quel code car cela fonctionne sur mon poste ?

 

[romainchu78]

Re : Recherche auto

C'est ce code la qui coince

Sub macro3()
For Each rngCell In ActiveSheet.UsedRange
Select Case Left((rngCell), 1)
Case "#"
rngCell = ""
Case Else
End Select
Next
End Sub

 

[gbinforme]

Re : Recherche auto

C'est ce code la qui coince

c'est grippé ?

cela donne quoi ?

à part la ligne que je t'ai donnée pour changer, je ne vois pas ...

 

[romainchu78]

Re : Recherche auto

j'ai le message d'ereur suivant:
Run time error 13.
type dismatch.

si je met le curseur sur la variable rngcell je voie marque: error 2029

merci pour ton aide

 

[romainchu78]

Re : Recherche auto

J'ai tout essaye je ne trouve pas la solution. c'est comme ci la syntaxe "For Each rngCell In ActiveSheet.UsedRange" n'est pas compatible avec "If Left(Trim(rngCell), 1) = "#" Then".

 

[gbinforme]

Re : Recherche auto

bonsoir,

si le "select" ne fonctionne pas chez toi, fait plus simple :

Sub macro3()
For Each rngCell In ActiveSheet.UsedRange
if Left(rngCell.value, 1) = "#" then rngCell.value = ""
Next
End Sub

Ceci devrait te débarrasser des "#".

 

[romainchu78]

Re : Recherche auto

merci ca marche maintenant