L
loulou
Guest
bonsoir
dans ma macro ObtenirNom1, je cherche une valeur(pc) dans une table
et celle -ci m'est bien renvoyée.
mon probléme se pose lorsque je veux faire des recherches dans la colonne PC, ma boucle ne fonctionne pas( voir Sub ObtenirNom2)
Sub ObtenirNom1()
Dim PC, Table, MonBureau As String, i As Integer
PC = Range("C2")
Table = Range("I2:J350")
Worksheets("Calendrier").Activate
MonBureau = Application.WorksheetFunction. _
VLookup(PC, Table, 2, False)
If MonBureau <> "" Then
Cells(2, 4) = MonBureau
Else
Cells(2, 4) = ""
End If
End Sub
Sub ObtenirNom2()
Dim PC, Table, MonBureau As String, i As Integer
PC = Range("C2").End(xlDown).Row
Table = Range("I2:J350")
Worksheets("Calendrier").Activate
For i = 2 To PC
MonBureau = Application.WorksheetFunction. _
VLookup(i, Table, 2, False)
Next i
If MonBureau <> "" Then
Cells(2, 4) = MonBureau
End If
End Sub
merci d'avance
a+ bonne soirée
dans ma macro ObtenirNom1, je cherche une valeur(pc) dans une table
et celle -ci m'est bien renvoyée.
mon probléme se pose lorsque je veux faire des recherches dans la colonne PC, ma boucle ne fonctionne pas( voir Sub ObtenirNom2)
Sub ObtenirNom1()
Dim PC, Table, MonBureau As String, i As Integer
PC = Range("C2")
Table = Range("I2:J350")
Worksheets("Calendrier").Activate
MonBureau = Application.WorksheetFunction. _
VLookup(PC, Table, 2, False)
If MonBureau <> "" Then
Cells(2, 4) = MonBureau
Else
Cells(2, 4) = ""
End If
End Sub
Sub ObtenirNom2()
Dim PC, Table, MonBureau As String, i As Integer
PC = Range("C2").End(xlDown).Row
Table = Range("I2:J350")
Worksheets("Calendrier").Activate
For i = 2 To PC
MonBureau = Application.WorksheetFunction. _
VLookup(i, Table, 2, False)
Next i
If MonBureau <> "" Then
Cells(2, 4) = MonBureau
End If
End Sub
merci d'avance
a+ bonne soirée