Si themealarme est listbox
tu récuperes sa proprieté index attention
sans doute départ à 0

Tu devrais plutot déclarer une variable
Dim Mafeuille as Worksheet

et pour l'affecter (à mettre après ta recherche de la feuille correspondant au thème de l'utilisateur)
set Mafeuille = ActiveWorkbook.Worksheet("Feuil" & k)

et apres a chaque fois que tu voudras t'en servir tu feras simplement Mafeuille.cells(....)

ca devrait etre bon normalement

Par contre tet kil y'a un s a worksheet chais plus trop, donc ca donnerait

set Mafeuille = ActiveWorkbook.Worksheets("Feuil" & k)

Bonjour Lydia,
Tu peux essayer ça :

Sub Boucle()

  Select Case ThemeAlarm_Text
  Case "Air"
    k = 1
  Case "Apnée"
    k = 2
  End Select
  
  Sheets("Feuil" & k).Select
  
  For i = 2 To Range(Cells(1, 1), Cells(1, 1)).End(xlDown).Row
    MessageAlarme.AddItem Cells(i, 1).Value
  Next i
  
End Sub

Salut,

Fait comme ceci :

Sub TestFeuille()

..Dim K As Integer
..Dim MaFeuille As Worksheet

..For K = 1 To 3
....Set MaFeuille = Worksheets("Feuil" & K)
....MsgBox MaFeuille.Name
..Next K

End Sub

Sous OXP, WXP ça roule très bien chez moi.

Lupin
~L'essentiel est invisible pour les yeux~
~On ne voit bien qu'avec le coeur~

Re:

en fait :
Worksheets("Feuil" & k) = <l'indice n'appartient pas à la sélection>

-->> que vaut [K] ?

Le message t'indique que tu tente de sélectionner une feuille qui n'existe pas !

Lupin
~L'essentiel est invisible pour les yeux~
~On ne voit bien qu'avec le coeur~

Salut,

J'ai vu ton souci et j'ai créer ce petit module pour une seule feuille et ça marche.
Il ne reste qu'à l'adapter à ton cas.

J'ai consideré dans mon module une seule feuille (donc k=1)

sub a()
Dim k as long, r as long
Dim i as long
k=1 ' donc la 1ere feuille
r=1 'initialisation de la variable ( on commence de la 1ere ligne)

Do
If IsEmpty(Sheets("feuil" & k).Cells(r,1)) Then
'on cherche dans la 1ere colonne
Exit Do
End If
r=r+1
Loop
MsgBox "numèro de ligne de la 1ere cell vide " & r

'on commence à la 1er ligne jusqu'à la dernière cellule non vide
For i=1 to r-1
'affiche le contenu des cellules non vides
MsgBox "contenu cells = " & Sheets("feuil" & k).Cells(i,1)
Next i
End Sub

Les MsgBox ne sont que pour tester.
Tu adaptes après à ton exercice :

MessageAlarme.AddItem Sheets("feuil" & k).Cells(i,1)

Je vais écrire encore une fois le module sans commentaires

-------------------------------------------------------------------
sub a()
Dim k as long, r as long
Dim i as long
k=1
r=1

Do
If IsEmpty(Sheets("feuil" & k).Cells(r,1)) Then
Exit Do
End If
r=r+1
Loop
MsgBox "numèro de ligne de la 1ere cell vide " & r

For i=1 to r-1
MsgBox "contenu cells = " & Sheets("feuil" & k).Cells(i,1)
Next i
End Sub
------------------------------------------------------------------
A+

Est ce que cette boucle est juste ?sinon ou est le probléme? et merci