Discussion :

[kikoox]

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 :

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

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.

[eriiic]

Bonjour,

Fait 3 recherches :

Code :

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

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

eric

[EBRAG]

Bonjour,

à voir à quoi cela sert ?

Code :

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

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

[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é !

[antonysansh]

Bonjour,

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

Code :

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

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 :

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

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

[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.

[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 !

[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.