Bonjour,
Je ne sais pas si mon titre est clair mais bon...
L'idée est de rechercher parmi tous les onglets la valeur minimale disponible dans une incrémentation (sachant que cette incrémentation n'a pas été continue dans le temps). La zone de recherche est toujours identique quelque soit l'onglet...
J'ai voulu coder ceci :
Mais ça ne fonctionne pas...
Ci-joint un fichier exemple,
Merci de votre aide,
Je ne sais pas si mon titre est clair mais bon...
L'idée est de rechercher parmi tous les onglets la valeur minimale disponible dans une incrémentation (sachant que cette incrémentation n'a pas été continue dans le temps). La zone de recherche est toujours identique quelque soit l'onglet...
J'ai voulu coder ceci :
Code:
Sub Mini()
Max_Num = 1
Dim s As Worksheet
For Each s In Worksheets
i = 10
While Not s.Cells(i, 1).Value = ""
If s.Cells(i + 5, 1).Value - s.Cells(i, 1).Value <> 1 Then
Max_Num = s.Cells(i, 1).Value
End If
i = i + 5
Wend
Next s
Numero.Value = Max_Num + 1
MsgBox "Le mini dispo est" + Numero.Value
End Sub
Mais ça ne fonctionne pas...
Ci-joint un fichier exemple,
Merci de votre aide,
Pièces jointes
Dernière édition: