Discussion :

[phoque.r]

Bonjour,

voici le code de ma 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
 
 
Sub essai2()
 
' Mise en place des différentes valeurs pour la macro
Dim i As Long, nbl As Long, nbl2 As Long ' definition des variables
Sheets("candidats").Select
nbl = Range("A65000").End(xlUp).Row ' recupere le n° de la derniere ligne de la feuille candidats
Windows("archive.xls").Activate
Sheets("acceptés").Select
nbl2 = Range("A65000").End(xlUp).Row ' recupere le n° de la derniere ligne de la feuille acceptés
Windows("encours.xls").Activate
Sheets("candidats").Select
 
 
' Boucle de traitement des candidats
For i = 1 To nbl ' Pour i commencant à 1 jusqu'à nbl (fin de tableau de la feuille candidats)
 
If Cells(9, i) = 1 Then
nbl2 = nbl2 + 1
Cells(9, i) = 2 ' Case passe de 1 à 2
Range("a" & i & ":h" & i).Select  ' Sélectionne la partie à copier
Selection.Copy ' Copier
Windows("archive.xls").Activate
Sheets("acceptés").Select ' Passage à la feuille pour coller
Range("a" & nbl2).Select ' Case de départ pour le coller
ActiveSheet.Paste ' Coller
End If
 
Next i 
 
End Sub

pour préciser ce que je veux faire:
mon fichier "encours.xls", contient sur la pages "candidats", des candidats, vous l'aurez compris Chaque candidat a diverses informations sur sa ligne. La colonne I prend uniquement les valeurs 0 et 1 au remplissage (accepté ou refusé). Si c'est 1, on veut copier le reste de la ligne (donc de A à H) vers le fichier "archive.xls", feuille "acceptés".

Le problème est le suivant:
ma macro ne plante plus mais ca ne fait rien!!
Il y a peut-être une erreur bête, ce qui ne m'étonnerais pas, je débute :confused:

Merci à qui pourra m'aider

PS: l'erreur vient peut-être de la condition dans la boucle?

[phoque.r]

C'est bon, j'ai corrigé tous les pb