Discussion :

[StabiloHB]

Bonjour,

J'ai un fichier excel où j'aimerai classer les exemples par ligne avec un numero devant.

Je voudrais qu'à chaque exemple, la première ligne (numero) se remplisse automatiquement du nombre correspondant au numero de mon exemple.
Il faudrait donc détecter le remplissage d'une cellule dans une ligne puis remplir la première colonne du numéro de l'exemple.

je ne suis pas doué en VBA j'ai quand même essayé, dites moi si vous avez besoin de plus de précisions.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
 
 
    If Cells(ActiveCell.Row, 4) = "" Then
 
    Else
        Cells(ActiveCell.Row, 2) = ActiveCell.Row
 
    End If
End Sub

Merci d'avance.

[eriiic]

Bonjour,

par formule ça ne te va pas ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NBVAL($D$1:D1)

Le 1 de : D1) étant la ligne de la formule
eric

[StabiloHB]

Merci pour ta réponse,

Ta formule compte le nombre de cellules remplies dans une zone définie ?

Je voudrais juste qu'un numéro se note dans la première colonne de mon tableau quand on remplit une case de la ligne :




J'ai essayé ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
 
    For i = 7 To Rows.Count
        If Cells(ActiveCell.Row, ActiveCell.Col) Then
            If NBVAL(C7:K7) >=1 Then
                Cells(ActiveCell.Row, 2) = ActiveCell.Row
            End If
        End If
    Next
End Sub

Cependant comment peut on remplacer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

C7:K7

Pour qu'il s'adapte à la ligne de la cellule active ?
Et pourquoi pas rajouter une option qui supprime l'incrémentation si l'on supprime l'exemple ?

[eriiic]

Ta formule compte le nombre de cellules remplies dans une zone définie ?

Tester pour avoir la réponse.
Tu fais -1 pour le titre, avec en B2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(D2="";"";NBVAL($D$1:D2)-1)

tu auras 1, 2 ,3 ,4

[StabiloHB]

Merci pour ta réponse,

J'ai compris ta formule mais je n'ai malheuresement pas reussis à la mettre en place sur mon classuer je ne sais pas pourquoi

Du coup j'en ai fait une autre dans la même idée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(NBVAL(C7:K7)=0;"";LIGNE(C7)-6)

(-6) parce que mon tableau commence à 7.

Merci beaucoup pour ton aide
Bonne journée
Valentin.