contenu dune cellule copie

[BIL boud]

BONJOUR

a laide de BOISGONTIER et de djidji59430 j'ai mis une formule qui met le nom qui est majuscule au debut de la cellule




=SI(ESTVIDE(Feuil1!A2);"";SI(CODE(STXT(Feuil1!A2;2;1))>=97;STXT(Feuil1!A2;EQUIV(VRAI;EXACT(STXT(Feuil1!A2;LIGNE($1:$254);3);MAJUSCULE(STXT(Feuil1!A2;LIGNE($1:$254);3)));0)+1;999)&" "&GAUCHE(Feuil1!A2;EQUIV(VRAI;EXACT(STXT(Feuil1!A2;LIGNE($1:$254);3);MAJUSCULE(STXT(Feuil1!A2;LIGNE($1:$254);3)));0));Feuil1!A2))

le probleme c'est que quand je veux comparer le contenu de mes cellules, le code compare toujours par raport a la cellule original alors que moi je veux comparer le resulat de cette formule

exemple

dans la feuil1 cellule A 1 = Jerimi VALENTIN
dans la feuil2 cellule A1 j'introduit la formle et ca me donne ce que je veux =VALENTIN Jerimi

dans la cellule C24 = VALENTIN Jerimi
dans la feuil2 cellule C24 j'introduit la formle et ca me donne aussi ce que je veux (elle le laisse comme il est ) =VALENTIN Jerimi


jai mis ce code la pour comparer le contenu de 2 cellule; si ce dernier est le mm le code va renvoyer le numero de la ligne a B1 de la feuille 1

Sub test ()
Dim i As Long, j As Long
For i = 24 To 200
For j = 2 To 20
If Worksheets("Feuil2").Cells(j, 1) <> "" Then

If Worksheets("Feuil2").Cells(i, 3) = Worksheets("Feuil2").Cells(j, 1) Then

Worksheets("Feuil1").Cells(j, 2) = i - 23
End If

End If
Next j
Next i
End Sub

mais il compare toujours le contenu de la cellule A2 de la feuille 1 au contenu de la cellule C24 de la feuille 1
alors que je veux quil compare le contenu de la cellule A2 de la feuille 2 au contenu de la cellule C24 de la feuille 2

je vous remercie d'avence