Excel ne répond pas lors d'execution d'une macro

Résolu

Mossaab -
Mossaab95 Messages postés 9 Statut Membre - 9 mars 2020 à 11:12

Bonjour,

Aidez moi s'il vous plait

J'ai crée une macro sur un fichier Excel qui contient plus que 22000 ligne, la macro s’exécute en mode pas à pas et quand je réduit le nombre de lignes, sinon le fichier excel beug et ne réponds pas.

Pouvez vous m'aider s'il vous plait ?

Voici la Macro

Sub MAJ2()

Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim L As Long

L = Range("A1").End(xlDown).Row + 1

For i = 2 To L
    For j = i + 1 To L + 1
    
        If Sheets("Feuil1").Cells(i, 1) = Sheets("Feuil1").Cells(j, 1) Then
            For k = 2 To 100
                If Sheets("Feuil1").Cells(i, k) <> Sheets("Feuil1").Cells(j, k) Then
                    Sheets("Feuil1").Cells(i, k) = Sheets("Feuil1").Cells(i, k) & "//" & Sheets("Feuil1").Cells(j, k)
                    Sheets("Feuil1").Cells(j, k) = ""
                End If
            Next
        End If
    
    Next

Next

Mercii

Configuration: Windows / Chrome 79.0.3945.117

Afficher la suite

9 réponses

Réponse 1 / 9
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
bonjour, je suggère d'ajouter une ligne
```
DoEvents
```
après la ligne
```
For i = 2 To L
```
0
1. Mossaab
  
  Merci mais ça n'a pas marché
  
  0
2. yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention 1 588 > Mossaab
  
  et en mettant
  doevents
  après la ligne
  for j
  ?
  
  0
3. Mossaab > yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention
  
  Non plus :'(
  
  0
4. yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention 1 588 > Mossaab
  
  que se passe-t'il exactement? excel ne répond pas?
  
  0
5. Mossaab > yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention
  
  AU début avant de mettre DoEvents, la phrase Excel ne répond pas s'affiche à coté du titre du fichier, maintenant sa beug sans rien afficher
  
  0
Réponse 2 / 9
Mossaab

Comment ça, trier les données ?
0
1. yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention 1 588
  
  si tu commences par trier les données suivant les valeurs en colonne A, tu peux faire très rapidement le reste du travail.
  
  0
Réponse 3 / 9
Mossaab

Le problème c'est qu'on doit comparer toutes les lignes, donc on peut pas faire le trie
0
1. yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention 1 588
  
  pourquoi le tri va-t'il empêcher de comparer? peux-tu donner un exemple?
  
  0
Réponse 4 / 9
Mossaab

Pouvez vous svp me donner un exemple de tri pour savoir dequoi vous parler exactement
0
1. yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention 1 588
  
  peux-tu partager ton fichier, ou un fichier d'exemple?
  
  0
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Réponse 5 / 9
Mossaab95 Messages postés 9 Statut Membre

Je ne peux pas le partager ici non ?
0
1. yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention 1 588
  
  pour partager ici un fichier, tu le publies sur internet (google drive, cjoint.com, ...) puis tu partages ici le lien vers le fichier.
  
  0
Réponse 6 / 9
Mossaab95 Messages postés 9 Statut Membre

Le voila,

https://accounts.google.com/ServiceLogin?service=wise&passive=1209600&continue=https://drive.google.com/file/d/1R7v1fdUS6d0dyu-mFa6XyDLPji0HNLrL/view?usp%3Ddrive_web&followup=https://drive.google.com/file/d/1R7v1fdUS6d0dyu-mFa6XyDLPji0HNLrL/view?usp%3Ddrive_web

Merci
0
1. yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention 1 588
  
  le fichier n'est pas public.
  
  0
Réponse 7 / 9
Mossaab95 Messages postés 9 Statut Membre

Voila monsieur

https://www.transfernow.net/files/?utm_source=dOqTRM032020&utm_medium=&utm_content=en

Merci beaucoup
0
1. yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention 1 588
  
  ce que je suggère, c'est que tu sélectionnes toutes tes données, et puis que tu demandes à excel de les trier par ordre croissant de la première colonne.
  ensuite, tu ne devras plus comparer toutes les lignes, il suffira de comparer chaque ligne aux lignes suivantes ayant la même valeur en colonne A.
  
  0
Réponse 8 / 9
Mossaab95 Messages postés 9 Statut Membre

Mais je compare dèja chaque ligne aux lignes suivantes, j = i+1 toujours
0
1. yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention 1 588
  
  tu compares à toutes les lignes suivantes, alors que, si tu tries, il suffit de comparer à quelques lignes, celles qui ont la même valeur en colonne A, et tu pourras arrêter dès que la valeur en colonne A change. cela ira beaucoup plus vite.
  
  0
2. Mossaab95 Messages postés 9 Statut Membre > yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention
  
  Est ce que tu sais comment changer la couleur du texte d'une cellule (i,k) avec i et k sont les parametres de la macro ?
  
  0
3. yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention 1 588 > Mossaab95 Messages postés 9 Statut Membre
  
  par exemple ainsi:
  Sheets("Feuil1").Cells(i, k).Font.Color = RGB(0, 255, 0)
  
  0
4. Mossaab95 Messages postés 9 Statut Membre > yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention
  
  Merci
  J'ai réussi à faire ça
  Un autre problème c'est que sur cette ligne
  
  Sheets("Feuil1").Cells(i, k) = Sheets("Feuil1").Cells(i, k) & "//" & Sheets("Feuil1").Cells(j, k)
  
  je veux que les données de Sheets("Feuil1").Cells(j, k) gardent leurs mise en forme (couleur rouge)
  est ce que ceci est possible ?
  
  0
5. yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention 1 588 > Mossaab95 Messages postés 9 Statut Membre
  
  je pense que c'est possible, si tu calcules la position et la longueur des données ajoutées, ainsi (non testé):
  position=len(Sheets("Feuil1").Cells(i, k))+3 longueur=len(Sheets("Feuil1").Cells(j, k)) Sheets("Feuil1").Cells(i, k) = Sheets("Feuil1").Cells(i, k) & "//" & Sheets("Feuil1").Cells(j, k) Sheets("Feuil1").Cells(i, k).Characters(position, longueur).Font.Color = _ Sheets("Feuil1").Cells(j, k).Font.Color
  
  0
Réponse 9 / 9
Mossaab95 Messages postés 9 Statut Membre

ça a marché, merci beaucoup, c'est gentille
0

Excel ne répond pas lors d'execution d'une macro

9 réponses

Discussions similaires

Newsletters