Message d'erreur
Résolu
NoviceVBA2017
Messages postés
26
Statut
Membre
-
NoviceVBA2017 Messages postés 26 Statut Membre -
NoviceVBA2017 Messages postés 26 Statut Membre -
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? ^^
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? ^^
