Copier une macro pour plusieurs cellules

[Dave]

Bonsoir,

J'ai créer une macro qui se place sur la cellule "01", qui contrôle si "L1" = 1
si vrai = Janiver

ensuite la même chose avec "2" donc si "O1" = "2" alors "Février"...

J'aimerais que la macro agisse sur toutes les lignes (L2,L3 jusque L430), comment dois-je faire ?

Vous trouverez plus bas mon code

Un très grand merci d'avance pour votre aide.

David

Sub Mois()
'
' Macro1 Macro
' Macro enregistrée le 27/03/2004 par Dubois David
'

'
Range("O1").Select
If Range("L1") = "1" Then
Range("O1") = "Janvier"
End If
If Range("L1") = "2" Then
Range("O1") = "Février"
End If
If Range("L1") = "3" Then
Range("O1") = "Mars"
End If
If Range("L1") = "4" Then
Range("O1") = "Avril"
End If

If Range("L1") = "5" Then
Range("O1") = "Mai"
End If
If Range("L1") = "6" Then
Range("O1") = "Juin"
End If

If Range("L1") = "7" Then
Range("O1") = "Juillet"
End If

If Range("L1") = "8" Then
Range("O1") = "Aout"
End If

If Range("L1") = "9" Then
Range("O1") = "Septembre"
End If

If Range("L1") = "10" Then
Range("O1") = "Octobre"
End If

If Range("L1") = "11" Then
Range("O1") = "Novembre"
End If

If Range("L1") = "12" Then
Range("O1") = "Décembr"
End If
End Sub

 

[Robert]

Bonsoir Dave, bonsoir le forum

ce code devarit te satisfaire :

Public Sub mois()
For Each cel In Range("L1:L430")
Select Case cel.Value
Case 1
cel.Offset(0, 3).Value = "Janvier"
Case 2
cel.Offset(0, 3).Value = "Février"
Case 3
cel.Offset(0, 3).Value = "Mars"
Case 4
cel.Offset(0, 3).Value = "Avril"
Case 5
cel.Offset(0, 3).Value = "Mai"
Case 6
cel.Offset(0, 3).Value = "Juin"
Case 7
cel.Offset(0, 3).Value = "Juillet"
Case 8
cel.Offset(0, 3).Value = "Août"
Case 9
cel.Offset(0, 3).Value = "Septembre"
Case 10
cel.Offset(0, 3).Value = "Octobre"
Case 11
cel.Offset(0, 3).Value = "Novembre"
Case 12
cel.Offset(0, 3).Value = "Décembre"
End Select
Next
End Sub


À plus,

Robert

 

[Dave]

Bonsoir Robert,

Un grand merci pour ton aide, tu me fais gagner un temps précieux.

Je te remercie encore

David