Discussion :

[sebeni]

Bonjour,

Je souhaite trouver la première cellule qui contient 08:
Pour cela je fais:

Code :

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

1
2
3
While Worksheets("Buffer").Range("C" & deb).Value <> "08:*"
               deb = deb + 1
Wend

En pensant que * était un carcartère générique.
Comment puis je faire.
Merci

[ouskel'n'or]

Code :

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

1
2
3
4
deb = 1
While instr(Worksheets("Buffer").Range("C" & deb).Value, "08:") = 0
               deb = deb + 1
Wend

Tu peux aussi utiliser Find -> F1

[srame]

Hello,

J'avais fais ça un coup. Si ça peut t'être utile !
Dans ValeurCherche tu y met ce que tu veux chercher.

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
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub ChercheValeur()
Dim Lign As Long, Coll As Long, Ajout As Byte, ValeurCherche As Variant
Dim RP As Long, I As Long, cl As Variant, CellDeRecherche As Variant
 
ValeurCherche = "*VAR*" ' VALEUR A CHERCHER
CellDeRecherche = "A1:C100" ' PLAGE DE RECHERCHE
 
Lign = 0 ' INITIALISE - LIGNE A TRAITER(SOIT LA LIGNE VARIABLE OU BIEN LA DERNIERE LIGNE UTILISE)
Coll = 0 ' INITIALISE - JUSTE POUR INFO, COLONNE A TRAITER
Ajout = 0 ' INITIALISE - AJOUT A LIGN SI PAS DE LIGNE VARIABLES
 
    For Each cl In ActiveSheet.Range(CellDeRecherche)
        If UCase(cl) Like ValeurCherche Then
            Lign = cl.Row
            Coll = cl.Column
            GoTo Suite
        End If
    Next cl
Suite:
    RP = Lign
        If Lign = 0 Then ' PAS TROUVE DE VALEUR ALORS RECHERCHE DEPUIS LA FIN LA DERNIERE LIGNE CONTENANT UN CARACTERE
            For I = 1 To 256
                If Lign < Cells(65536, I).End(xlUp).Row Then
                    Lign = Cells(65536, I).End(xlUp).Row
                    Coll = Cells(65536, I).Column
                End If
            Next I
            Ajout = 4
            RP = (Lign + Ajout)
        End If
 
        MsgBox ("VALEUR UTILE (RP) : " & RP & Chr(10) & "LIGNE TROUVE (Lign) : " & Lign _
        & Chr(10) & "COLONNE TROUVE (Coll) : " & Coll & Chr(10) & "VOICI LA VALEUR : " & cl)
End Sub

[sebeni]

Code :

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

1
2
3
4
deb = 1
While instr(Worksheets("Buffer").Range("C" & deb).Value, "08:") = 0
               deb = deb + 1
Wend

Tu peux aussi utiliser Find -> F1

ça marche pô

[SilkyRoad]

bonjour

Tu peux utiliser:

Code :

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

1
2
3
4
5
6
7
Dim v As Integer
 
On Error Resume Next
v = Application.Match("08:*", Worksheets("Feuil1").Columns("C"), 0)
On Error GoTo 0
 
If v <> 0 Then MsgBox "Trouvé ligne: " & v

michel

[sebeni]

bonjour

Tu peux utiliser:

Code :

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

1
2
3
4
5
6
7
Dim v As Integer
 
On Error Resume Next
v = Application.Match("08:*", Worksheets("Feuil1").Columns("C"), 0)
On Error GoTo 0
 
If v <> 0 Then MsgBox "Trouvé ligne: " & v

michel

Je ne comprend pas ce que c'est censé faire. En plus je ne parvient pas a avoir l'aide (F1) sur Match. Je l'ai lancé mais ça m'a rien fait je vais le mettre dans une boucle while pour voir.

[SilkyRoad]

Rebonjour

Je ne comprend pas ce que c'est censé faire.

ça fait ce que tu as demandé:

trouver la première cellule qui contient 08:

La procédure cherche la chaîne de caractères 08: dans la colonne C de la feuille nommée "Feuil1".


Application.Match correspond à la formule EQUIV lorsque tu utilises des fonctions de la feuille de calcul.
EQUIV(valeur_cherchée;matrice_recherche;type)
soit:
Application.Match("08:*", Worksheets("Feuil1").Columns("C"), 0)



michel