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:
Mon problème est évidemment à la fin. Merci d'avance
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
Partager