problème de IF ... Résolu/Fermé

Question

Bonjour,
je voudrais compter le nombre de répliques par acteur dans le livret d'une pièce de théatre.
Pour cela, j'ai transposé le texte dans Excel et ai basculé les noms des comédiens en colonne A tandis que le texte se trouve en colonne B
je voudrais donc additionner le nombre de  "Marie-Thérèse", de "PAPOUNET" qui se trouvent dans cette colonne (3500 lignes !)
j'ai essayé avec NBVAL(), mais j'obtiens un nombre supérieur à 3000 !
alors j'ai tenté en VBA. et ça bloque !
voici ce que j'ai écrit : 


Sub repliques()

    Dim i As Integer
    Dim N As Integer
    
    N = 1
    
    For i = 38 To 3050
        If Worksheets("Théatre").Cells(i, A) = "PAPOUNET" Then
         N = N + 1
    End If
    
    Next
    
    
        
        MsgBox N
        
    'Worksheets("Théatre").Cells(3050, A) = N
    


End Sub
  merci de votre aide

Utilisateur anonyme · Answer

Bonsoir 

Il me semble que l’on t’as déjà demandé plusieurs fois de faire l’effort de présenter ton code lisiblement pour le lecteur, rappel ici https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code le petit tuto qui explique comment faire 


Pour ton problème, tu pourrais gagner du temps d’exécution en utilisant un tableau voir ce tuto https://silkyroad.developpez.com/vba/tableaux/

D’autre part tu initialises N à 1, ce qui signifie qu’à la première occurrence, il vaudra 2, à la deuxième il vaudra 3 etc… Ce qui à priori est faux sauf si la cellule A37 contient Papounet.

Ensuite tu vas compter jusqu’à A3050, or dans ton texte tu parles de 3500.

Enfin, tu vas écraser la cellule A3050 pour y écrire le résultat

f894009 · Answer

Bonjour Whismeril,

Ca flotte?

Y a plus simple que les boucles sur tableaux et c'est Excel qui fait le taf

simkmil:
Sub repliques()
    Dim Plage As Range
    
    With Worksheets("Théatre")
        Set Plage = .Range("A8:A36")
        N = Application.CountIf(Plage, "Marie-Thérèse") + Application.CountIf(Plage, "PAPOUNET")
    End With
    Set Palge = Nothing
    MsgBox N
    
    'Worksheets("Théatre").Cells(3050, A) = N
End Sub

simkmil · Answer

Bonjour, en effet, c'est bien mieux avec les balises de code; mais à chaque fois, je vais dans <> qui indique Code et je choisis BASIC puisque c'est cela qu'il faut prendre pour le VBA et à part une balise en début, rien ne change. J'ai beau regarder le tuto que vous m'avez envoyé, le suivre au mieux et j'obtiens toujours la même chose. Je dois faire une erreur quelque part. 
Ce n'est vraiment pas une mauvaise volonté de ma part.

Hormis cela, ton code fonctionne parfaitement.
Merci beaucoup

Problème de IF ...

3 réponses

Discussions similaires