Re : Fichier très long à charger
Publié par eric45 le 18/01/2018 08:30:48
Bonjour
Juste pour que tu puisses continuer aujourd'hui, "valeur" non définie => ajouter en tête de la sub "Dim valeur As Integer" :
Bonne journée
Eric
Juste pour que tu puisses continuer aujourd'hui, "valeur" non définie => ajouter en tête de la sub "Dim valeur As Integer" :
Sub test_ligne_01()
Dim i As Integer
Dim valeur 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
Bonne journée
Eric
Ce message est de : http://excel.veriti.net/modules/newbb/viewtopic.php?post_id=595