automatiser ???

isa_nick

XLDnaute Nouveau
Bonjour

un petit exemple de ce que je veux faire en pièce jointe. (deux petites feuilles) quand je tape un numéro j'aimerais que le nom de l'agence d'interim s'affiche automatiquement . Pouvez vous m'aider??
merci d'avance
 

Pièces jointes

  • interim.xls
    13.5 KB · Affichages: 57
  • interim.xls
    13.5 KB · Affichages: 56
  • interim.xls
    13.5 KB · Affichages: 59

kjin

XLDnaute Barbatruc
Re : automatiser ???

Bonjour,
RechercheV en VBA, dans le module de la feuille1
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 1 And Target.Row > 1 Then
On Error Resume Next
Target = Application.WorksheetFunction.VLookup(Target, Sheets(2).Range("A2:B5"), 2, 0)
End If
End Sub
A+
kjin
 

Statistiques des forums

Discussions
312 584
Messages
2 089 991
Membres
104 330
dernier inscrit
joedal