prog vba a creer

[zumye]

bonjour le forum

si quelqu'un a envie d'ecrire un petit programme voila les consignes

dans un tableau la premiere ligne (ex a1:g1) comporte par cellule une lettre ou pas de lettre (ex a1= R b1= B c1= J d1 = "" e1 = "" f1 ="" g1="")

cette premiere ligne est ma ligne de reférence c'est a dire que dans le tableau (ex a1:g & findeligne) chaque lettre unique par cellule qui on été utilisée doit etre present dans la ligne 1.
ex b2=R donc c'est ok
ex c3= T message d'erreur "cette lettre n'est pas dans la ligne 1 "

merci

 

[Staple1600]

Re : prog vba a creer

Bonjour


Voici une proposition pour commencer

Je te laisse le soin de continuer ou d'adapter

[font=Courier New][color=darkblue]Sub[/color] test_M()
[color=darkblue]Dim[/color] c [color=darkblue]As[/color] [color=darkblue]Integer[/color]
[color=darkblue]Dim[/color] r [color=darkblue]As[/color] Range
[color=darkblue]Set[/color] r = Range("a1:g1")
[color=darkblue]Dim[/color] i%, s$, check%
c = r.Columns.Count
[color=darkblue]For[/color] i = 1 [color=darkblue]To[/color] c
s = s & r(i)
[color=darkblue]Next[/color]
check = InStr(s, ActiveCell.Text)
[color=darkblue]If[/color] [color=darkblue]Not[/color] check > 0 [color=darkblue]Then[/color]
MsgBox "La lettre " _
    & ActiveCell & _
    " n'est pas dans la ligne 1.", _
    vbCritical, "ERREUR"
[color=darkblue]Else[/color]
MsgBox "La lettre " _
    & ActiveCell & _
    " est dans la ligne 1.", vbInformation, "SAISIE VALIDE"
[color=darkblue]End[/color] [color=darkblue]If[/color]
End [color=darkblue]Sub[/color][/font]