Microsoft 365 [VBA]Retourner la valeur min d'un ligne avec une plage coupée

[Kyirra]

Bonjour les exceldownloaders

Pour un de mes programmes vba, j'ai besoin de retourner la valeur minimum d'une ligne mais avec des colonne espacé entre elle ainsi que dans une boucle.

l'idée serait quelque chose comme ça :

do while iteration <5

valeurMin = Application.WorksheetFunction.Min(synth.Range("AA"&iteration);synth.Range("AD"&iteration);synth.Range("AG"&iteration);synth.Range("AM'&iteration))

iteration = iteration +1

Loop

ou iteration est la variable de boucle
et synth la donnée contenant la feuille de calcul

Je sais que synth.Range("AA"&iteration) fonctionne et me retourne AA1, AA2....

mais je ne suis pas sur pour la fonction min.

sachant que l'erreur que me renvoie excel est il faut un séparateur. j'ai essayé différent manière de l'écrire avec des , des ; des & rien n'y fait je ne peut pas effectuer une selection différente d'une plage exemple AA1:CC17.

Avez vous une idée s'il vous plaît

 

[Dudu2]

Bonjour,
Le min de toutes les cellules c'est...

    With synth
        ValeurMin = Application.Min(Union(.Range("AA1").Resize(5), _
                                          .Range("AD1").Resize(5), _
                                          .Range("AG1").Resize(5), _
                                          .Range("AM1").Resize(5)))
    End With

 

[Kyirra]

Bonjour si je comprends bien ton code ca ne correspond absolument pas à ce que je cherche
ton code change la taille des cellules moi ce que je recherche à avoir c'est sur une ligne mettons j'ai :

6-5-8-7-1-6

valeur min prendra alors la valeur 1


par contre merci pour union je vais voir ca va peut-être m'aider à faire quelque chose avec !

 

[Dudu2]

Bonjour,

si je comprends bien ton code ca ne correspond absolument pas à ce que je cherche
ton code change la taille des cellules

Donc d'après toi .Range("AA1").Resize(5) change la taille des cellules !
OK...

C'est sûr ça correspond pas à ta demande.

Edit: pourtant j'ai fait cette proposition avec application, la preuve j'ai mis Application.Min