[ resolu] VBA - Cherche le minimum dans même colonne sur plusieurs onglets

[cissou69]

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 :

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,

 

[cissou69]

Re : VBA - Cherche le minimum dans même colonne sur plusieurs onglets

Merci !!!
Mais bon ce n'est pas très clair dans mon esprit

 

[cissou69]

Re : [ resolu] VBA - Cherche le minimum dans même colonne sur plusieurs onglets

Merci !!!
La nuance And / Or n'est pas aisée dans ce cas pour moi :s

 

[JNP]

Re : [ resolu] VBA - Cherche le minimum dans même colonne sur plusieurs onglets

Re 🙂,

La nuance And / Or n'est pas aisée dans ce cas pour moi :s

Je te conseille une excellente lecture, mais munis toi peut-être d'un ou deux tubes d'aspirine 😛...
Bon courage 😎
Ajout : Pour mieux comprendre, tu aurais pu aussi changer ton premier code ainsi

    If s.Name = "Feuil11" Or s.Name = "Feuil5" Then
        ' Dans ce cas là, rien ne se passe
    Else
        While Not s.Cells(i, 1) = ""
            tab_test(s.Cells(i, 1)) = True
        i = i + 5
        Wend
    End If

 

[cissou69]

Re : [ resolu] VBA - Cherche le minimum dans même colonne sur plusieurs onglets

Merci pour la lecture... mais j'ai quelques ouvrages sur mon bureau 🙁
Pour le reste, je suis d'accord.

Bonne journée