Bonjour à tous,

Etant débutant en vba je n'arrive pas à me sortir de mon casse tête ...

L'idée est :

Dans une colonne A je dispose de différents noms,
je souhaite que dans une colonne E on affiche :
*1 lorsque le nom commence par ABC
*2 lorsque le nom finit par ENT
*3 pour les autres cas
Je souhaite étendre cette formule jusqu'à la dernière ligne.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub Hyp()
For i = 21 To DernLigne
 
Next
Cells(i, 1) = IIf((Left(Cells(i, 5), 3) = "ABC"), "1", IIf((Right(Cells(i, 5), 3) = "ENT"), "2", "3"))
 
DernLigne = Range("E" & Rows.Count).End(xlUp).Row
Range("A21").AutoFill Destination:=Range("A21:A" & DernLigne)
 
End Sub
Mais ça ne fonctionne pas ...

Merci pour votre aide !