Worksheet_Change et Workbook_SheetChange

[fenec]

Bonjour le forum

Dans ma Feuil1 j’utilise un code

Worksheet_Change

Et dans ThisWorkbook un code

Workbook_SheetChange

D’où ma question

Est-il possible de combiner les deux?

Cordialement

Fenec

 

[JCGL]

Re : Worksheet_Change et Workbook_SheetChange

Bonjour à tous,

Peux-tu essayer ceci dans le ThisWorkBook et en mettant en rem le _Change de la feuille :

Option Explicit


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name = "Feuil1" Then
        Static G As Boolean
        If G = False And Target.Count = 1 And Not Intersect(Target, Range("C8:C200,G8:G200")) Is Nothing Then
            G = True
            Target.Value = UCase(Target.Value)
            G = False
        End If
    End If
    If Sh.Name = "Feuil2" Or Sh.Name = "Feuil3" Or Sh.Name = "Feuil4" Then
        Dim plage As Range
        If Target.Count > 1 Then Exit Sub    '<-- pour éviter que ça coince si on sélectionne plusieurs cellules
        Set plage = Sh.Range("E15:E17")
        Application.EnableEvents = False
        If Not Application.Intersect(Target, plage) Is Nothing Then
            Target.Value = StrConv(Target.Value, 3)
        End If
        If Not Application.Intersect(Target, Sh.Range("E14")) Is Nothing Then
            Target = UCase(Target)
        End If
        Application.EnableEvents = True
    End If
End Sub

A + à tous

 

[BOISGONTIER]

Re : Worksheet_Change et Workbook_SheetChange

Bonsoir,

Le code de la feuille est exécuté en premier

Workbook_SheetChange est exécuté en second


Quel est le pb?

JB

 

[fenec]

Re : Worksheet_Change et Workbook_SheetChange

Re et bonsoir JCGL,BOISGONTIER

Viens de tester ca fonctionne, l'appliquerais dans mon fichier final demain au travail

Pour répondre à ta question BOISGONTIER

En fait ,devant envoyer ma feuille 1 par mail et ne voulant pas envoyer les macros je cherchais la possibilitée de combiner les deux ce que viens de faire JCGL avec sa proposition

Merci à tous deux pour votre réactivité

A+