Contenu récent par Tlorf

@patricktoulon, merci pour votre réponse. Bon en effet je me suis un peu compliqué la tâche, j'ai bricolé avec ce que je connaissais. Je ne connaissais pas la forme d'écriture "plage.Cells(i).Address(0, 0)", que j'ai transformé en "plage.Cells(i).Value" et cela règle mon problème. Aussi j'avais...

Merci pour votre apport pertinent

Bonjour, voici une piste : rassembler le contenu des cellules dans un tableau et tester le contenu à rebours ? : Function CHOIX(my_range As Variant) Dim ma_tab(1000000) Dim i_tab As Integer i_tab = my_range.Cells.Count - 1 rebours = 0 For Each cell In my_range ma_tab(i_tab - rebours) =...