Discussion :

[nsqualli]

Bonjour,

j'ai la chaine de caractere "janvier 2009", je veux faire le teste suivant: si je trouve la chaine "janvier " seulement, comment je peux faire pour qu'il ne prend pas en consideration les 4 dernier caracteres avec VBA? genre "janvier ????"

merci

[drakkar_agfa]

Bonjour,

tu peux utiliser l'opérateur "like"

Code :

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

MyCheck = "aBBBa" Like "a*a"    ' Renvoie True.

Mais dans notre cas, on utilisera

Code :

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

MyCheck = VariableAVerifier Like "Janvier ####"    ' Renvoie True.

"janvier *" peut fonctionner mais vérifie peut importe ce qu'il a après ("Janvier af3g4hgaehdehdfh") serait True
Alors utilise #### Pour vérifier qu'il a 4 positions numériques.

Et dans l'aide de like

?Tout caractère unique.*Aucun ou plusieurs caractères.#Tout chiffre unique (de 0 à 9).[charlist]Tout caractère unique compris dans l'argument charlist.[!charlist]Tout caractère unique non compris dans l'argument charlist.

J'espère que ceci fera l'affaire!

[nsqualli]

j'ai fais ceci:

Code :

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

1
2
3
Case "Janvier ####"
                    DebJanvier1 = LigP
                    'MsgBox (DebJanvier1)

mais ça marche pas

[Daranc]

la chaîne de caractères ? dans une cellule? si tu entres en c3 janvier 2009 Excel va te retourner un nombre ou "01/01/2009"
faire la différence entre ce qu'Excel affiche et ce qu'il calcule

Code :

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

1
2
3
4
5
6
7
Sub chainage()
p$ = Str(Range("c3").Value)
' retour  "01/01/2009"
If Mid(p$, 4, 2) = "01" Then
'le topo
End If
End Sub

[nsqualli]

beinn moi je connais pas dans quelle cellule se trouve cette chaine, donc je dois faire un parcour de toute la feuille.

[drakkar_agfa]

Est-ce que tu dois trouver où se trouve ce "Janvier ...."
si oui, un For Each avec condition like "Janvier ####"

[nsqualli]

oui c ça .
bon je vais l'ssayer demain, car là je suis pas au boulot

[drakkar_agfa]

Voici comment trouver ta cellule :

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
Sub Chercher()
    Dim c As Range
    Dim sh As Worksheet
    Dim cell
 
    Set sh = ActiveSheet
 
    For Each cell In sh.Cells
 
        If cell.Value Like "Janvier ####" Then
            Set c = cell
            Exit For
        End If
 
    Next cell
 
    If Not c Is Nothing Then
        MsgBox c.Address
    Else
        MsgBox "Pas trouvé"
    End If
 
End Sub

[nsqualli]

oui mais ça , ne va pas me retourner le numero de la ligne.
moi je dois recuperer le numero de la ligne ou se trouve la chaine.

[James007]

oui mais ça ne va pas me retourner le numero de la ligne.
moi je dois recuperer le numero de la ligne ou se trouve la chaine.

Si ... bien sûr ... tu n'as pas testé le code ... car la ligne

Code :

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

MsgBox c.Address

te donnera la cellule (colonne et ligne)
A +

[nsqualli]

ça me donne une erreur d'incompatibilité de type '13' dans la ligne suivante:

Code :

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

If cell.Value Like "Janvier ####" Then

[nsqualli]

C'est bon, j'ai trouvé la solution grace a votre aide, j'ai fais cela et ça marche tres bien:

Code :

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

1
2
3
4
5
Case Else
                    If .Range("G" & LigP).Value Like "Janvier ####" Then
                        DebJanvier1 = LigP
                        MsgBox (DebJanvier1)
                    End If

Merci a tout le monde