Re pour Zon

[chris 54]

Salut Zon j'ai éssayé mais rien ne se passe
je te rezip le fichier
Merci beaucoup en attendant
chris

 

[Zon]

Salut,

Pourquoi changer de fil ?

Avec les évènementielles tu ne peux pas écrire 50 procédures worksheet_change pour la même feuille c'est pour cela que rien ne se passe, c'est à mettre dans

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range(Plage).Columns(3), Target) Is Nothing Then
If Len(Ch) = 0 Then Exit Sub
With UserForm1
.ListBox1.AddItem Ch
.ListBox2.AddItem Sheets(Right(Ch, 1) + 1).Name
.Show
End With
[A1]=[A1]+1
End If
End Sub

A+++

 

[chris 54]

merci pour tes réponses
Zon peux tu me dire pourquoi rien ne se passe en A1
quand je supprime une des voitures de la colonne C
Le ompteur ne totalise rien
je te Zip le ficjhier
merci encor

 

[Zon]

Salut,

Tu as ceci dans le code de ta feuil1

Option Explicit
Const Plage As String = "A1015"
Dim Ch$
'Celle là est évènementielle
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range(Plage).Columns(3), Target) Is Nothing Then
If Len(Ch) = 0 Then Exit Sub
With UserForm1
.ListBox1.AddItem Ch
.ListBox2.AddItem Sheets(Right(Ch, 1) + 1).Name
.Show
End With
[A1] = [A1] + 1 'ici à rajouter<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'ici on récupére la valeur de la cellule qui peut être modifiée
On Error Resume Next
Ch = Target.Text
End Sub
'
'Cette procédure n'est pas évènementielle
Private Sub Worksheet_Change1(ByVal Target As Range)
If Not Application.Intersect(Range(Plage).Columns(3), Target) Is Nothing Then
If Len(Ch) = 0 Then Exit Sub
With UserForm1
.ListBox1.AddItem Ch
.ListBox2.AddItem Sheets(Right(Ch, 1) + 1).Name
.Show
[A1] = [A1] + 1 'ici à rajouter
End With
End If
End Sub


A+++