Menu

Message d'erreur [Résolu]

NoviceVBA2017 10 Messages postés dimanche 29 janvier 2017Date d'inscription 5 janvier 2018 Dernière intervention - 3 janv. 2018 à 11:46 - Dernière réponse : NoviceVBA2017 10 Messages postés dimanche 29 janvier 2017Date d'inscription 5 janvier 2018 Dernière intervention
- 3 janv. 2018 à 12:26
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? ^^
Afficher la suite 

2 réponses

Répondre au sujet
via55 9281 Messages postés mercredi 16 janvier 2013Date d'inscription 24 avril 2018 Dernière intervention - 3 janv. 2018 à 12:09
0
Utile
1
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
NoviceVBA2017 10 Messages postés dimanche 29 janvier 2017Date d'inscription 5 janvier 2018 Dernière intervention - 3 janv. 2018 à 12:26
Olala, vous êtes toujours aussi rapides et efficaces sur ce forum ^^
Merci, excellente journée à toi ;-)
Commenter la réponse de via55