Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
Function NbSingleton(Plage)
T = Plage
For i = 1 To UBound(T)
N = 1
For j = 1 To UBound(T)
If i <> j And T(i, 1) = T(j, 1) Then
N = 0: Exit For
End If
Next j
NbSingleton = NbSingleton + N
Next i
End Function
Function CompterStructure(Plage)
T = Plage
For i = 1 To UBound(T)
For j = i To UBound(T)
If T(i, 1) > T(j, 1) Then Buffer = T(i, 1): T(i, 1) = T(j, 1): T(j, 1) = Buffer
Next j
Next i
For i = UBound(T) To 2 Step -1
If T(i, 1) = T(i - 1, 1) Then T(i, 1) = ""
Next i
For i = 1 To UBound(T)
If T(i, 1) <> "" Then CompterStructure = CompterStructure + 1
Next i
End Function
Function CompterStructure(Plage)
T = Plage
For i = 1 To UBound(T)
For j = i To UBound(T)
If T(i, 1) > T(j, 1) Then Buffer = T(i, 1): T(i, 1) = T(j, 1): T(j, 1) = Buffer
Next j
Next i
For i = UBound(T) To 2 Step -1
If T(i, 1) = T(i - 1, 1) Then T(i, 1) = ""
Next i
For i = 1 To UBound(T)
If T(i, 1) <> "" Then CompterStructure = CompterStructure + 1
Next i
End Function
Hi, sans code VBA ==> passer par PowerQuery
je vois pour te livrer cela demain à travers un exemple. Tu pourras le reprendre et l'adapter à ton besoin.
Désormais, PowerQuery devrait devenir un réflexe surtout pour ceux qui ton des prb pour coder en VBA. Avec un peu d'investissement, cet outil intégré à Excel depuis la V2016 devrait solutionner un bon nbr de problèmes. Au début, OUI, il faut peur. Mais quand on a décoffrer ses mystères c'est à consommer sans modération. C'est même investissement car aussi intégré de fait à PowerBI et très utilisé dans le milieu du Data Scientist, Data Crunching ou BI ou Web Scraping.
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD