problème d'execution lors d'une sélection

Version imprimable

Bonjour,
J'ai un code pour exécuter une macro lorsque je clique sur une cellule
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 Then If Target.Value <> "" And IsNumeric(Target.Value) Then Feuil6.Range(Target.Address).Font.ColorIndex = 3 Feuil6.Range(Target.Address).Interior.ColorIndex = 6 Feuil6.Range(Target.Address).Font.Bold = True Feuil1.Select Feuil1.Rows(Target.Value).Select End If End If End Sub
Le problème c'est lorsque je selectionne la ligne ou y a une valeur sur la feuille 6 , ca créer une "erreur d'execution 13 : incompatibilité de type"

Est ce que quelqu'un peut corriger le code de manière a ce que ma macro ne plante pas svp.

Je ne maitrise absolument pas ce genre de manipulation.

Merci d'avance
Cordialement
DoDo

13/01/2011, 09h08
MarcelG

erreur sélection

Bonjour Dodo69, Bonjour le Forum,

Je viens d'éxécuter ton code (excel 2003) sans problème.

Sur quelle ligne se présente le bug?

Précision au cas où

Code:

Feuil1

désigne le nom de ta feuille dans ton éditeur VBE.

Si tel n'est pas le cas, il faudrait écrire

Code:

Sheets("Feuil1")

ou bien

Code:

Sheets(x)
13/01/2011, 09h16
MarcelG

précision target

Je reviens

Ecrire

Code:

Feuil6.Range(Target.Address)

est redondant.

En effet, ton évènement est écrit dans le code de ta feuille.
De plus, Target est déclarée comme un objet Range.

Tu peux donc écrire

Code:

Target.Interior...

D'autre part, il y a un espace inclus dans 3 lignes de ton code (Après Address)
13/01/2011, 09h33
dodo69

Bonjour MarcelG,

Tout d'abord merci pour l'information

Code:

Target.Interior

Ca allège bien le code :D

Après, pour être un peu plus précis:

J'ai un programme qui cherche des numéro de ligne qui comporte des erreurs dans la base de donnée (feuille1), la macro écrit ces numéros de ligne sur la feuil6 dans la colonne A , les uns a la suite des autres...

Lorsque l'utilisateur clique sur un de ses numéros (feuil6) le code que je t'ai montré va selectionner la ligne de la feuil1, jusqu'a là ya pas de problème le code marche

Cependant, si l'utilisateur, au lieu de juste cliquer sur une celulle, selectionne une ligne complète, ou alors selectionne plusieur cellule de la colonne A, Il y a un problème d'éxécution...

Je sais pas si j'ai été clair , n'hésite pas à me demandé si ce n'est aps le cas..

Merci d'essayer de m'aider
13/01/2011, 09h41
MarcelG

target

Dans ce cas, tu peux tester sur le nombre de cellules sélectionnées.

En effet, Target est un objet Range, ce qui signifie que plusieurs cellules peuvent être concernées.

Si tu ne veux appliquer ton code évènement que pour la sélection d'une cellule.

Tu peux coder

Code:

If Target.Cells.Count = 1

(à adapter)

Merci de ta proposition malheureusement ca na marche pas :s

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Target.Column = 1 Then
     If Target.Value <> "" And IsNumeric(Target.Value) And Target.Cells.Count = 1 Then
        Target.Font.ColorIndex = 3
        Target.Interior.ColorIndex = 6
        Target.Font.Bold = True
        Feuil1.Select
        Feuil1.Rows(Target.Value).Select
     End If
End If
End Sub

Autrement y a pas un code pour dire
Si jamais y a une erreur, alors ne rien faire ?

target

Dodo69

Je viens de recopier ton code intégral. Aucun problème.

Précise la ligne qui buggue.

Sinon, tu peux écrire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
        If .Cells.Count > 1 Then
            MsgBox "Erreur!"
            Exit Sub
        End If
        If .Column = 1 Then
             If .Value <> "" And IsNumeric(Target.Value) Then
                .Font.ColorIndex = 3
                .Interior.ColorIndex = 6
                .Font.Bold = True
                Feuil1.Select
                Feuil1.Rows(Target.Value).Select
             End If
        End If
End With
End Sub

Ba pour faire simple, Toutes les ligne bug :s

Mais c'est pas grave, tu as trouver la solution que j'attendais

J'ai donc au final:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
        If .Cells.Count > 1 Then
 
            Exit Sub
        End If
        If .Column = 1 Then
             If .Value <> "" And IsNumeric(Target.Value) Then
                .Font.ColorIndex = 3
                .Interior.ColorIndex = 6
                .Font.Bold = True
                Feuil1.Select
                Feuil1.Rows(Target.Value).Select
             End If
        End If
End With
End Sub

Merci pour ton aide MarcelG
A bientot, Je trouve tes explication très claires c'est très appréciable

Merci
A bientot
Cordialement
Dodo