Discussion :

[Faenor86]

Bonjour à tous,

Je débute en VBA et j'aurais besoin de vos lumières pour le cas suivant :

Je souhaite créer une macro permettant de copier les valeurs de quelques cellules d'un premier onglet vers un onglet de "SAUVEGARDE". Petite difficulté les plages contenant les valeurs à copier ne sont pas forcément adjacentes ou continues...

La macro doit plus exactement :
- copier le contenu de certaines cellules du premier onglet
- formater les valeur disséminée sur une ligne
- incrémenter le numéro de ligne de l'onglet "sauvegarde"
- coller les valeurs sous la dernière ligne sauvegardée.

J'ai bricolé un code avec l'enregistreur de macro ainsi que de mes micros connaissances en VBA !

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
 
Sub copie2()
 
Static Compteur As Integer
Dim numligne As Integer
 
    Compteur = Compteur + 1
    numligne = Compteur + 1
    Range("B7:C7").Select
    Selection.Copy
    Sheets("SAUVERGARDE").Select
    Range("A1").Offset(Compteur, 1).Select
    Cells(numligne, 1).Value = Compteur
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
End Sub

Par contre j'ai l'impression que les copier coller ne sont plus synchro avec la valeur de mon ID lorsque je ferme et ré ouvre le fichier... avez-vous une solution pour palier à cela ? Par ailleurs je ne vois pas comment résoudre le problème de la conversion en ligne des plages non contigues.

A toute fin utile ci-joint le fichier
Merci d'avance pour votre aide