procedure evenementielle sur une selection

Hervé

XLDnaute Barbatruc

• 5 Avril 2005

• #2

Bonjour dg


En rajoutant au début de la macro :

If Application.Intersect(Target, Range('a3:a20')) Is Nothing Then Exit Sub

Tu précises par ce code que si le target n'est pas dans la plage A3:A20, il doit sortir de la macro.

Salut

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 5 Avril 2005

• #3

Bonjour

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

' Nom en majuscule et première lettre du prénom en maj le reste en min

Dim pos As Integer

Dim nom, prenom As String

Dim cel As String

    
If Not Intersect(Range('A3:A20'), Target) Is Nothing Then


    cel = Target.Value

    If cel > '' Then

        pos = InStr(1, cel, ' ', 1)

        nom = Left$(cel, pos)

        prenomMaj = Right$(cel, Len(cel) - pos)

        prenomMin = Right$(cel, Len(cel) - pos - 1)

        cel = UCase(nom) & UCase(Left$(prenomMaj, 1)) & prenomMin

        Application.EnableEvents = False

        Target = cel

        Application.EnableEvents = True

        

    End If
End If
End Sub

Bon courage

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 5 Avril 2005

• #4

Oups Hervé

Excuses tu fus plus rapide

Bonne journée

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 5 Avril 2005

• #5

Bonjour Pascal, Hervé


Merci, rapide et efficace comme toujours

bonne journée

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 5 Avril 2005

• #6

re

y'a pas de mal pascal.

DG, j'avais pas regardé le corps de la macro, 🙂 , j'archive ce code.

Par contre, petite question, pour voir si j'ai bien compris :

Le enableevents permet de ne pas relancer la macro évenementielle lorsque l'on renvoi la valeur de cel dans la target, c'est ça ??

Merci pour vos réponses.

Salut

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 5 Avril 2005

• #7

Re

oui, c'est ce que j'ai cru comprendre.


Sans cela ça marchait dans une cellule et je perdais la main ensuite .

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 5 Avril 2005

• #8

re

Ok merci DG

salut

 

Vote positif 0 Vote négatif