Discussion :

[didoch54000]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 & "" & 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

PlanningForum (1).xlsm

[deedolith]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[didoch54000]

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