Condition si chaîne de caractère

Version imprimable

08/01/2017, 23h32
kikoox

Condition si chaîne de caractère
Bonjour,

Je cherche à identifier si dans les formules d'une plage de cellule il existe un caractère spécifique.
Si vrai, il doit ensuite vérifier dans les cellules qu'il vient d’identifier comme vrai qu'il n'existe pas d'autres caractères spécifiques.

C'est un if imbriqué avec la formule ET je crois.

Exemple :
Code:

1 2 For I = 1 To PlageDeCellule.Cells.Count If InStr(1, PlageDeCellule(I).FormulaR1C1, "=", vbTextCompare) > 0 Then
Traduction la phrase :
'si dans cette cellule vrai il n'y a pas la liste de caractère suivant : de "+" et "-" et ";" Then

Un grand merci pour votre aide car je crois que ce n'est pas simple.
09/01/2017, 09h59
eriiic

Bonjour,

Fait 3 recherches :

Code:

If (InStr(1, PlageDeCellule(I).FormulaR1C1, "+", vbTextCompare) + InStr(1, PlageDeCellule(I).FormulaR1C1, "-", vbTextCompare) + InStr(1, PlageDeCellule(I).FormulaR1C1, ";", vbTextCompare)) = 0 then

eric

Bonjour,

à voir à quoi cela sert ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub VerifFormule()
Dim oCell As Range
Dim PlageSource As Range
Set PlageSource = Range("I2:I8")
For Each oCell In PlageSource
  If VBA.InStr(1, oCell.Formula, "=") > 0 And VBA.InStr(1, oCell.Formula, "+") = 0 And _
    VBA.InStr(1, oCell.Formula, "-") = 0 And VBA.InStr(1, oCell.Formula, ";") = 0 Then
 
    MsgBox "la cellule " & oCell.Address & " repond aux critères"
  End If
Next
End Sub

11/01/2017, 10h35
EBRAG

Bonjour Kikoox !

Remplacer, dans le code FormulaR1C1 par Formula… cela devrait aller mieux !

FormulaR1C1 présente les formules sous la forme =R[C-2] par exemple, pour aller chercher une cellule située à gauche, et présente donc un signe "-" dans la chaîne de caractères de la formule et est donc exclue par le test effectué !

Bonjour,

J'utiliserais plutôt une fonction qui compte les caractères :

Code:

1
2
3
4
5
6
7
Function CompterCaracteres(ByVal c As String, chaine As String) As Long
    CompterCaracteres = Len(chaine) - Len(Replace(chaine, c, ""))
End Function
 
Sub test()
    MsgBox CompterCaracteres("+", "1+2+3+4+5")
End Sub

Cette fonction peut être améliorer pour compter plusieurs caractères différents :

Code:

1
2
3
4
5
6
7
8
9
10
11
Function CompterCaracteres(ByVal chaine As String, ParamArray Caracteres()) As Long
    Dim i&, temp$: temp = chaine
    For i = 0 To UBound(Caracteres)
        temp = Replace(temp, Caracteres(i), "")
    Next i
    CompterCaracteres = Len(chaine) - Len(temp)
End Function
 
Sub test()
    MsgBox CompterCaracteres("1+2+3+4-5", "+", "-")
End Sub

11/01/2017, 11h21
unparia

Bonjour

Je ne suis pas certain d'avoir tout bien compris.
Il me semble pourtant que l'utilisation toute bête de l'opérateur Like est ce qui convient. ;)
En rappelant qu'une formule n'est qu'une chaîne de caractères.
11/01/2017, 11h22
EBRAG

Bonjour Antony !

Pourquoi perdre du temps à compter les caractères "x" quand la présence d'un seul "x" suffit à réagir !

Ce que j'en dis n'est là que pour le débat !
11/01/2017, 11h29
antonysansh

Car le message initial n'est pas clair.

Je cherche un caractère et si il y en je cherche a nouveau un caractère (il peut s'agir du même).

Ma proposition est donc plus global et plus facile à mettre en œuvre dans le code.
Enfin à mon gout.