VBA : formule if find then else

Merci pour toutes les réponses, la dernière formule a très bien marché, merci beaucoup. !!

Essayez avec cette formule en C1(un peu compliqué mais qui devrait marcher) :

=SI(ESTERREUR(TROUVE("BRENT";B1));SI(ESTERREUR(TROUVE("COOPER";B1));SI(ESTERREUR(TROUVE("GOLD";B1));B1;"GOLD");"COOPER");"BRENT")

Puis placer le curseur en bas à droite jusqu'à ce qu'il ressemble à une petite croix, et double cliquer.

http://www.cijoint.fr/cj201105/cijpMOL1dj.jpg

dim cellule1 as range  

cellule1 = wsexcel.Range("A1:IV65500").Find("D_CTY_BRENT")  

  If not cellule1 Is Nothing Then  

wsExcel.Cells(cellule1.Row,3).Value="BRENT"

End if

Bonjour,

un exemple visuel avec un fichier serait plus parlant.

vous pouvez nous adresser un petit fichier d'une dizaine de ligne avec ce que vous souhaitez obtenir.

Pour nous envoyer un fichier, allez sur le site cijoint.fr et coller le lien obtenu dans un nouveau message.

Cordialement.

En fait, j'aurais besoin d'une formule plus poussée afin de faire un search car le nom présent dans Bx n'est pas "D_CTY_BRENT" exactement mais "D_CTY_BRENT.............." .
Du coup j'aimerais faire un search pour voir si on trouve dans les cellules Bx "D_CTY_BRENT" ou ""D_CTY_COPPER" ou "D_CTY_GOLD"
Je ne sais pas trop comment arranger ma formule avec if ( search (...or...or...) ; (BRENT or COPPER or GOLD); BX)

Voici une solution en vb net (cela doit pouvoir s'adapter en vba)

'Déclaration des variables 
Dim appExcel As Excel.Application 'Application Excel 
Dim wbExcel As Excel.Workbook 'Classeur Excel 
Dim wsExcel As Excel.Worksheet 'Feuille Excel 
   
   
'Ouverture de l'application 
appExcel = CreateObject("Excel.Application") 
'Ouverture d'un fichier Excel 
wbExcel = appExcel.Workbooks.Open(openfiledialog1.FileName) 
'wsExcel correspond à la première feuille du fichier 
wsExcel = wbExcel.Worksheets(1) 

Dim j as integer 

For j=1 To 5 

If wsExcel.Cells(j,2).Value="D_CTY_BRENT" Then 

wsExcel.Cells(j,3).Value="BRENT" 

Else 

wsExcel.Cells(j,3).Value=wsExcel.Cells(j,2).Value 

End if

Next j 

Thx, effectivement, pas besoin de programme, en fait ce qui ne marchait pas était la fonction search de ma formule

Bonjour,

pas besoin de passer par une macro, simplement écrire cette formule en Cx :

=SI(Bx = "D_CTY_BRENT";"BRENT";"Bx)

en remplaçant x par le numéro de ligne.

Cordialement.