Re : Fichier très long à charger
Publié par eric45 le 16/01/2018 18:31:30
Bonsoir
Pour commencer, un peu d'aide.
Pour la cellule "T2" :
si j'ai bien compris
A toi de jouer.
Dis nous
Eric
Pour commencer, un peu d'aide.
Pour la cellule "T2" :
Sub test_ligne_01() Dim i As Integer
For i = 1 To 5
If IsNumeric(Application.HLookup(Cells(2, i), Feuil1.Range("C2:V2"), 1, False)) Then valeur = valeur + 1
Next i
MsgBox valeur
End Sub
si j'ai bien compris
A toi de jouer.
Dis nous
Eric
Ce message est de : http://excel.veriti.net/modules/newbb/viewtopic.php?post_id=589