Bonjour à tous je viens vous demander un peu d'aide pour ma feuille de garde pompiers
jusqu’ici j’utilisais une formule qui me permettais extraire des noms dans mon onglet dispo selon si ce dernier faisais partis une liste situé dans paramètre qui désigne sa fonction.
le problème dans un soucis évolution je doit utilisé une macro fait par double zéro mais qui ne détecte pas les noms amené par formule dans l'onglet filtre.
je voudrais donc pour y remédier modifier ce type de formule par une macro
qui aurais la même fonction à quelque chose prêt que les nom extraite serais plus par formule mais par une valeur réel détectable donc par la macro de double zero
pouvez vous m'aider svp
jusqu’ici j’utilisais une formule qui me permettais extraire des noms dans mon onglet dispo selon si ce dernier faisais partis une liste situé dans paramètre qui désigne sa fonction.
le problème dans un soucis évolution je doit utilisé une macro fait par double zéro mais qui ne détecte pas les noms amené par formule dans l'onglet filtre.
Code:
Sub Qui_combien()
' variable déclarer
Dim c As Range
' temps d'exécution accélérer
With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
'colonne 15 effacer, colonne 1 insérer
Columns(15).Clear: Columns(1).Insert
' constantes des colonnes b à d
For Each c In Columns("b:b").SpecialCells(xlCellTypeConstants, 2)
' si couleur = jaune, copier en colonne a
If c.Interior.ColorIndex = 6 Then c.Copy Destination:=Range("a" & Rows.Count).End(xlUp)(2)
Next
' formule en colonne 12 insérer
With Range("P2:P" & Cells(Rows.Count, 15).End(xlUp).Row)
' =NB.SI(B:D;J1)
.FormulaR1C1 = "=COUNTIF(C[-15],RC[-1])"
' formule convertir en valeur
.Value = .Value
End With
' colonne 1 supprimer
Columns(1).Delete
With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Subje voudrais donc pour y remédier modifier ce type de formule par une macro
Code:
=SIERREUR(INDEX(Parametre!J$2:J$370;PETITE.VALEUR(SI(NB.SI(Dispo!$B$3:$B$39;Parametre!J$2:J$370)>0;LIGNE(Parametre!J$2:J$370)-1);LIGNES($1:1)));"")qui aurais la même fonction à quelque chose prêt que les nom extraite serais plus par formule mais par une valeur réel détectable donc par la macro de double zero
pouvez vous m'aider svp
