Erreur d'exécution '13': Incompatibilité de Type Résolu/Fermé

Question

Bonjour, J'ai crée une macro VBA qui permet d'attribuer une valeur (texte) dans la colonne D si il trouve une valeur prédéfini dans la colonne B. Par exemple si dans cellule B6 j'ai "Voiture" alors dans cellule D6 j'aurai automatiquement "Loué". Ma macro fonctionne très bien pour chaque valeur saisi, Maintenant si j'ai la même valeur à appliquer sur une plage de 10 ligne, en étendant la 1er valeur sur les 9 autres j'obtiens un débogage avec l'erreur Incompatibilité de Type. Pouvez vous m'aider SVP. Voici un morceau de code : Private Sub Worksheet_Change(ByVal Target As Range) ligne = Target.Row col = Target.Column If Target.Column = 2 Then If Target = "voiture" Then Cells(ligne, 4).Value = "loué" End If Windows XP / Internet Explorer 7.0

Utilisateur anonyme · Accepted Answer

Bonjour

Il y a bien un problème avec ton code
Quand tu sélectionnes une zone de plusieurs cellules, ton objet Target contient plusieurs cellules et ta comparaison If Target = "voiture" se heurte bien à un problème de type.
Il faut boucler sur toutes les cellules de Target pour ne comparer qu'une seule cellule à la fois.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ligne As Integer, col As Integer
    '
    '
    For ligne = Target.Row To Target.Row + Target.Rows.Count - 1
      For col = Target.Column To Target.Column + Target.Columns.Count - 1
        If col = 2 Then
            If Cells(ligne, col) = "voiture" Then
                Cells(ligne, 4).Value = "loué"
            End If
        End If
      Next col
    Next ligne
End Sub

Heliotte · Answer

Bonjour,

Cela fonctionne très bien chez moi .. je ne voit pas de problème .. vérifiez:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ligne As Integer, col As Integer
    '
    ligne = Target.Row
    col = Target.Column
    '
    If Target.Column = 2 Then
        If Target = "voiture" Then
            Cells(ligne, 4).Value = "loué"
        End If
    End If
End Sub

Conseils:
- Toujours écrire "Option Explicit" en début de page, de cette façon, obliger de déclarer les variables .. avantage: plus aucune variable passe inaperçu !
- vérifier les "End ..": End If, End Sub, etc
- Indenter le code pour y voir plus clair
...

SLM-BHY · Answer

Bonjour, 

Tout d'abord Merci à vous deux pour votre aide. 

"Heliotte" En fait mon code fonctionne très bien seulement si sur 10 ligne j'ai "Voiture" au lieu de faire 10 copier coller je veux étendre la cellule de la 1er ligne selectionné sur les 9 autres. Et la j'obtenais l'erreur 13. 

"le père." Je te remercie cela fonctionne très bien !! :D 

Seulement je n'ai pas très bien compris les deux lignes que tu as ajouté (Je suis débutant en VBA donc désolé pour les question nul ^^) :

For ligne = Target.Row To Target.Row + Target.Rows.Count - 1
For col = Target.Column To Target.Column + Target.Columns.Count - 1

Erreur d'exécution '13': Incompatibilité de Type

3 réponses

Discussions similaires