Macro copier/coller avec tri
Bonsoir!
J'ai créé un classeur où on saisi des données correspondant à des individus.
La première colonne est "Nom", et on saisi des poids correspondants.
J'ai inséré un bouton "Archiver", et je souhaite que lorsqu'on clique sur ce bouton, les poids saisis soient copiés et collés dans une nouvelle colonne d'un autre classeur "classeur2" où j'archive tous mes poids.
Le problème c'est que je ne parvient pas à coller ces valeurs en face des noms correspondants....
Voici mon code:
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
| Sub Archivage()
'
' Selection des plages de cellules contenant des nombres
'variables qui identifie la plage de céllules à parcourir
numero_ligne_debut = 10
numero_ligne_fin = 100
colonne_debut = "J"
colonne_fin = "K"
'index des numéros de lignes, qui va varier de la ligne de début à la ligne de fin
numero_ligne = numero_ligne_debut
'variable booléenne qui indique si la ligne va devoir etre traitée ou non
ligne_a_traiter = False
'variable chaine, qui va contenir la (ou les plages de céllule, séparé par des virgules) à sélectionner
chaine_plage = ""
'variable qui va indiquer si la séléction est la première ou pas
premier_selection = True
While numero_ligne <> numero_ligne_fin
numero_ligne_deb_selection = numero_ligne
ligne_a_traiter = False
While Not Feuil6.Cells(numero_ligne, 10) = ""
numero_ligne = numero_ligne + 1
ligne_a_traiter = True
Wend
If ligne_a_traiter Then
If premier_selection And ligne_a_traiter Then
chaine_plage = "J" & numero_ligne_deb_selection & ":K" & numero_ligne - 1
Else
chaine_plage = chaine_plage & ",J" & numero_ligne_deb_selection & ":K" & numero_ligne - 1
End If
premier_selection = False
Else
numero_ligne = numero_ligne + 1
End If
Wend
Range(chaine_plage).Select
Selection.Copy
Workbooks.Open Filename:="Classeur2.xlsx"
With ActiveSheet
.[a1].Select
.Paste
End With
End Sub |
Mon problème est évidemment à la fin. Merci d'avance
