Personnaliser la fonction RechercheV et NB.SI
Bonjour,
Je suis un débutant sur Excel-VBA, si possible SVP de me communiquer un code simple pour ma RechercheV personnalisée.
- Le nom de la première feuille change selon le nombre des lignes de la deuxième colonne.
- Les lignes sont considérablement ajoutées.
J'ai un tableau sur une autre feuille sur le quel je vaux calculer le nombre d'un variable donné.
A noter que le nom de la première feuille est : "Z Adhts - XDBR" à noter que Z change selon le nombre de ligne de la deuxième colonne sur cette première feuille.
Mon code est :
Dim Nbre_ligne As Integer
Nbre_ligne = WorksheetFunction.Count(Columns(2))
Feuil1.Name = Nbre_ligne & " Adhts - XDBR"
LastRow = Range("B" & Rows.Count).End(xlUp).Row
Workbooks("Non déclarant 2019.xlsm").Sheets(Nbre_ligne & " Adhts - XDBR").Activate
Sheets("Evolution").Cells(7, 3).FormulaR1C1 = _
"=COUNTIF('163 Adhts - XDBR'!R[1]C[9]:R[163]C[9], ""1T 2018"")"
Je souhaite obtenir ceci:
Sheets("Evolution").Cells(7, 3).FormulaR1C1 = _
"=COUNTIF(Nbre_ligne & 'Adhts - XDBR'!R[1]C[9]:R[LastRow]C[9], ""1T 2018"")"
Merci par avance pour votre aide
Bonjour,
Merci de joindre un fichier pour tester.
Bonjour,
Merci Raja pour votre réponse.
Ci-dessous le code et la pièce jointe.
Sub DBR_Stat8()
'
' DBR_Stat8 Macro
'
'
' Dans Feuille "Evolution" renseigner les stats Final automatiquement suivant les données de la colonne L sur feuille "Z Adhts - XDBR"
Dim Nbre_ligne As Integer
Nbre_ligne = WorksheetFunction.Count(Columns(2))
Feuil1.Name = Nbre_ligne & " Adhts - XDBR"
LastRow = Range("B" & Rows.Count).End(xlUp).Row
Workbooks("Non déclarant 2019.xlsm").Sheets(Nbre_ligne & " Adhts - XDBR").Activate
Sheets("Evolution").Cells(7, 3).FormulaR1C1 = _
"=COUNTIF('163 Adhts - XDBR'!R[1]C[9]:R[163]C[9], ""1T 2018"")"
Sheets("Evolution").Cells(7, 4).FormulaR1C1 = _
"=COUNTIF('163 Adhts - XDBR'!R[1]C[8]:R[163]C[8], ""2T 2018"")"
Sheets("Evolution").Cells(7, 5).FormulaR1C1 = _
"=COUNTIF('163 Adhts - XDBR'!R[1]C[7]:R[163]C[7], ""3T 2018"")"
Sheets("Evolution").Cells(7, 6).FormulaR1C1 = _
"=COUNTIF('163 Adhts - XDBR'!R[1]C[6]:R[163]C[6], ""4T 2018"")"
Sheets("Evolution").Cells(7, 7).FormulaR1C1 = _
"=COUNTIF('163 Adhts - XDBR'!R[1]C[5]:R[163]C[5], ""1T 2019"")"
Sheets("Evolution").Cells(7, 8).FormulaR1C1 = _
"=COUNTIF('163 Adhts - XDBR'!R[1]C[4]:R[163]C[4], ""2T 2019"")"
Sheets("Evolution").Cells(7, 9).FormulaR1C1 = _
"=COUNTIF('163 Adhts - XDBR'!R[1]C[3]:R[163]C[3], ""3T 2019"")"
Workbooks("Non déclarant 2019.xlsm").Sheets("Evolution").Activate
Range("B2").Select
End Sub
Merci par avance pour votre aide