Problème avec Activesheet

Bonjour,

Je ne sais pas si quelqu'un a déjà rencontré ce problème, mais ActiveSheet ne renvoie pas un objet sheet. Si j'utilise un ActiveSheet.name il me renvoie le nom sur le debug.print.
j'utilise mon code pour réinitialiser un userform, dans une autre macro je n'ai pas ce problème pourtant le principe est le même.
quelqu'un aurait une idée? le code n'a rien d'extraordinaire
merci de votre collaboration

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Sub AlimenterTxtBox() Dim f2 As Worksheet Dim l As Integer   Set f2 = ThisWorkbook.Sheets("SUP_Tools")   l = f2.Range("A" & Rows.Count).End(xlUp).Row NumCountTool = 0 Debug.Print ActiveSheet.Name   Do While NumCountTool < l + 1 And ActiveSheet.Range("B11").Value = f2.Cells(NumCountTool, 1).Value NumCountTool = NumCountTool + 1 Loop Debug.Print NumCountTool   If f2.Cells(NumCountTool, 6) <> "" Then Me.OPT_Cloture.Value = False Else Me.OPT_Cloture.Value = True End If   If f2.Cells(NumCountTool, 5) <> "" Then Me.OPT_Rapport.Value = False Else Me.OPT_Rapport.Value = True End If   Me.TXT_DateClotue.Value = f2.Cells(NumCountTool, 7).Value Me.TXT_COM = f2.Cells(NumCountTool, 8).Value

---

Bonjour,
Votre demande n'est pas très claire pour moi.
Que voulez-vous faire exactement ?

Quelques remarques

Citation:

---

Je ne sais pas si quelqu'un a déjà rencontré ce problème, mais ActiveSheet ne renvoie pas un objet sheet.

---

ActiveSheet EST un objet Sheet comme ActiveCell est un objet Range et ActiveWorkbook est un objet Workbook donc si vous voulez utiliser une variable objet de type WorkSheet, le code ci-dessous vous affichera le même résultat.

Code:

---

1 2 3 4 5 6

Sub t() Dim sht As Worksheet Set sht = ActiveSheet Debug.Print sht.Name Set sht = Nothing End Sub

---

Citation:

---

Si j'utilise un ActiveSheet.name il me renvoie le nom sur le debug.print.

---

Il vous renvoie le nom dans la fenêtre d'exécution parce-que c'est vous qui l'avez voulu par votre instruction Debug.Print ActiveSheet.Name

La feuille active (ActiveSheet) reste active même si l'on écrit ou lit dans une autre feuille comme vous le faites à l'aide de la variable objet f2

Merci d'utiliser les balises prévues à cet effet lorsque vous publiez un code VBA
Pièce jointe 619968

Bonjour Merci,

Pour votre réponse et explication pour insérer le code sur le forum
Mon problème s 'est résolu tout seul et devait correspondre à un bug.

Le programme ne reconnaissant le activesheet en tant qu'objet Sheet, bien qu'il me renvoyait les propriéts de ce dernier.
C'est une commande usuelle que j'utilise et ca ne me l'avait jamais.

je met un resolu sur le forum.
cdt

Bonjour,

Citation:

---

Mon problème s 'est résolu tout seul et devait correspondre à un bug.

---

C'est que vous avez changé la feuille active manuellement ou à l'aide de la méthode Activate.
Comme je l'ai écrit dans ma réponse précédente "La feuille active (ActiveSheet) reste active même si l'on écrit ou lit dans une autre feuille comme vous le faites à l'aide de la variable objet f2"