skygoat76
XLDnaute Junior
Bonjour,
Mon problème est le suivant:
J'ai tapé un bout de code pour écrire l'année + le numéro de semaine dans une cellule quand la date est tapée:
Concrètement, si on tape 29/06/09 dans la colonne K, on obtient 927 dans la colonne N. Si je supprime une date en colonne K, la semaine est également supprimée.
Le problème est que si je supprime une sélection de date (exemple de K1 à K3), ma macro plante
une idée?
Mon problème est le suivant:
J'ai tapé un bout de code pour écrire l'année + le numéro de semaine dans une cellule quand la date est tapée:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim annee, semaine As String
If Target.Column = 11 Then
If Target = "" Then
Cells(Target.Row, 14) = ""
Else
annee = Right(Str(Format(Cells(Target.Row, 11).Value, "yyyy")), 2)
semaine = Str(DatePart("ww", Target, 2, 2))
If CInt(semaine) >= 10 Then
Cells(Target.Row, 14) = CInt(annee + semaine)
Else
Cells(Target.Row, 14) = CInt(annee + "0" + semaine)
End If
End If
End If
End Sub
Concrètement, si on tape 29/06/09 dans la colonne K, on obtient 927 dans la colonne N. Si je supprime une date en colonne K, la semaine est également supprimée.
Le problème est que si je supprime une sélection de date (exemple de K1 à K3), ma macro plante
une idée?
Pièces jointes
Dernière édition: