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