1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
|
Sub recherche_select()
Dim Colonne As Integer
Dim ValeurCherchee As Long
'on boucle sur ta premiere ligne pour trouver ta colonne
'cela implique que les colonnes doivent être nommées en en-tête
For Each cell In Range(Cells(1, 1), Cells(1, Columns.Count).End(xlToLeft))
If cell.Value = "Q_3_395" Then
Colonne = cell.Column 'on retient le numéro de cette colonne
End If
Next cell
ValeurCherchee = InputBox("Entrez une valeur")
'on fait un NB.SI sur la colonne en question
'et on stocke notre quantité dans B1 (pourquoi pas)
Range("B1").Value = Application.WorksheetFunction.CountIf(Cells(1, Colonne).EntireColumn, ValeurCherchee)
End Sub |