Message d'erreur

Résolu
NoviceVBA2017 Messages postés 26 Date d'inscription   Statut Membre Dernière intervention   -  
NoviceVBA2017 Messages postés 26 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je cherche à créer une macro qui, lors d'un changement de valeur d'une cellule de la colonne A, renseignerait automatiquement une formule dans la cellule adjacente. J'ai donc ceci:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 Then
thisrow = Target.Row
If Target.Value <> "" Then
Range("B" & thisrow).FormulaLocal = "=RECHERCHEV(A" & thisrow & ";Liste!A:B;2;0)"
End If
End If
End Sub

Mon problème est que lorsque je sélectionne puis supprime une plage de plusieurs cellules dans la colonne A, je reçois un message d'erreur.
Quelqu'un pourrait venir à mon secours svp? ^^
A voir également:

1 réponse

via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
Bonjour

C'est normal car en sélectionnant plusieurs cellules la macro ne peut effectuer If target.Value =1
Il faut donc ne faire appliquer la macro que lorsqu'une seule ligne change en modifiant ainsi la 1ere ligne :
If Target.Column = 1 And Target.Count = 1 Then


Cdlmnt
Via
0
NoviceVBA2017 Messages postés 26 Date d'inscription   Statut Membre Dernière intervention  
 
Olala, vous êtes toujours aussi rapides et efficaces sur ce forum ^^
Merci, excellente journée à toi ;-)
0