Discussion :

[guilla2874]

Bonjour,

J'ai crée la macro suivante pour copier quelques cellules d'un onglet ("Questionnaire") dans un autre onglet ("Base de données").

A chaque lancement de la macro, les cellules sont copiés dans une nouvelle ligne de l'onglet "base de données".

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
 
Sub Ajouter()
 
With Sheets("Questionnaire")
 
NumLig = NumLig + 1
 
.Cells(6, 2).Copy
      Sheets("Base de données").Cells(NumLig + 1, 2).Insert Shift:=xlDown
 
.Cells(9, 2).Copy
      Sheets("Base de données").Cells(NumLig + 1, 3).Insert Shift:=xlDown
 
.Cells(19, 2).Copy
      Sheets("Base de données").Cells(NumLig + 1, 4).Insert Shift:=xlDown
 
.Cells(22, 2).Copy
      Sheets("Base de données").Cells(NumLig + 1, 5).Insert Shift:=xlDown
 
End With
 
End Sub

Cette macro fonctionne bien, le seul problème est qu'elle copie aussi le format des cellules, ce que je ne veux pas. Je souhaite copier exclusivement les valeurs.

Comment faire ou comment modifier mon code ?

D'avance merci pour votre aide.

Guillaume

[fring]

Bonjour,

Il y a différentes méthodes, soit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Cells(6, 2).Copy Sheets("Base de données").Cells(NumLig + 1, 2)

soit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
.Cells(6, 2).Copy
      Sheets("Base de données").Cells(NumLig + 1, 2).PasteSpecial Paste:=xlValues

Avec la méthode PasteSpecial il y a moyen de mettre d'autres paramètres que "Values" (voir le menu collage spécial)

A vue de nez, tu peux également supprimer les Shift:=xlDown, je ne vois pas à quoi ils servent

Et pour terminer, avant End Sub tu indiques

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.CutCopyMode = False

Ce qui désactivera les scintillements de la dernière cellule copiée

[guilla2874]

Merci pour les réponses !