Discussion :

[freyliss]

Bonjour,

Voilà, j'ai un ptit souci, je cherche dans un tableau par exemple toutes les valeurs commençant par 12 par exemple si j'ai 1245, 12688, je dois pouvoir les récupérér puisque le nombre 12 est devant.Ici c'est un exemple et dans ma macro je ne sais pas le nombre de caractère que j'aurai donc je ne peux pas utilisé la fonction left.

Comment faire une macro en vba qui se traduirait par je recherche toutes les valeurs commençants par.

Voilà, j'espère avoir été clair.
Merci d'avance pour vos réponses.

[Azounet1529]

Si tu ne peux pas utiliser left comment sais-tu quand s'arrête le "début" de mot??? Tu peux peut-être utiliser like mais ça me paraît peu prudent ...
Essaie d'expliciter un peu plus ton problème !!

Az

[Gamal le Celte]

En premier tu teste la longueur de ta donnée avec Len()
Puis : Si ta valeur et supperieur à 2 alors tu controle avac Left() sinon tu passe à la suite.

[freyliss]

j'ai trouvé une solution mais le problème cela ne s'arrête qu'à la première valeur trouvée correspondante j'aimeari pouvoir trouver toutes les valeurs correspondantes dans ma colonne E.

voici mon code

Code :

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

1
2
3
4
5
6
7
8
 
Dim Result As Range
Dim Cellule As Variant
Param = "12"
With ActiveWorkbook.Sheets("New ETV")
    Set Result = Range("E:E").Find(What:=Param)
    Cellule = Range(Result.Address).Row
End With

[freyliss]

J'ai finalement trouvé la réponse par moi même.
Merci à tous ceux qui m'ont répondu.
Je mets le code il pourra peut-être un jour servir à quelqu'un

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
20
21
 
Dim Result As Range
Dim Cellule As Variant
 
'Trouver la première celllue correspondante
Param = "12"
With ActiveWorkbook.Sheets("New ETV")
    Set Result = Range("E:E").Find(What:=Param)
    Cellule = Result.Value
    'MsgBox Cellule
End With
 
'Trouver les cellules correspondantes suivantes
     If Not Result Is Nothing Then
        firstAddress = Result.Address
        Do
            MsgBox Cellule
            Set Result = Range("E:E").FindNext(Result)
            Cellule = Result.Value
        Loop While Not Result Is Nothing And Result.Address <> firstAddress
    End If

[sash6]

Bonjour freyliss,

Ton code m'intéresse! Par contre j'ai 2 questions au niveau définition:

1. Param tu le définis en tant que string ou numérique?
2. firstAddress c'est quoi? du range? mais là ce ne marche pas.

alex

[freyliss]

oups j'ai oublié une partie du code !!!

alors param dans mon cas en tant que numérique je viens de tester en tant que string et cela fonctionne.

et firstAddress en tant que variant.

voilà alex
bonne fin de journée