Répeter plusieurs instructions

Bonjour

J'ai créer une instruction si

Sub commentaires_notes()

'Variables

Dim note As String, commentaire As String

note = Range("e4")

'Commentaire en fonction de la note

If note = "Villeneuve Loubet" Then

commentaire = "Alpes Maritimes"

ElseIf note = "Vence" Then

commentaire = "Alpes Maritimes"

ElseIf note = "Vallauris" Then

commentaire = "Alpes Maritimes"

ElseIf note = "Toulon" Then

commentaire = "var"

ElseIf note = "hyeres" Then

commentaire = "var"

ElseIf note = "barjols" Then

commentaire = "var"

Else

commentaire = ""

End If

'Commentaire en B1

Range("f4") = commentaire

End Sub

1) je voudrai que cette instruction se répéte en e5, e6 etc...

2) Qu'éventuellement si f4 n'st pas vide alors rien

3) Inclure automatiquement cette instruction au démarrage d'excel

Merci pour votre aide car je n'y arrive vraiment pas.

Bonjour

Essaie ce code :

Sub commentaires_notes()
'Variables
Dim note As String, commentaire As String
Dim i As Byte
note = Range("e4")
'Commentaire en fonction de la note
For i = 4 To 10
note = Range("e" & i)
If Range("f" & i) = "" And note <> "" Then
Select Case note
Case "Villeneuve Loubet", "Vence", "Vallauris": commentaire = "Alpes Maritimes"
Case "Toulon", "hyeres", "barjols": commentaire = "var"
End Select
Range("f" & i) = commentaire
End If
Next
End Sub

Je n'ai pas compris ta mention "Commentaire en B1" dans ton code

Si ok dis moi je te donnerai le moyen d'exécuter ce code à l'ouverture

Amicalement

Merci pour ta réponse mais j'ai un petit souci.

Tu écris

For i = 4 To 10

et en fait j'ai 1600 lignes. Quand je remplace 10 par 1600 il y a un bug.

Comment faire stp

merci beaucoup de ton aide.

Re,

et en fait j'ai 1600 lignes. Quand je remplace 10 par 1600 il y a un bug.

Remplace

Dim i as byte

par

Dim i as integer

et

For i = 4 To 10

par

For i=i to 1600

Amicalement