B
B.phil
Guest
.find -> matchcase:=true ??
Bonjour le forum...
j'ai un petit soucis avec le .find je colles le code avec pour plus de "clarté"
Le but de cette petite macro est de me renvoyé le numero de ligne des magasin
j'ai dans la feuille "temp" un tableau croisé qui me renvois le noms des magasins, j'ai fait un tableau de variable sur ce TCD, donc je recupere chaque nom, ensuite avec ce tableau de variables, je fais une recherche dans une autre feuille... tout ca marche tres bien a part un petit "detail" j'ai par example un magasin qui s'appele "Milan via Torino" et un autre "Torino"
dans la colonne 4 de la feuille "entités", le probleme est que le .find me renvois le meme numero de ligne pour les deux, celui de "Milan via Torino", je pensais qu'avec un matchcase il ferais la difference entre les deux noms mais ca fonctionne pas quand meme... il me renvois la ligne de Milan vu qu'il contient aussi Torino...
MatchCase Argument de type Variant facultatif. Affectez-lui la valeur True pour que la recherche respecte la casse. La valeur par défaut est False.
humm pourtant c censé etre ca fonction ^^
Private Sub NumLignes()
Dim FindDa As Range
Dim DepTabNbLigne As Range
Dim DepTcdDa As Range
Dim TcdDa(1 To 100) As Variant
Set DepTcdDa = Worksheets("temp").Range("G15")
Set DepTabNbLigne = Worksheets("temp").Range("I14")
Range("TabNumRow").Clear
For x = 1 To 100 ' incrementation de mon tablo de variables
TcdDa(x) = DepTcdDa(x)
Next x
With Worksheets("ENTITES").Columns(4)
For y = 1 To 100
Set FindDa = .find(What:=TcdDa(y), LookIn:=xlValues, MatchCase:=True)
If Not FindDa = "" Then
ligne = FindDa.Row
DepTabNbLigne.Offset(y) = ligne
Set FindDa = .FindNext(FindDa)
End If
Next y
End With
End Sub
Merci d'avance pour vos réponses
Bonjour le forum...
j'ai un petit soucis avec le .find je colles le code avec pour plus de "clarté"
Le but de cette petite macro est de me renvoyé le numero de ligne des magasin
j'ai dans la feuille "temp" un tableau croisé qui me renvois le noms des magasins, j'ai fait un tableau de variable sur ce TCD, donc je recupere chaque nom, ensuite avec ce tableau de variables, je fais une recherche dans une autre feuille... tout ca marche tres bien a part un petit "detail" j'ai par example un magasin qui s'appele "Milan via Torino" et un autre "Torino"
dans la colonne 4 de la feuille "entités", le probleme est que le .find me renvois le meme numero de ligne pour les deux, celui de "Milan via Torino", je pensais qu'avec un matchcase il ferais la difference entre les deux noms mais ca fonctionne pas quand meme... il me renvois la ligne de Milan vu qu'il contient aussi Torino...
MatchCase Argument de type Variant facultatif. Affectez-lui la valeur True pour que la recherche respecte la casse. La valeur par défaut est False.
humm pourtant c censé etre ca fonction ^^
Private Sub NumLignes()
Dim FindDa As Range
Dim DepTabNbLigne As Range
Dim DepTcdDa As Range
Dim TcdDa(1 To 100) As Variant
Set DepTcdDa = Worksheets("temp").Range("G15")
Set DepTabNbLigne = Worksheets("temp").Range("I14")
Range("TabNumRow").Clear
For x = 1 To 100 ' incrementation de mon tablo de variables
TcdDa(x) = DepTcdDa(x)
Next x
With Worksheets("ENTITES").Columns(4)
For y = 1 To 100
Set FindDa = .find(What:=TcdDa(y), LookIn:=xlValues, MatchCase:=True)
If Not FindDa = "" Then
ligne = FindDa.Row
DepTabNbLigne.Offset(y) = ligne
Set FindDa = .FindNext(FindDa)
End If
Next y
End With
End Sub
Merci d'avance pour vos réponses
