Crash du macro à l'execution

Bonjour,

Dans le cadre d'une analyse bibliographique je suis amené à trier un certain nombre de données sur excel, des noms d'auteurs ,leurs premières dates de parutions,...

Pour ceci j'ai codé ce macro :

//

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

Sub Date_premire_parution_auteur() ' ' Date_premire_parution_auteur Macro ' Worksheets("Auteur CSV").Activate Dim Current_name_bdd As Integer Dim old_year As Integer Dim new_year Dim match As Integer   ' 17113 Current_name_bdd ' 6400 Row old_year ' 69 Col   Application.DisplayAlerts = False Application.ScreenUpdating = False old_year = 2019 For Current_name_bdd = 1 To 20 old_year = 2019 Row = 6400 Col = 3 match = 0 Do While match = 0 If Cells(Row, Col).Value = "" Then Row = Row - 1 Col = 3 Else If Cells(Row, Col).Value = Cells(Current_name_bdd, 1).Value Then Cells(Current_name_bdd, 2).Value = Cells(Row, 70).Value match = 1 End If End If Loop Next End Sub

---

//

Cependant peu importe le nombre d'itération que je mets pour la première boucle for, celui-ci crash et ne réponds plus tard que si la bouche n'est pas trop longue (typiquement 10 itérations)

Je souhaitais savoir si quelqu'un peut identifier le problème, sachant que je suis novice et que c'est ma première macro

Merci bien !

bonjour,
tout ce qui est "immobile" reste en dehors de la boucle ;)

la boucle

Code:

---

1 2 3 4

For Current_name_bdd = 1 To 20   next Current_name_bdd

---

OUPS , :lol: , première erreur ...next tout seul...

@+JP

re,

Code:

---

1 2 3 4 5

old_year = 2019 Row = 6400 Col = 3 match = 0

---

çà bouge pas !! .. alors en dehors de la boucle ;)

Code:

---

1 2 3 4 5 6

For Current_name_bdd = 1 To 20 Do While match = 0   Loop next Current_name_bdd

---

@+JP

Ah !

Je pensais que le next incrémentait tous seule la variable de la bouche for associé, merci !

Cependant le programme plante toujours en rajoutant Current_name_bdd à côté de Next :?


PS : Pour ton deuxième message de ce côté là je suis juste, je dois réinitialiser ces valeurs à chaque tour de boucle for pour reparcourir mon tableau d'auteurs

re,

Code:

---

1 2 3 4

if Cells(Row, Col).Value = "" Then Row = Row - 1 Col = 3

---

Col = 3 ... çà bouge pas ...alors...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

For Current_name_bdd = 1 To 20 Do While match = 0 If Cells(Row, Col).Value = "" Then Row = Row - 1 Else If Cells(Row, Col).Value = Cells(Current_name_bdd, 1).Value Then Cells(Current_name_bdd, 2).Value = Cells(Row, 70).Value match = 1 End If End If Loop next Current_name_bdd

---

@+JP

Exact je me suis trompé sur le Col je change ca !

Je suis passé aux balises Code, c'est plus lisible, désole encore c'est mon premier post :)

Bonjour,

Code:

---

1 2 3 4 5 6 7 8 9 10

Do While match = 0 If Cells(Row, Col).Value = "" Then Row = Row - 1 Else If Cells(Row, Col).Value = Cells(Current_name_bdd, 1).Value Then Cells(Current_name_bdd, 2).Value = Cells(Row, 70).Value match = 1 End If End If Loop

---

Code:

---

If Cells(Row, Col).Value = Cells(Current_name_bdd, 1).Value Then

---

si ce n'est pas vérifié tu ne fais rien et tu retournes au test If Cells(Row, Col).Value = "" Then, qui n'est toujours pas vérifié non plus (Row,Col inchangé), et ce indéfiniment (enfin jusqu'à pile pleine et erreur).
Et si le cas peut se présenter il faut prévoir une sortir si la colonne est entièrement vide. Row=0 ça ne passera pas.
eric

Oui j'avais pris en compte cela. En réalité j'ai réecris ce code hier matin pour l'optimiser et voir si c'était cela qui faisait crasher excel.

Là normalement il n'y a plus de souci, cependant la page VBA et ma feuille excel ne réponde plus dès que je lance le macro :?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

Sub Date_premire_parution_auteur() ' ' Date_premire_parution_auteur Macro ' Worksheets("Auteur CSV").Activate Dim Current_name_bdd As Integer Dim old_year As Integer Dim new_year Dim match As Integer   ' 17113 Current_name_bdd ' 6400 Row old_year ' 69 Col   Application.DisplayAlerts = False Application.ScreenUpdating = False old_year = 2019 For Current_name_bdd = 1 To 20 old_year = 2019 Row = 6400 Col = 3 match = 0 Do While match = 0 If Cells(Row, Col).Value = "" Then Row = Row - 1 Col = 3 Else If Cells(Row, Col).Value = Cells(Current_name_bdd, 1).Value Then Cells(Current_name_bdd, 2).Value = Cells(Row, 70).Value match = 1 End If Col = Col + 1 End If Loop Next Current_name_bdd End Sub

---

Pas bonjour non plus,

parce que tu es encore dans une boucle sans fin.
Fais en pas à pas.
Ou bien plutôt qu'une boucle regarde l'aide sur Range.Find
eric

Bonjour oui (petit rush dans ma réponse sorry),

Je ne vois pas en quoi je suis dans une boucle infinie, je suis sur de trouver le nom de ma base de donnes dans mon excel (donc pas de Row négatif), et qu'au bout d'une certaine colonne la cellule sera vide (donc Col ne tends pas vers l'infini) et reviens à 3.
Tu peux expliciter ?

Je vais regarder la commande Range.Find 😉

Merci

Si excel trouve match=1 et tu quittes le while.
Donc non, il ne trouve pas et boucle. CQFD. Ou alors tu as un PC très lent et il faut attendre demain pour le résultat...

Dans ta boucle met une variable incrémentée et tu stoppes à 1000 (ou 10000 selon ton évaluation des cellules à parcourir)

Code:

---

1 2 3

Do while ... i=i+1 if i=10000 then stop

---

(ou bien if i mod 1000 = 0 then stop pour stopper toutes les 1000 boucles)
et là tu fais en pas à pas. En voyant le cheminement et en contrôlant tes variables tu comprendras le pourquoi pour y remédier.
Fait-le pour comprendre mais c'est une méthode extrèmement lente.
.Find te trouves directement la cellule dans la plage désignée. Regarde dans l'aide l'exemple pour boucler si tu as plusieurs remplacements à faire.
eric

Bonjour,

Désolé du temps de réponse, j'ai pu relancer mon programme et ça a fonctionné. Cela a seulement pris 2heures où mon macro et excel ne repondait plus... :roll:

Du coup je retenterai plus tard avec ces fonctions Find et Range, mais oui le problème venait de la merci beaucoup ! :D