affichage vrai/faux selon conditions

[ben]

Bonjour le forum

Je cherche en VB à afficher dans une colonne la valeur vrai ou faut suivant certaine conditions
Par exemple :

Colonne A : colonne B : colonne C:

A- A Vrai
B C Faux
D- D Vrai
A A Faux

Je cherche donc a afficher vrai qd le 1er caractère de la colonne A suivi de "-" et qd le 1er caractère de la colonne B et égale au premier de la colonne A

Merci pour votre aide

 

[Cous]

dim tempA as string
dim tempB as string
dimi i as integer
dim debutligne as integer
dim finligne as integer

for i = debtuligne to finligne
tempA = worksheet(1).cells(i,1)
tempB = worksheet(1).cells(i,2)
if (mid(tempA,1,1) = mid(tempB,1,1)) and (mid(tempA,2,1) = "-" then
worksheet(1).cells(i,3) = "vrai"
else
worksheet(1).cells(i,3) = "faux"
end if
next i

 

[ben]

salut merci pour ta réponse

Mais il y a un petit souci, j'avais trouver quasiment la meme solution mais il y a un souci avec le "-"
apparament qd on utilise Mid(mystring, 1, 1), il ressort qd meme "A-" au lieu de "A"

Sait tu de quoi sa vient ?