Suppression de plusieurs cellules avec condition

[skygoat76]

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:

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?

 

[Cousinhub]

Re : Suppression de plusieurs cellules avec condition

Bonjour,

essaie ainsi :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim annee, semaine As String
Dim Cel As Range
If Target.Column = 11 Then
    Application.EnableEvents = False
    If Target.Count = 1 Then
        If Target = "" Or IsEmpty(ActiveCell.Value = "") = True 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
    Else
        If Application.CountA(Target) = 0 Then
            For Each Cel In Target
                Cells(Cel.Row, 14) = ""
            Next Cel
        End If
    End If
End If
Application.EnableEvents = True
End Sub

 

[skygoat76]

Re : Suppression de plusieurs cellules avec condition

Bonjour,

Plus rien ne marche. Mon numéro de semaine ne s'affiche plus du tout.
As-tu essayé toi-même?

 

[skygoat76]

Re : Suppression de plusieurs cellules avec condition

Personne ne sait???

Tout mon code fonctionne bien mais la suppression de plusieurs cellules non.

Merci d'avance

 

[Cousinhub]

Re : Suppression de plusieurs cellules avec condition

Re,

et ne sois pas impatient comme cela....

regarde mon code, j'avais omis une ligne très importante, la dernière....

Désolé...(erreur de débutant....)

 

[skygoat76]

Re : Suppression de plusieurs cellules avec condition

SUPER!!!!
Tu es un roi!!!!!!! Un GRAND GRAND Merci!

(désolé pour l'impatience)