IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Nombre d'occurences de plusieurs mots sur une plage de valeurs


Sujet :

Macros et VBA Excel

  1. #1
    Membre à l'essai
    Femme Profil pro
    Ingénieur électromécanicien
    Inscrit en
    Juin 2016
    Messages
    28
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : Sénégal

    Informations professionnelles :
    Activité : Ingénieur électromécanicien
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2016
    Messages : 28
    Points : 10
    Points
    10
    Par défaut Nombre d'occurences de plusieurs mots sur une plage de valeurs
    Bonjour j'aimerai pour un ensemble de mots compter le nombre d'occurrences que chacun de ces mots a. j'ai écrit le bout de code suivant mais l'erreur d'execution "6": dépassement de capacité m'est signalée. Aidez moi svp
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Sub quantite()
    dim i as byte
    For i = 436 To 811
    DevisQuantitatif.Activate
    DevisQuantitatif.Select
    Range("C1").End(xlDown).Offset(1, 0).Select
    ActiveCell.Value = WorksheetFunction.CountIf(Synthese.Range("D:D"), "B(i+1)")
    Next i
    end sub

  2. #2
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Développeur VBA/C#/VB.Net/Power Platform
    Inscrit en
    Juillet 2007
    Messages
    14 586
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur VBA/C#/VB.Net/Power Platform
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2007
    Messages : 14 586
    Points : 34 255
    Points
    34 255
    Par défaut
    Salut,

    le type de donnees Byte accepte les valeurs de 0 a 255

    de plus, ton doit etre remplace par un
    Cycle de vie d'un bon programme :
    1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise

    Pas de question technique par MP, je ne réponds pas

    Mes ouvrages :
    Apprendre à programmer avec Access 2016, Access 2019 et 2021

    Apprendre à programmer avec VBA Excel
    Prise en main de Dynamics 365 Business Central

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  3. #3
    Membre extrêmement actif
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 82
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Points : 12 422
    Points
    12 422
    Par défaut
    Bonjour
    - J'ignore ce qu'est exactement B dans le code montré.
    - si lettre d'une colonne :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Range("D:D", "B" & i+1)
    ou (pareil)
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Range("D:D", "B" & (i + 1))
    serait systématiquement la plage occupée par la totalité des colonnes B,C et D, quelle que pût être la valeur de i !
    et serait donc forcément à tous les coups :
    - après, on peut faire des suppositions multiples et variées sur ce que le demandeur entend qu'est exactement B dans cette affaire .....
    Je n'accepte pas de demande d' "amitié" individuelle. Tout développeur est pour moi un ami.
    Je n'ouvre AUCUN classeur tiers (avec ou sans macro ******). Ne m'en proposez donc pas .

    ****** : Non, non ... un classeur .xlsx ne "peut" par exemple et entre autres pas contenir un activex (de surcroît invisible) , "bien sûr" ...

    Il est illusoire de penser que l'on saurait exprimer valablement et précisément en un langage (rigide) de développement ce que l'on peine à exprimer dans le langage naturel, bien plus souple.

  4. #4
    Expert éminent sénior Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Points : 31 877
    Points
    31 877
    Par défaut
    Bonjour à tous

    Peut être tu voulais faire comme ceci (remarque que Synthese et DevisQuantitatif sont les codename des feuilles et non leur nom ou bien des variables préalablement définies et affectées)

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Sub quantite()
    Dim i As Long
     
    Application.ScreenUpdating = False
    With DevisQuantitatif
        For i = 436 To 811
            .Range("C" & i + 1).Value = WorksheetFunction.CountIf(Synthese.Range("D:D"), .Range("B" & (i + 1)))
        Next i
    End With
    End Sub
    Ou bien simplement
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Sub Quantite2()
     
    Application.ScreenUpdating = False
    With DevisQuantitatif.Range("C437:C812")
        .Formula = "=COUNTIF('" & Synthese.Name & "'!$D:$D,B437)"
        .Value = .Value
    End With
    End Sub
    Cordialement.
    J'utilise toujours le point comme séparateur décimal dans mes tests.

  5. #5
    Membre extrêmement actif
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 82
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Points : 12 422
    Points
    12 422
    Par défaut
    Bonjour, ami mercatog
    Et puisque l'on est dans les "peut-être", il y en a une véritable floppée + 36, parmi laquelle (entre autres, donc) :
    B serait un tableau de strings et i + 1 un indice de ce tableau
    etc ...
    Comme rien du code présenté ne laisse "présager" avec certitude que l'on est dans le cas "ci" ou le cas "là" (puisque non cohérence quel que soit le cas "envisageable"), ma foi ...
    Je n'ai en ce qui me concerne qu'une seule quasi certitude. On aura très peu de chances de voir ressurgir le demandeur, habitué du genre "ici" et "là"
    Je n'accepte pas de demande d' "amitié" individuelle. Tout développeur est pour moi un ami.
    Je n'ouvre AUCUN classeur tiers (avec ou sans macro ******). Ne m'en proposez donc pas .

    ****** : Non, non ... un classeur .xlsx ne "peut" par exemple et entre autres pas contenir un activex (de surcroît invisible) , "bien sûr" ...

    Il est illusoire de penser que l'on saurait exprimer valablement et précisément en un langage (rigide) de développement ce que l'on peine à exprimer dans le langage naturel, bien plus souple.

  6. #6
    Expert éminent sénior Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Points : 31 877
    Points
    31 877
    Par défaut
    Bonjour unparia

    Après une longue absence, je me suis permis d’interrompre le sujet avec mes "peut-être" parmi les 36 possibles

    Faudra un jour huiler la mécanique, sinon c'est foutu même si on se substitue parfois et peut-être malencontreusement à Colombo
    Cordialement.
    J'utilise toujours le point comme séparateur décimal dans mes tests.

  7. #7
    Membre à l'essai
    Femme Profil pro
    Ingénieur électromécanicien
    Inscrit en
    Juin 2016
    Messages
    28
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : Sénégal

    Informations professionnelles :
    Activité : Ingénieur électromécanicien
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2016
    Messages : 28
    Points : 10
    Points
    10
    Par défaut
    Merci Mercatog, je viens d'essayer votre solution et ça marche bien. Vous m'avez vraiment enlevé une épine du pied.
    Maintenant j'ai un petit problème par rapport à ce bout de code.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    If Range("C" & i + 1).Value = 0 Then
    Rows("i+1:i+1").Select
        Application.CutCopyMode = False
        Selection.Delete Shift:=xlUp
    End If

  8. #8
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Développeur VBA/C#/VB.Net/Power Platform
    Inscrit en
    Juillet 2007
    Messages
    14 586
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur VBA/C#/VB.Net/Power Platform
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2007
    Messages : 14 586
    Points : 34 255
    Points
    34 255
    Par défaut
    Salut,

    meme probleme que plus tot :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Rows(i+1 & ":" &i+1).Select
    Cycle de vie d'un bon programme :
    1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise

    Pas de question technique par MP, je ne réponds pas

    Mes ouvrages :
    Apprendre à programmer avec Access 2016, Access 2019 et 2021

    Apprendre à programmer avec VBA Excel
    Prise en main de Dynamics 365 Business Central

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  9. #9
    Membre à l'essai
    Femme Profil pro
    Ingénieur électromécanicien
    Inscrit en
    Juin 2016
    Messages
    28
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : Sénégal

    Informations professionnelles :
    Activité : Ingénieur électromécanicien
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2016
    Messages : 28
    Points : 10
    Points
    10
    Par défaut
    en fait je voulais que ce code efface à chaque fois la ligne de la cellule C i+1 qui contient le chiffre zéro. Est ce que code le permet???
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    For i = 1 To 376
    Range("C" & i + 1).Value = WorksheetFunction.CountIf(Synthese.Range("D:D"), Range("B" & (i + 1)))
    If Range("C" & i + 1).Value = 0 Then
    Rows(i + 1 & ":" & i + 1).Select
        Application.CutCopyMode = False
        Selection.Delete Shift:=xlUp
    End If
    Next i

  10. #10
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Développeur VBA/C#/VB.Net/Power Platform
    Inscrit en
    Juillet 2007
    Messages
    14 586
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur VBA/C#/VB.Net/Power Platform
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2007
    Messages : 14 586
    Points : 34 255
    Points
    34 255
    Par défaut
    Attention, quand ton code supprime une ligne, il faut que tu prennes en compte le fait que ton ancienne ligne X devient X-1.

    On a souvent l'habitude dans le cas des suppressions de lignes de faire des boucles decrementee avec un Step -1
    Cycle de vie d'un bon programme :
    1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise

    Pas de question technique par MP, je ne réponds pas

    Mes ouvrages :
    Apprendre à programmer avec Access 2016, Access 2019 et 2021

    Apprendre à programmer avec VBA Excel
    Prise en main de Dynamics 365 Business Central

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  11. #11
    Membre à l'essai
    Femme Profil pro
    Ingénieur électromécanicien
    Inscrit en
    Juin 2016
    Messages
    28
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : Sénégal

    Informations professionnelles :
    Activité : Ingénieur électromécanicien
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2016
    Messages : 28
    Points : 10
    Points
    10
    Par défaut
    Merci à vous

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 6
    Dernier message: 13/12/2010, 00h09
  2. Réponses: 5
    Dernier message: 08/04/2010, 16h47
  3. Nombre d'occurences d'un mot dans une phrase
    Par cirtey dans le forum VB 6 et antérieur
    Réponses: 8
    Dernier message: 07/05/2007, 22h01

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo