Bonsoir le fil, bonsoir le forum,
Une proposition VBA :
Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim C1 As Integer 'déclare la variable C1 (Compteur 1)
Dim C2 As Integer 'déclare la variable C2 (Compteur 2)
Dim C3 As Integer 'déclare la variable C1 (Compteur 1)
Dim C4 As Integer 'déclare la variable C2 (Compteur 2)
Set O = Sheets("Feuil1") 'définit l'onglet O
TV = O.Range("A1").CurrentRegion 'définit le tableau des valeurs TV
For I = 1 To UBound(TV, 1) 'boucles sur toutes les lignes I du tableau des valeurs TV
'condition : si "individual" et "Buildings"
If TV(I, 2) = "individual" And InStr(1, TV(I, 1), "Buildings", vbTextCompare) <> 0 Then
C1 = C1 + 1 'incrémete C1
C3 = C3 + UBound(Split(TV(I, 1), ";"), 1) + 1 'compte les mots dans C3
'condition : si "organization" et "Buildings"
ElseIf TV(I, 2) = "organization" And InStr(1, TV(I, 1), "Buildings", vbTextCompare) <> 0 Then
C2 = C2 + 1 'incrémente C2
C4 = C4 + UBound(Split(TV(I, 1), ";"), 1) + 1 'compte les mots dans C4
End If
Next I 'prochaine ligne de la boucle
'message
MsgBox "individual : " & C1 & " fois !" & Chr(13) & "organization : " & C2 & " fois !" & Chr(13) & Chr(13) _
& "individual : " & C3 & " mots" & Chr(13) & "organization : " & C4 & " mots !"
End Sub