bonjour

Voila, je veux à travers ce code tester si le contenu d une cellule contient une abbréviation ET si l abbréviation correspond afficher le nom complet
je bloque un peu

merci d avance

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub contpart()
 
Dim entrecu As String
Dim entpay As String
 
If Worksheets(Nom).Range("C14: D14").Value = "DEUT" Then Set entrecu = "DEUTSCHE BANK FFT"
Else: Set entrecu = Nothing
End If
If Worksheets(Nom).Range("C14: D14").Value = "CITINY" Then Set entrecu = "CITIBANK NEW YORK"
Else: Set entrecu = Nothing
End If
 
If Worksheets(Nom).Range("C15: D15").Value = "DEUT" Then Set entpay = "DEUTSCHE BANK FFT"
Else: Set entpay = Nothing
End If
If Worksheets(Nom).Range("C15: D15").Value = "CITINY" Then entpay = "CITIBANK NEW YORK"
Else: Set entpay = Nothing
End If
 
 
End Sub