Discussion :

[F4NM4gic]

Bonjour à tous et à toutes (c'est mon premier message)

Actuellement débutant en VBA j'essaie de faire une boucle qui détecte une chaîne de caractère et revoie une autre chaîne de caractère en réponse. Je préfère utilise VBA car la formule excel serait trop longue et illisible.

le problème est que ça marche quand il trouve bien le texte mais quand la formule devrait renvoyer #valeur la formule bug et je ne trouve pas de solution.
j'aimerai aussi ajouté un Or pour mettre plusieurs chaines de caractère (j'en ai beaucoup au moins 15)

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
Sub soumis_or_not_soumis()
 
Dim i As Integer
 
X = WorksheetFunction.CountA(Columns(4))
 
MsgBox X
 
For i = 2 To X
 
If WorksheetFunction.Find("text", Cells(i, 4)) Then
    Cells(i, 8) = "soumis"
Else
 
    Cells(i, 8) = "non soumis"
 
End If
 
Next i

Merci d'avance

[jerome.vaussenat]

Salut,

Pour info (mais c'est normal, c'est ton premier poste ...) quand tu mets du code, il y a une balise spécifique en haut. C'est le #.
C'est plus lisible (comme en dessous).

Voici une proposition de code

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
Sub soumis_or_not_soumis()
 
    Dim i As Integer
 
    X = WorksheetFunction.CountA(Columns(4))
 
 
    For i = 2 To X
 
        If Cells(i, 4) = "text1" Or Cells(i, 4) = "text2" Then
            Cells(i, 8) = "soumis"
        Else
            Cells(i, 8) = "non soumis"
        End If
 
    Next i
End Sub

Et pour la lisibilité de ton code, pense à décaler suivant les structures (If, For, ...)

En espérant que c'est ce que tu veux.

GG

[F4NM4gic]

merci pour ta réponse malheureusement ce n'est pas ce que je cherche :/

je cherche à faire une reconnaissance partiel de texte et non pas la totalité de la case. c'est pourquoi j'utilise la fonction Find.

Cdt,

[Philippe Tulliez]

Bonjour,

e cherche à faire une reconnaissance partiel de texte et non pas la totalité de la case. c'est pourquoi j'utilise la fonction Find.

Pourquoi ne pas utiliser la méthode Find de l'objet Range qui permet la recherche partielle et évite de parcourir toutes les lignes de la liste de données

[F4NM4gic]

Bonjour,

Pourquoi ne pas utiliser la méthode Find de l'objet Range qui permet la recherche partielle et évite de parcourir toutes les lignes de la liste de données

bonjour vous auriez un exemple de code ?

[PrinceCorwin]

Bonjour,

Pourquoi pas la fonction Instr(1,cells(i,4), "Text") ?
si =0 ou null, alors la chaîne n'a pas été trouvée, sinon donne la position de départ.

Bon Dév'

[Philippe Tulliez]

Bonjour,

Je préfère utilise VBA car la formule excel serait trop longue et illisible

Et l'utilisation de la fonction CHERCHE ou TROUVE (la seconde est sensible à la casse, l'autre pas), imbriquée dans un ESTERR, lui même imbriqué dans un SI ?

Code :

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

=SI(ESTERR(CHERCHE("text";[@[Libellé 4]]));"Non soumis";"Soumis")

[F4NM4gic]

malheuresement cela ne repond pas à la question de l'utilisation du Ou :/

j'ai vu que dans certains language de code il y a la méthode try catch mais il n'existe rien de comparable.

[Patrice740]

Bonjour,

Peut-être quelque chose comme :

Code VBA :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub soumis_or_not_soumis()
Dim i As Integer
 
  X = WorksheetFunction.CountA(Columns(4))
  For i = 2 To X
     Select Case Cells(i, 4).Value
       Case "text0" To "text9", "textA" To "textZ"  ' etc...
         Cells(i, 8) = "soumis"
       Case Else
         Cells(i, 8) = "non soumis"
       End If
     End Select
  Next i
End Sub