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 : 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
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 !