Discussion :

[dodo69]

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

Code :

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

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

[MarcelG]

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 :

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

Feuil1

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

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

Code :

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

Sheets("Feuil1")

ou bien

Code :

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

Sheets(x)

[MarcelG]

Je reviens

Ecrire

Code :

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

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 :

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

Target.Interior...

D'autre part, il y a un espace inclus dans 3 lignes de ton code (Après Address)

[dodo69]

Bonjour MarcelG,

Tout d'abord merci pour l'information

Code :

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

Target.Interior

Ca allège bien le code

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

[MarcelG]

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 :

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

If Target.Cells.Count = 1

(à adapter)

[dodo69]

Merci de ta proposition malheureusement ca na marche pas :s

Code :

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

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 ?

[MarcelG]

Dodo69

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

Précise la ligne qui buggue.

Sinon, tu peux écrire

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
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

[dodo69]

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 :

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
 
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