Probleme de comptage

[Sylvain59]

Dans le fichier joint j'essaie de numeroter les absences repérees dans la clonne B par un X dans l'ordre ou elles me parviennent
je pense que cea sera plus clair avec le fichier
Simple en apparence mais pas pour moi je butte la dessus depuis ce matin

Au secours

Merci d'avance de m'aider
Sylvain 59

 

[pierrejean]

Re : Probleme de comptage

bonjour Sylvain59

vois si cela te convient

en cas d'effacement d'un x j'efface egalement en colonne C
le x peut etre minuscule ou majuscule

si probleme n'hesite pas a revenir

 

[jp14]

Re : Probleme de comptage

Bonsoir
Salut PierreJean


Ci dessous une macro événementielle à copier dans la feuille.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim val1 As Long
Dim cola As String
Dim colb As String
Dim i As Long

 If Target.Column = 2 And Target.Count = 1 Then ' une seule cellule
    If Target.Value <> "" And Target.Offset(0, 1) = "" Then
        cola = Chr(Target.Column + 64)
        colb = Chr(Target.Column + 64 + 1)
        With Sheets(ActiveSheet.Name)
            val1 = 0
            For i = 3 To .Range(colb & "65536").End(xlUp).Row
                If val(.Range(colb & i)) > val1 Then val1 = val(.Range(colb & i))
            Next i
            .Range(colb & Target.Row) = val1 + 1
        End With
    End If
End If
End Sub

A tester

JP

 

[Sylvain59]

Re : Probleme de comptage

Merci à tous les deux c'est exactement ce que je cherchais

Sylvain 5