Discussion :

[Manoune04]

Bonjour à tous,

Après plusieurs heures de recherche infructueuses, je me retourne vers vous...
Je suis débutante en VBA. Je comprends la logique mais je n'arrive pas à faire ce que je veux...

Alors voilà, j'ai un fichier Excel avec 5 onglets, ils ont tous la même trame.

Je souhaite, lorsque je saisis une information dans la colonne E, inscrire un nombre dans la colonne C. Ce nombre est la valeur max trouvée dans toutes les colonnes C de tous les onglets +1.

Je veux faire une numérotation automatique de la ligne en fonction de tous les autres onglets.

Voilà, j'espère avoir été assez claire. J'ai vraiment essayé de chercher et essayé différentes solutions mais je ne suis parvenue à rien.

Une âme charitable pourrait-elle m'aider?

Je vous remercie !
Belle fin de journée

[Thautheme]

Bonjour Manoune, bonjour le forum,

Essaie avec ce code à placer dans le composant ThisWorkbook :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim M As Long
Dim MAX As Long
Dim O As Worksheet
 
If Target.Column <> 5 Then Exit Sub
For Each O In Worksheets
    MAX = Application.WorksheetFunction.MAX(O.Columns(3))
    If MAX > M Then M = MAX
Next O
Target.Offset(0, 2) = M + 1
End Sub

[Manoune04]

Bonjour Tautheme,

Tout d'abord, un grand merci de m'avoir répondu si rapidement!
Je comprends la logique du code, j'ai pu arrangé les quelques détails qui ne fonctionnaient pas. (le nombre incrémenté ne s'inscrivait pas dans la bonne colonne)
Maintenant il me reste juste une erreur... Le nombre ne s'incrémente pas et il ne prends pas la plus grande valeur des C de toutes les feuilles... J'ai déjà la base, c'est génial encore merci! Je vais essayé de debuger le reste...

Belle journée

[Thautheme]

Re,

Le code corrigé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim M As Long
Dim MAX As Long
Dim O As Worksheet
 
If Target.Column <> 5 Then Exit Sub
For Each O In Worksheets
    MAX = Application.WorksheetFunction.MAX(O.Columns(3))
    If MAX > M Then M = MAX
Next O
Target.Offset(0, -2) = M + 1
End Sub

[Manoune04]

Un énorme merci ca fonctionne parfaitement bien!!!!