Pourquoi j'ai subitement "erreur d'execution '1004'' ici ? [résolu]

anthoYS

XLDnaute Barbatruc
Bonjour,

VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 10 Then
Cells(Target.Row, 1).Interior.ColorIndex = 4
Cells(Target.Row, 2).Interior.ColorIndex = 4
Cells(Target.Row, 3).Interior.ColorIndex = 4
Cells(Target.Row, 4).Interior.ColorIndex = 4
Cells(Target.Row, 5).Interior.ColorIndex = 4
Cells(Target.Row, 6).Interior.ColorIndex = 4
Cells(Target.Row, 7).Interior.ColorIndex = 4
Cells(Target.Row, 8).Interior.ColorIndex = 4
Cells(Target.Row, 9).Interior.ColorIndex = 4
End If
If Target.Column = 5 Then
Cells(Target.Row, 5) = Date
End If
Cancel = True
If Not Application.Intersect(Target, [J:J]) Is Nothing Then
Target.Value = IIf(Not Target.Value = "þ", "þ", "o")
    If Target.Value = "þ" Then
        Range(Target.Offset(0, -1), Target.Offset(0, -9)).Interior.ColorIndex = 15
            Else
        Range(Target.Offset(0, -1), Target.Offset(0, -9)).Interior.ColorIndex = xlNone
    End If
End If
If Not Application.Intersect(Target, [I:I]) Is Nothing Then
Target.Value = IIf(Not Target.Value = "þ", "þ", "o")
    If Target.Value = "þ" Then
        Range(Target.Offset(0, -1), Target.Offset(0, -9)).Interior.ColorIndex = 4
            Else
        Range(Target.Offset(0, -1), Target.Offset(0, -9)).Interior.ColorIndex = xlNone
    End If
End If
End Sub
la ligne mis en surbrillance (fond jaune) lors du débogage, ça ne colore que la cellule de la colonne 9 après double clic en vert en ajoutant le symbole "þ"

VB:
 Range(Target.Offset(0, -1), Target.Offset(0, -9)).Interior.ColorIndex = 4

Merci
à+
 

kjin

XLDnaute Barbatruc
Bonjour,

VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 10 Then
Cells(Target.Row, 1).Interior.ColorIndex = 4
Cells(Target.Row, 2).Interior.ColorIndex = 4
Cells(Target.Row, 3).Interior.ColorIndex = 4
Cells(Target.Row, 4).Interior.ColorIndex = 4
Cells(Target.Row, 5).Interior.ColorIndex = 4
Cells(Target.Row, 6).Interior.ColorIndex = 4
Cells(Target.Row, 7).Interior.ColorIndex = 4
Cells(Target.Row, 8).Interior.ColorIndex = 4
Cells(Target.Row, 9).Interior.ColorIndex = 4
End If
If Target.Column = 5 Then
Cells(Target.Row, 5) = Date
End If
Cancel = True
If Not Application.Intersect(Target, [J:J]) Is Nothing Then
Target.Value = IIf(Not Target.Value = "þ", "þ", "o")
    If Target.Value = "þ" Then
        Range(Target.Offset(0, -1), Target.Offset(0, -9)).Interior.ColorIndex = 15
            Else
        Range(Target.Offset(0, -1), Target.Offset(0, -9)).Interior.ColorIndex = xlNone
    End If
End If
If Not Application.Intersect(Target, [I:I]) Is Nothing Then
    If Target.Value = "þ" Then
        Range(Target.Offset(0, -1), Target.Offset(0, -9)).Interior.ColorIndex = 4
            Else
        Range(Target.Offset(0, -1), Target.Offset(0, -9)).Interior.ColorIndex = xlNone
    End If
End If
End Sub
la ligne mis en surbrillance (fond jaune) lors du débogage, ça ne colore que la cellule de la colonne 9 après double clic en vert en ajoutant le symbole "þ"

VB:
 Range(Target.Offset(0, -1), Target.Offset(0, -9)).Interior.ColorIndex = 4

Merci
à+
Coucou
Sacré Antho
Code:
Target.Value = IIf(Not Target.Value = "þ", "þ", "o")
litteralement si la cellule cible n'a pas la valeur de la cellule cible...
Ou je suis débile et ce n'est pas impossible
A+kjin
 

Staple1600

XLDnaute Barbatruc
Bonsoir le fil, le forum

Juste pour le plaisir de croiser le sieur kjin ;)

Sinon pour la question, rien que ce test affiche le message d'erreur
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, [I:I]) Is Nothing Then
MsgBox Range(Target.Offset(0, -1), Target.Offset(0, -9)).Address
End If
End Sub
 

youky(BJ)

XLDnaute Barbatruc
Bonjour à tous,
Un petit truc à voir . . .
Range(Target.Offset(0, -1), Target.Offset(0, -9)).Interior.ColorIndex = 15
le -9 . . .si on doubleClick avant la colonne J erreur
Si exemple doubleclick en colonne G soit 7.......... 7-9 =-2 une colonne à -2 c'est pas bon
Bruno
 

kjin

XLDnaute Barbatruc
Bon OK salut à tous,
Je bataille depuis un bon moment avec cette interface que je ne connais pas et c'est pas gagné
Antho, la colonne I est la 9e colonne si tu soustrais 9 forcément tu vas avoir des soucis
A+
kjin
 

anthoYS

XLDnaute Barbatruc
Bon OK salut à tous,
Je bataille depuis un bon moment avec cette interface que je ne connais pas et c'est pas gagné
Antho, la colonne I est la 9e colonne si tu soustrais 9 forcément tu vas avoir des soucis
A+
kjin
Merci @kjin , écoutes, auparavant je n'avais jamais aucun problème, j'ai du rajouter une colonne où un truc dans le genre sans m'en souvenir, du moins avoir omis le code, d'en changer (j'en ai tellement dans tellement de feuilles, mais bon ça c'est mon problème, s'il s'agit d'un problème) !

à+
 

Si...

XLDnaute Barbatruc
Bonsoir

Range(Target.Offset(0, -1), Target.Offset(0, -9)) : on n'a pas de colonne 0 !
A tester
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Oust As Boolean)
    Cells(R.Row, 1).Resize(, 10).Interior.ColorIndex = -4142
    Select Case R.Column
       Case 5: Cells(R.Row, 5) = Date
       Case 10
         R = IIf(R = "þ", "o", "þ")
         Cells(R.Row, 1).Resize(, 9).Interior.ColorIndex = IIf(R = "þ", 15, -4142)
      Case 9
        R = IIf(Not R.Value = "þ", "þ", "o")
        Cells(R.Row, 1).Resize(, 8).Interior.ColorIndex = IIf(R = "þ", 45, -4142)
    End Select
    Oust = 1
End Sub
Nota :vérifier le nombre de colonnes à colorier
 

anthoYS

XLDnaute Barbatruc
Merci @kjin , écoutes, auparavant je n'avais jamais aucun problème, j'ai du rajouter une colonne où un truc dans le genre sans m'en souvenir, du moins avoir omis le code, d'en changer (j'en ai tellement dans tellement de feuilles, mais bon ça c'est mon problème, s'il s'agit d'un problème) !

à+
Bonsoir @Si...

Merci à toi également.

---

Edit : c'est Interior.ColorIndex = "4" pas "-4142" ça c'est du orange, je veux du vert, pour le gris c'est ok ! sinon c'est super, mais c'est résolu comme tu l'as déduit.
 
Dernière édition:

youky(BJ)

XLDnaute Barbatruc
Tout en restant transparent je salue particulièrement Jean Marie ainsi que tout ceux qui se décarcasse pour apporter une solution à une personne qui ne daigne même pas nous adresser le moindre mot.
C'est assez frustrant.
PS: je suis pas sur qu'il lise ce message car je reste transparent
 

anthoYS

XLDnaute Barbatruc
Tout en restant transparent je salue particulièrement Jean Marie ainsi que tout ceux qui se décarcasse pour apporter une solution à une personne qui ne daigne même pas nous adresser le moindre mot.
C'est assez frustrant.
PS: je suis pas sur qu'il lise ce message car je reste transparent
Bonjour @youky(BJ).


La frustration viens d'un manque, quand on donne avec le coeur on attend rien, on est heureux de le faire en principe sans se plaindre, s'il y a des failles "émotives" en vous, fallait les régler... je dis ça je dis rien.

N'est transparent que celui qui le croit ou le veux bien... toutefois je m'excuses si je t'es blessé.
Nous nous faisons tous des idées, la preuve. Sur ce.


Merci pour ta réponse.
Bonne journée !
 

Staple1600

XLDnaute Barbatruc
Bonjour le fil, le forum, anthoYS, kjin, Youki(BJ), Si..., eriiiic

Je suis passé de transparent à invisible.
anthoYS, sur mon petit carnet, je vais noter ce jour : sobriquet pour anthoYS; Nak1Oeil

Merci à Youki(BJ) de m'avoir sorti des limbes, accompagné par Si...

PS: anthoYS, je suis sur le registre de l'humour, donc pas d'invectives inutiles, stp ;)
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas