Autres VBA - privatesub avec "this workbook" sur wks.name commence par "C"

zebanx · 17 Octobre 2020

Bonjour à tous,

Le petit code suivant me permet d'arriver au bon affichage (partie de la cellule avant "*" sur un range à mettre en vert et en gras) sur la feuille "critère" après chaque saisie sur une plage définie.
Le code est enregistré dans la feuille "critère".

Souhait : que cette private sub fonctionne à la saisie sur toutes les feuilles dont le nom commence par un "C".
Le nombre de feuilles commencant par un "C" sera variable.

Le code a été repris dans "this workbook" mais sa modification est incorrecte pour obtenir le résultat souhaité.
Pourriez-vous s'il vous plait m'indiquer comment y parvenir ?

Vous en remerciant, bonne soirée
zebanx

VB:

Private Sub Worksheet_Change(ByVal sh As Object, ByVal c As Range)
sh = ActiveSheet.Name
If Left(sh, 1) = "C" Then
    Set plage = Range("A1:G16")
    If Not Application.Intersect(c, plage) Is Nothing Then
    On Error Resume Next
    s = Split(c, "*")
        If IsError(s(1)) = True Then
        c.Font.Bold = False
        c.Font.Color = RGB(0, 0, 0)
        Else
        c.Characters(1, Len(s(0))).Font.Bold = True
        c.Characters(1, Len(s(0))).Font.Color = RGB(30, 140, 0) '--vert
        End If
    End If
End If
End Sub

ChTi160 · 17 Octobre 2020

re
Bonsoir eric
ceci semble fonctionner !

VB:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name Like "C*" Then
    Set plage = Sh.Range("A1:G16")
    If Not Application.Intersect(Target, plage) Is Nothing Then
    On Error Resume Next
    s = Split(Target, "*")
        If IsError(s(1)) = True Then
        Target.Font.Bold = False
        Target.Font.Color = RGB(0, 0, 0)
             Else
        Target.Characters(1, Len(s(0))).Font.Bold = True
        Target.Characters(1, Len(s(0))).Font.Color = RGB(30, 140, 0) '--vert
        End If
    End If
End If
End Sub

jean marie

ChTi160 · 17 Octobre 2020

Bonsoir zebanx
Peut être dans l'évènement :

VB:

 Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

pas sur d'avoir compris Lol
jean marie

eriiic · 17 Octobre 2020

Bonjour à tous,

Set plage = Range("A1:G16")
comme tu travailles avec sh il faut lui dire sinon c'est la feuille active :

VB:

Set plage = sh.Range("A1:G16")

eric

edit : remarque avec un Change elle aurait du mal à ne pas être active
Je regarde le fichier

ChTi160 · 17 Octobre 2020

re
Bonsoir eric
ceci semble fonctionner !

VB:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name Like "C*" Then
    Set plage = Sh.Range("A1:G16")
    If Not Application.Intersect(Target, plage) Is Nothing Then
    On Error Resume Next
    s = Split(Target, "*")
        If IsError(s(1)) = True Then
        Target.Font.Bold = False
        Target.Font.Color = RGB(0, 0, 0)
             Else
        Target.Characters(1, Len(s(0))).Font.Bold = True
        Target.Characters(1, Len(s(0))).Font.Color = RGB(30, 140, 0) '--vert
        End If
    End If
End If
End Sub

jean marie

eriiic · 17 Octobre 2020

oui, le nom de l'événement n'était pas bon. Je venais de le voir

zebanx · 17 Octobre 2020

Bonsoir Chti60, Eriiic

@Chti60
Super, fonctionne parfaitement.

@Eriiic
Bonne remarque.

Très sympa d'avoir regardé cela si rapidement.

ChTi160 · 17 Octobre 2020

Re
moi j'ai aimé le Titre de ton Post Lol

sur wks.name commence par "R"

jean marie

zebanx · 17 Octobre 2020

Merci @jean-marie
Et... je récidive.
Je vais faire la modification.

Bonne soirée et merci pour ta solution tip-top

Autres VBA - privatesub avec "this workbook" sur wks.name commence par "C"

zebanx

XLDnaute Accro

Pièces jointes

ChTi160

ChTi160

XLDnaute Barbatruc

eriiic

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

eriiic

XLDnaute Barbatruc

zebanx

XLDnaute Accro

ChTi160

XLDnaute Barbatruc

zebanx

XLDnaute Accro

Discussions similaires