Bonsoir LouLou, Jmt0
Merci à toi en tout cas jmt0, c'est bien vu, c'est une variable Byte qu'il faut vraissembalement changer...
Par contre je ne suis pas content du tout Loulou !
Pour mémoire, car je viens de perdre du temps à cause de la multiplications des Post de Loulou ! voici le code :
Sub ObtenirNomLoulou()
Dim x As Byte
Dim PC As Integer, i As Integer
Dim Table As Range
Dim MonBureau As String
PC = Sheets("Data").Range("C65536").End(xlUp).Row
Set Table = Sheets("Calendrier").Range("I2:J350")
x = 2
For i = 2 To PC
On Error Resume Next
MonBureau = Application.WorksheetFunction. _
VLookup(Sheets("Data").Cells(i, 3), Table, 2, False)
If Err = 1004 Then GoTo Suite
Sheets("Resultats").Cells(x, 4) = MonBureau
x = x + 1
Suite:
Next
End Sub
Par Conséquent, si tu as plus de de 255 matchings de VlookUp (!!!), oui c'est certain qu'il faut passer en Integer (32767)... et en Long si tu comptes aller au delà !
Pour ta gouverne Loulou tu devrais lire la Charte :
Car ceci c'est pas bien du tout :
Fil 01 <http://www.excel-downloads.com/html/French/forum/messages/1_64231_64231.htm>
Fil 02 <http://www.excel-downloads.com/html/French/forum/messages/1_64809_64809.htm>
Fil 03 <http://www.excel-downloads.com/html/French/forum/messages/1_64951_64951.htm>
Plus celui là ! comment veux-tu qu'on s'y retrouve, Schmail te l'a déjà signalé aussi !
De plus interpeller les Contributeurs dans le sujet est aussi à proscrire, d'ailleurs je n'avais même pas vu ce post ! C'est parceque j'avais une recherche à faire (manuelle, vu que c'est HS), que je suis tombé dessus.
En prime j'ai eu aussi droit au fichier en BAL, ce qui n'est pas non plus le but de ce Forum. Je veux bien aider les gens, mais ici ! dans ce Forum de partage de connaissance et pas dans ma BAL.
Voilà Loulou, j'espère que tu comprendras ma position.
Bonne Soirée
