comment sélectionner la dernière cellule non vide (colonne de sélection "b2:b100") avec ce code-ci:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "" Then Exit Sub
If Target.Value <> Range("d2").Value Then
erreur
MsgBox "Erreur !", vbExclamation, "Microsoft"
Exit Sub
End If
End Sub
Non, c'est celle qui est au fond du couloir à droite, en remontant, la cellule qui se trouve juste à côté de l'ascensceur; qui lui... est en panne, comme d'habitude!!
Note: si Staple passait par là, il tomberait dans le trou.
Trève de plaisanteries: j'ai trouvé. Il fallait ajouter ceci: Range(Target, ActiveCell.End(xlUp)).Select