procedure evenementielle sur une selection

[dg62]

Bonjour le Forum

Ma première question sur ce forum


Comment appliquer ma proc à une zone uniquement par exemple A3:A20

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
    
    

    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 Sub

Merci pour votre aide

Message édité par: dg62, à: 05/04/2005 11:08

 

[Hervé]

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

 

[PascalXLD]

Bonjour

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

 

[PascalXLD]

Oups Hervé

Excuses tu fus plus rapide

Bonne journée

 

[dg62]

Bonjour Pascal, Hervé


Merci, rapide et efficace comme toujours

bonne journée

 

[Hervé]

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

 

[dg62]

Re

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


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

 

[Hervé]

re

Ok merci DG

salut