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

[drakkar_agfa]

Je crois que tu devrais changer les noms de feuilles que j'avais utilisées par les noms de TES feuilles... Vérifies aussi que les lignes et colonnes correspondent aux tiennes.

Après quelques petites modif tu devrais être ok!

[random]

je ne vois pas bien l'utilité d'une macro
un tableau dynamique fera cela très bien
i

[picsou59]

Je crois que tu devrais changer les noms de feuilles que j'avais utilisées par les noms de TES feuilles... Vérifies aussi que les lignes et colonnes correspondent aux tiennes.

Après quelques petites modif tu devrais être ok!

J'ai essayer hier,et il me marque plin d'erreur je n'aarive pas a le faire fonctionner correctement.

[Lynx92260]

Bonjour,

Un TCD suffit largement à répondre pour les statistiques de panne comme je l'ai fait dans la correction c-joint

Il faudra réactualiser la TCD (Tableu Croisé Dynamique)

[picsou59]

merci pour ton aide.
En fait , je voudrai avoir quelque chose qui fasse automatiquement le transfert d'une nouvelle valeur qui se trouve dans la colonne "type" dans une autre feuille du fait que la liste de données est loin d'être finis.

[Lynx92260]

Bonjour,


Il suffit de détecter les changements de la feuille de saisie pour declencher le raffraichissement de la TCD

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
'Maj sur la colonne Type ou Machine
If Target.Column = 5 Or Target.Column = 6 Then
    
    If Target.Row >= 2 Then
        ' On reactulise le tcd
        ThisWorkbook.Worksheets("Feuil1").PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
    End If

End If

End Sub

A chaque changement de la colonne Type ou Machine on reactualise le tcd

Tout simplement