Discussion :

[Sebastien0682]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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

Quelques remarques

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub t()
 Dim sht As Worksheet
 Set sht = ActiveSheet
 Debug.Print sht.Name
 Set sht = Nothing
End Sub

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

[Sebastien0682]

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

[Philippe Tulliez]

Bonjour,

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"