[VBA] comparaison de chaine de caractere et moyenne.

[hkn.mehdi]

Bonjours à tous et à toutes,
je vous expose mon probleme :
Dans une colonne je possedes une chaine de caractere et dans la colonne adjacente des valeurs numeriques.
Certaines chaines de caractere de ma colonne A sont quasi-identiques ( seul le prefixe change separé du reste par un underscore ) mais possedent des valeurs numeriques differentes.
Ce que je souhaiterai faire c'est a l'aide d'une macro codé en VBA rechercher toute les chaines de caracteres identique ( sauf prefixe ) et faire la moyenne de leur valeurs numeriques pour ensuite collé ca dans la colonne C par exemple.
Pour la comparaison il n'y a normalement pas de probleme mais malheureusement pour tout le reste je bloque.
Voici l'ebauche de mon code :

sub moyenne ()

nbevent = Sheets("resume deroulement").UsedRange.Rows.Count
Sheets("resume deroulement").Activate
For y = 2 To nbevent

pos = InStr(1, Cells(y, 1).value, "_", vbTextCompare)
nbcar = Len(Cells(y, 1).value)
oldtxt = Cells(y, 1).value
newtxt = Right(oldtxt, nbcar - pos)

For x = 2 To nbevent
Dim Tabl(100) As Integer

If Cells(x, 1).value Like newtxt Then
For i = 0 To nbevent
Tabl(i) = Cells(x, 2).value
Next i
End If
K = average(Tabl(i))
MsgBox K
Next x
Next y

End Sub


Merci d'avance pour votre aide !
Cordialement
Mehdi .

 

[hkn.mehdi]

Re : [VBA] comparaison de chaine de caractere et moyenne.

A partir du if j'ai bien conscience que j'ai un peu fais n'importe quoi. Ca montre peu pret a quel point je suis perdu .

 

[Pierrot93]

Re : [VBA] comparaison de chaine de caractere et moyenne.

Bonjour,

peut être nous donner un bout de fichier permettant de voir le modèle de donnée à traiter, plus facile pour t'aider...

bon après midi
@+