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 |
