Qu'appelle tu tourner en boucle ?
Peux tu nous faire un schéma, une maquette, quelque chose de visuel.
Il y a bien le champ carrousel, mais il ne comporte pas d'onglets
Salut
boucle onglet
![[IMG]](https://mafiadoc.com/img/260x300/chrome-os-user-guide-statichighspeedb_59d7dc611723ddad58bab63b.jpg)
sur cette vidéo il y a ce principe
A tester (j'ai pas testé mais ça devrait aller) :
Sub Test()
Dim Fe As Worksheet
Dim Plage_A As Range
Dim Plage_N As Range
Dim Cel As Range
'défini la plage en colonne A de feuille "Feuil1"
With Worksheets("Feuil1")
Set Plage_A = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
End With
For Each Fe In Worksheets
If Fe.Name <> "bbb" Then
'défini la plage en colonne N de la feuille en cours
With Fe
Set Plage_N = .Range(.Cells(1, 14), .Cells(.Rows.Count, 14).End(xlUp))
End With
'boucle sur la plage
For Each Cel In Plage_N
If Application.CountIf(Plage_A, Cel.Value) > 0 Then Cel.Interior.ColorIndex = 26
Next Cel
End If
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
boucle onglet
sur cette vidéo il y a ce principe
A tester (j'ai pas testé mais ça devrait aller) :
Sub Test()
Dim Fe As Worksheet
Dim Plage_A As Range
Dim Plage_N As Range
Dim Cel As Range
'défini la plage en colonne A de feuille "Feuil1"
With Worksheets("Feuil1")
Set Plage_A = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
End With
For Each Fe In Worksheets
If Fe.Name <> "bbb" Then
'défini la plage en colonne N de la feuille en cours
With Fe
Set Plage_N = .Range(.Cells(1, 14), .Cells(.Rows.Count, 14).End(xlUp))
End With
'boucle sur la plage
For Each Cel In Plage_N
If Application.CountIf(Plage_A, Cel.Value) > 0 Then Cel.Interior.ColorIndex = 26
Next Cel
End If
![[IMG]](https://imageshack.com/a/img907/1379/bfHFhu.jpg)