Discussion :

[Orcrux]

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 !

[mjpmjp]

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

la boucle

Code :

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

1
2
3
4
 
For Current_name_bdd = 1 To 20
 
next Current_name_bdd

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

@+JP

[mjpmjp]

re,

Code :

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

1
2
3
4
5
 
old_year = 2019
Row = 6400
Col = 3
match = 0

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

Code :

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

1
2
3
4
5
6
 
For Current_name_bdd = 1 To 20
   Do While match = 0
 
    Loop
next Current_name_bdd

@+JP

[mjpmjp]

re,

Code :

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

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

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

Code :

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

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

[Orcrux]

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

[eriiic]

Bonjour,

Code :

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

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 :

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

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

[Orcrux]

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