Select Case cell.Value - Case Is = "M"

[Regueiro]

Bonsoir le Forum
Voici le code que j'aimerais amélioré :
Je ne peux pas vous joindre de fichier pour l'instant ?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
    'Application.ScreenUpdating = False
    'Application.EnableEvents = False
For Each cell In Range("C19:C36")
    Select Case cell.Value
        Case Is = "M"
        cell.Interior.ColorIndex = 3
        Range("E62:Q63").Select
        Selection.Copy
        cell.Offset(0, 2).Select
        'ActiveSheet.Paste



        Case Is = "T"
        cell.Interior.ColorIndex = 8
    End Select
Next
    'Application.ScreenUpdating = True
    'Application.EnableEvents = True
End Sub

Si la Cellule Active contient M
La colorier en rouge.
Copier les données de E62;Q63, 2 colonnes à côtés de la cellule active.
La copie doit être du style ActiveSheet.Paste
C'est là que je n'arrive pas trouver le code.
Merci de votre Aide
A+

 

[VDAVID]

Re : Select Case cell.Value - Case Is = "M"

Bonsoir Regueiro,

Peut être comme ceci:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
    'Application.ScreenUpdating = False
    'Application.EnableEvents = False
For Each cell In Range("C19:C36")
    Select Case cell.Value
        Case Is = "M"
        cell.Interior.ColorIndex = 3
        Range("E62:Q63").Copy destination:= cell.Offset(0, 2)
        Case Is = "T"
        cell.Interior.ColorIndex = 8
    End Select
Next
    'Application.ScreenUpdating = True
    'Application.EnableEvents = True
End Sub

 

[Regueiro]

Re : Select Case cell.Value - Case Is = "M"

Bonsoir Vdavid
Merci le code, je l'avais déjà essayé.
Le problème que j'ai :
Une fois ces données copiées dans les bonnes cellules, je ne peux plus les modifiées.
Je crois que Copy destination = idem copy avec liaisons.
Je regarde encore.
Merci

 

[Mytå]

Re : Select Case cell.Value - Case Is = "M"

Salut le forum

Essaye en copiant comme ceci

Range("E62:Q63").Copy
Cell.Offset(0, 2).PasteSpecial Paste:=xlPasteValues

Mytå

 

[frangy]

Re : Select Case cell.Value - Case Is = "M"

Bonjour,

Une fois ces données copiées dans les bonnes cellules, je ne peux plus les modifier.

Lorsque tu modifies une donnée, tu provoques l’évènement Change et une nouvelle copie est réalisée. Tu te retrouves donc à nouveau avec les données d’origine.
Pour éviter ce problème, il te faut définir la plage concernée par l’évènement Change.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    If Target.Count = 1 And Target.Column = 3 Then
        For Each cell In Range("C19:C36")
            Select Case cell.Value
            Case Is = "M"
                cell.Interior.ColorIndex = 3
                Range("E62:Q63").Copy Destination:=cell.Offset(0, 2)
            Case Is = "T"
                cell.Interior.ColorIndex = 8
            End Select
        Next
    End If
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

Cordialement.

 

[Regueiro]

Re : Select Case cell.Value - Case Is = "M"

Bonjour à Tous
Bonjour Frangy, Myta et VDAVID
Myta ton code fonctionne parfaitement.
Merci pour tes infos.
Merci également aux autre pour leur contributions.
Salutations.

PS : Je vais lancer un autre Post pour un autre sujet, soyez attentif🙄
Je veux faire de la saisie d'heure assez rapidement.
Par exemple, je saisie 1000 = 10h00 au format heure
Début 7h00 fin 12h00 (-00h15 de pause)
Début 13h00 fin 18h00
= Total heures travaillés = 9h45 X 50.00 = 478.50

A+