Bonjour à tous !!
 
Bon, cette fois c'est Worksheet_SelectionChange qui me pose problème....
 
Je l'utilise 3 fois dans mon ti prog. Les 2 premières fois ça va bien mais la 3ème ça marche pas...
 
Dans le premier cas :
Private Sub Button_Autre_Click()
 
    CocheCase.Autre
 
End Sub
 
Puis
Public Sub Autre()
 
    TraceAutre = True
     
'Active la fenêtre avec les mesures pour pouvoir sélectionner la colonne voulue
'-> cf. Feuil2 (Mesures) Private Sub Worksheet_SelectionChange pour la sélection de la cellule
    UserForm_Tracage.Hide
    Worksheets("Mesures" ).Activate
             
End Sub
 
et enfin
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    If TraceAutre Then
         
        ColonneAutre = ActiveCell.Column
         
        If ColonneAutre = 1 Or ColonneAutre = 2 Then
            MsgBox Prompt:="La colonne choisi n'est pas valide", Title:="Erreur !!"
            UserForm_Tracage.Show
             
        Else
        'On remonte à la première ligne de la colonne pour avoir son titre
            LigneAutre = 5
             
            DefinitionDeLaCourbe.DefinitionDeLaCourbe
 
        End If
 
    End If
 
ça ça marche bien j'ai pas de souci
 
Maintenant je fais ça pour mon troisème cas :
Private Sub Button_Ok_Click()
 
    InsertionMesure = True
    UserForm_InsertionColonnePV.Hide
    Worksheets(NomPV).Activate
 
End Sub
 
Et
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
 
    If InsertionMesure = True Then
     
        ColonneInser = ActiveCell.Column
        LigneInser = ActiveCell.Column
        InsertionMesure = False
        UserForm_GaucheDroite.Show
             
    End If
     
     
End Sub
 
Mais là ça marche pas... Pourquoi...    
C'est quoi le détail que j'ai zappé...??  
ça fait deux jours que j'y regarde mais je ne vois pas pourquoi...
 
   d'avance

Bonsoir,
A quoi correspond NomPV?
ça marche pas?  que se passe-t-il exactement?
Cordialement