[VBA] Nb.si ou autre

Bonjour à tous ,
Je vous plante le décors, j'exporte un tableau Excel depuis une application tierce , qui varie tant en ligne qu'en colonne.
J'ai un autre tableau de référence qui lui est fixe .
J'aimerais via VBA faire un NB.SI mais colonne / colonne .
Cette boucle fonctionne a peut pres :

Code:

---

1 2 3 4 5 6 7 8

Dim i, j As Integer Dim rng As Range For j = 1 To EnteteLastCel For i = 1 To MaxData Range("B" & DebutTabVerif).Cells(i, j).FormulaLocal = _ "=NB.SI(B" & EnteteForme + 1 & ":B" & DernLPlaning & "; $A" & DebutTabVerif + i - 1 & ")" Next i Next j

---

Sauf que logique je me retrouve avec le meme résultat dans toutes les colonnes , j'aimerais faire un truc qui ressemble a ceci :
NB.SI(B" & EnteteForme + 1 & ":B" & DernLPlaning & "; $A" & DebutTabVerif + i - 1 & ")"
Puis la meme chose en C , puis en D puis ..
NB.SI(C" & EnteteForme + 1 & ":C" & DernLPlaning & "; $A" & DebutTabVerif + i - 1 & ")"
NB.SI(D" & EnteteForme + 1 & ":D" & DernLPlaning & "; $A" & DebutTabVerif + i - 1 & ")"
NB.SI(E" & EnteteForme + 1 & ":E" & DernLPlaning & "; $A" & DebutTabVerif + i - 1 & ")"

Je ne sais pas si j'ai un soucis d'algo ou autre mais j'ai bien du mal , si une âme attentionnée passe par la et m'aide dans cette requete .
Merci le forum . Nico

Pièce jointe 648705

Salut,

Tu obtiens toujours le même résultat car la lettre de la colonne est codé en dur (en l'occurrence "B").

La fonction ci dessous retourne la (ou les) lettre de colonne d'une cellule:

Code:

---

1 2 3

Public Function GetColumnLetter(ByRef Rng As Excel.Range) As String GetColumnLetter = Split(Rng.Address, "$")(1) End Function

---

Bonsoir deedolith,
Merci pour ton conseil avisé j'ai modifié et ajusté à mon besoin cela fonctionne .
Je passe en résolus