OVH Cloud OVH Cloud

Onglet fantome

5 réponses
Avatar
Érico
Bonjour,

Une chose bizarre qui m'arrive:

Quand je masque des lignes, une main apparait partout dans mon onglet qui
exécute une macro.

Comment enlevé ceci?

Merci

Érico de Montréal

5 réponses

Avatar
anonymousA
Bonjour,

SI j'ai bien compris c'est en utilisant la commande &Masquer que ca te
le fait .Si c'est le cas, c'est que le controle ou les controles
&Masquer Built-in d'Excel ont été détournés au profit d'autres
commandes que celles habituelles. Si tu as accès au code, tu devrais
trouver facilement ce qui déclenche cette affaire. Sinon, 2 choix.
Soit tu reprends la main en revalidant celles-ci par programmation ,
soit tu reviens ici et on te guidera.

A+

Quand tu masques des lignes
Érico wrote:
Bonjour,

Une chose bizarre qui m'arrive:

Quand je masque des lignes, une main apparait partout dans mon onglet qui
exécute une macro.

Comment enlevé ceci?

Merci

Érico de Montréal


Avatar
Érico
Je viens de découvrir que c'est aussi en mettant une protection.

"Érico" a écrit dans le message de news:

Bonjour,

Une chose bizarre qui m'arrive:

Quand je masque des lignes, une main apparait partout dans mon onglet qui
exécute une macro.

Comment enlevé ceci?

Merci

Érico de Montréal



Avatar
Érico
ça arrive quand je masque un certains nombres de lignes, peu importe où.

Voici ma macro de l'onglet:
Private Sub Worksheet_Change(ByVal Target As Range)
' If Not Intersect([A17:AO70,A76:AO101,A106:AO126,B132:AO152], Target) Is
Nothing And Target.Count = 1 Then
If Target.Count = 1 Then

'Target.Interior.ColorIndex = 40
'Selection.Font.ColorIndex = 3
Target.Font.ColorIndex = 3
Else
Const iMin As Long = 17 'A ajuster
Const iMax As Long = 169 'A ajuster
Const iCol As Long = 57 'A ajuster

Dim Rg As Range
Set Rg = Intersect(Target, Range("BD" & iMin & ":BD" & iMax)) 'colonne
BD

If Not Rg Is Nothing Then
Application.EnableEvents = False
For Each c In Rg
If c <> "" Then
If IsNumeric(c) Then
If c.Offset(, 1).Value + c.Value > c.Offset(, -2).Value + _
c.Offset(, -1).Value Then
MsgBox "Le montant est supérieur à vos disponibilités."
c.Select
Application.EnableEvents = True
Set Rg1 = Target
Exit Sub
Else
c.Offset(0, 1).Value = c.Offset(0, 1).Value + c.Value
End If
Else
c.Value = ""
End If
End If
Next
Set Rg1 = Target
Application.EnableEvents = True
Else
Set Rg = Nothing
End If
End If
End Sub




"anonymousA" a écrit dans le message de news:

Bonjour,

SI j'ai bien compris c'est en utilisant la commande &Masquer que ca te
le fait .Si c'est le cas, c'est que le controle ou les controles
&Masquer Built-in d'Excel ont été détournés au profit d'autres
commandes que celles habituelles. Si tu as accès au code, tu devrais
trouver facilement ce qui déclenche cette affaire. Sinon, 2 choix.
Soit tu reprends la main en revalidant celles-ci par programmation ,
soit tu reviens ici et on te guidera.

A+

Quand tu masques des lignes
Érico wrote:
Bonjour,

Une chose bizarre qui m'arrive:

Quand je masque des lignes, une main apparait partout dans mon onglet qui
exécute une macro.

Comment enlevé ceci?

Merci

Érico de Montréal


Avatar
Érico
un autre indice, des fois ca apparait le main et des fois non quand je bouge
la souris et que j'utilise la roulette de la souris.

Bizarre non?


"Érico" a écrit dans le message de news:

ça arrive quand je masque un certains nombres de lignes, peu importe où.

Voici ma macro de l'onglet:
Private Sub Worksheet_Change(ByVal Target As Range)
' If Not Intersect([A17:AO70,A76:AO101,A106:AO126,B132:AO152], Target) Is
Nothing And Target.Count = 1 Then
If Target.Count = 1 Then

'Target.Interior.ColorIndex = 40
'Selection.Font.ColorIndex = 3
Target.Font.ColorIndex = 3
Else
Const iMin As Long = 17 'A ajuster
Const iMax As Long = 169 'A ajuster
Const iCol As Long = 57 'A ajuster

Dim Rg As Range
Set Rg = Intersect(Target, Range("BD" & iMin & ":BD" & iMax)) 'colonne
BD

If Not Rg Is Nothing Then
Application.EnableEvents = False
For Each c In Rg
If c <> "" Then
If IsNumeric(c) Then
If c.Offset(, 1).Value + c.Value > c.Offset(, -2).Value + _
c.Offset(, -1).Value Then
MsgBox "Le montant est supérieur à vos disponibilités."
c.Select
Application.EnableEvents = True
Set Rg1 = Target
Exit Sub
Else
c.Offset(0, 1).Value = c.Offset(0, 1).Value + c.Value
End If
Else
c.Value = ""
End If
End If
Next
Set Rg1 = Target
Application.EnableEvents = True
Else
Set Rg = Nothing
End If
End If
End Sub




"anonymousA" a écrit dans le message de news:

Bonjour,

SI j'ai bien compris c'est en utilisant la commande &Masquer que ca te
le fait .Si c'est le cas, c'est que le controle ou les controles
&Masquer Built-in d'Excel ont été détournés au profit d'autres
commandes que celles habituelles. Si tu as accès au code, tu devrais
trouver facilement ce qui déclenche cette affaire. Sinon, 2 choix.
Soit tu reprends la main en revalidant celles-ci par programmation ,
soit tu reviens ici et on te guidera.

A+

Quand tu masques des lignes
Érico wrote:
Bonjour,

Une chose bizarre qui m'arrive:

Quand je masque des lignes, une main apparait partout dans mon onglet qui
exécute une macro.

Comment enlevé ceci?

Merci

Érico de Montréal






Avatar
Érico
Je pense que j'ai trouvé pourquoi.

C'Est parce qu'il y avait un bouton qui était masqué, ce qui faisait comme
rendre le fichier disfonctionnelle.

Comment résoudre ceci?
"Érico" a écrit dans le message de news:
e7V$
un autre indice, des fois ca apparait le main et des fois non quand je
bouge la souris et que j'utilise la roulette de la souris.

Bizarre non?


"Érico" a écrit dans le message de news:

ça arrive quand je masque un certains nombres de lignes, peu importe où.

Voici ma macro de l'onglet:
Private Sub Worksheet_Change(ByVal Target As Range)
' If Not Intersect([A17:AO70,A76:AO101,A106:AO126,B132:AO152], Target) Is
Nothing And Target.Count = 1 Then
If Target.Count = 1 Then

'Target.Interior.ColorIndex = 40
'Selection.Font.ColorIndex = 3
Target.Font.ColorIndex = 3
Else
Const iMin As Long = 17 'A ajuster
Const iMax As Long = 169 'A ajuster
Const iCol As Long = 57 'A ajuster

Dim Rg As Range
Set Rg = Intersect(Target, Range("BD" & iMin & ":BD" & iMax)) 'colonne
BD

If Not Rg Is Nothing Then
Application.EnableEvents = False
For Each c In Rg
If c <> "" Then
If IsNumeric(c) Then
If c.Offset(, 1).Value + c.Value > c.Offset(, -2).Value +
_
c.Offset(, -1).Value Then
MsgBox "Le montant est supérieur à vos
disponibilités."
c.Select
Application.EnableEvents = True
Set Rg1 = Target
Exit Sub
Else
c.Offset(0, 1).Value = c.Offset(0, 1).Value + c.Value
End If
Else
c.Value = ""
End If
End If
Next
Set Rg1 = Target
Application.EnableEvents = True
Else
Set Rg = Nothing
End If
End If
End Sub




"anonymousA" a écrit dans le message de news:

Bonjour,

SI j'ai bien compris c'est en utilisant la commande &Masquer que ca te
le fait .Si c'est le cas, c'est que le controle ou les controles
&Masquer Built-in d'Excel ont été détournés au profit d'autres
commandes que celles habituelles. Si tu as accès au code, tu devrais
trouver facilement ce qui déclenche cette affaire. Sinon, 2 choix.
Soit tu reprends la main en revalidant celles-ci par programmation ,
soit tu reviens ici et on te guidera.

A+

Quand tu masques des lignes
Érico wrote:
Bonjour,

Une chose bizarre qui m'arrive:

Quand je masque des lignes, une main apparait partout dans mon onglet
qui
exécute une macro.

Comment enlevé ceci?

Merci

Érico de Montréal