Discussion :

[picsou59]

Bonjour,

je suis actuellement entrain de créer un document excel pour une société et je suis bloqué sur une mise au point de macro.

Je voudrai avoir (si possible)un macro qui permet de comparer une nouvelle valeur dans une liste qui se trouve en feuil 1 et si celle-ci n'est pas présente l'ajouter dans un tableau qui se trouve sur la feuil 2,afin comptabiliser le nombre de fois que ce mot se répete.

Pouvez-vous m'aider?
Je vous remercie d'avance

[casefayere]

Bonjour,
il faudrait être plus clair ou plus précis.

...comparer une nouvelle valeur dans une liste qui se trouve en feuil 1 et si celle-ci n'est pas présente l'ajouter dans un tableau qui se trouve sur la feuil 2,afin comptabiliser le nombre de fois que ce mot se répete.

si la donnée n'existait pas, pourquoi connaitre le nombre de fois où elle se répète ? ça devrait être zero, non ? mais je suis sur que tu vas mieux expliquer ou c'est moi qui a le cerveau qui travaille mal

sinon, d'après ce que j'en pense, ça doit etre faisable

[drakkar_agfa]

Je peux te proposer ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub aaatest()
    Dim iLigne As Integer
    Dim iColonne As Integer
    Dim iNombre As Integer
    Dim rDans As Range
    Dim sRecherche As String
 
    iLigne = 1 'Ta ligne comme tu veux
    iColonne = 1 'Ta colonne
 
    sRecherche = Worksheets("Feuil1").Cells(iLigne, iColonne).Value
    iNombre = Application.CountIf(Worksheets("Feuil2").Columns(1), sRecherche)
    If iNombre > 1 Then
        MsgBox sRecherche & " se retrouve " & iNombre & " fois."
    Else
        Worksheets("Feuil2").Cells(Worksheets("Feuil2").Range("A65536").End(xlUp).Row + 1, 1) = sRecherche
        MsgBox sRecherche & " a été ajouté."
    End If
 
End Sub

Ce code vérifie si ta recheche existe dans le tableau de la feuil2, si oui, tu as le nombre de fois que ta donnée est présente sinon, elle l'ajoute à la fin!

Bonne chance!

[picsou59]

Pour casefayere

En fait,je suis en train de créer une fichier excel,qui comptabiliser le nombre de fois qu'un type de panne se répéte dans le mois pour une société.De ce fait, en feuil 1 il a la liste des pannes présent et en feuil 2 un tableau qui comptabilise le nombre de fois que le meme type de pannes se répéte .Ce fichier va permettre de supprimer la pannes la plus fréquente.

Le macro que je voudrai réaliser est si un type de panne est rajouter en feuil 1 et non présent dans la liste,sera rajouter automatiquement dans un tableau en feuille 2 afin d'effectuer la comptabilisation.

Je peux te proposer ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub aaatest()
    Dim iLigne As Integer
    Dim iColonne As Integer
    Dim iNombre As Integer
    Dim rDans As Range
    Dim sRecherche As String
 
    iLigne = 1 'Ta ligne comme tu veux
    iColonne = 1 'Ta colonne
 
    sRecherche = Worksheets("Feuil1").Cells(iLigne, iColonne).Value
    iNombre = Application.CountIf(Worksheets("Feuil2").Columns(1), sRecherche)
    If iNombre > 1 Then
        MsgBox sRecherche & " se retrouve " & iNombre & " fois."
    Else
        Worksheets("Feuil2").Cells(Worksheets("Feuil2").Range("A65536").End(xlUp).Row + 1, 1) = sRecherche
        MsgBox sRecherche & " a été ajouté."
    End If
 
End Sub

Ce code vérifie si ta recheche existe dans le tableau de la feuil2, si oui, tu as le nombre de fois que ta donnée est présente sinon, elle l'ajoute à la fin!

Bonne chance!

Je viens d'essayer et il me marque "Erreur Execution: 1004" c'est quoi exactement cette erreur,je suis pas habituer au macro.
Merci beaucoup

[drakkar_agfa]

Bonjour,

Sur quelle ligne as-tu l'erreur?

[picsou59]

J'ai l'erreur sur la ligne :

Code :

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

sRecherche = Worksheets("Feuil1").Cells(iLigne, iColonne).Value

je vais t'envoyer le fichier sa sera plus simple je pense

Merci de m'aider