Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
Sub Suivant()
Dim xrg As Range, i&
Set xrg = Range("a1").ListObject.ListColumns(1).Range
For i = 2 To xrg.Count
If xrg(i, 1).Value = [h3].Value Then Exit For
Next i
If i >= xrg.Count Then i = 2 Else i = i + 1
[h3].NumberFormat = Cells(i, 1).NumberFormat: [h3] = Cells(i, 1)
End Sub
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD