Copie de données

J'ai lu cette contribution.

La comande ne s'exucute pas, il me donne une erreur que voici
(Erreur d’exécution ‘1004’ :
La méthode select de la classe Range a échoué)
j'ai besoin d'aide a ce sujet.
merci

SALUT TOUT LE MONDE
puisque je n'ai même pas de notions en vba, j'ai copie cette "macro" pour l'utiliser dans mon fichier et j'aimerai l'affecter à un button command

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub CommandButton1_Click() Sheets("BD").Select Rows("2:2").Select Selection.Insert Shift:=xlDown Range("A2").Select Sheets("Nouveau").Select Range("A2:F2").Select Selection.Copy Sheets("BD").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Sheets("Nouveau").Select Range("C5:C6").Select Application.CutCopyMode = False Selection.ClearContents Range("C8").Select Selection.ClearContents Range("C5").Select End Sub

---

merci d'avance

salut
j'ai deux bd que je voudrai consolider en une seule et pour cela j'ai opter a la recherchev mais ca ne marche pas autant ke la valeur cherchée a subi des modification dans l'un des deux bd + ou - 1 caractere different.
les deux se consiste des champs suivants A,B,C,D avec plus 2500 lignes.
et comme resultat j'aimerai avoir une bd la somme de la colonne D selon les conditions A,B,C
merci

Vérifie dans les propriétés de ton bouton que son nom est bien "CommandButton1".

Si c'est le cas tu copies ton code dans l'éditeur VBA correspondant à la feuille où se trouve ton bouton.

Sinon, tu le renomme ou tu changes

Code:

---

Private Sub CommandButton1_Click

---

en

Code:

---

Private Sub nom_de_ton_bouton_Click

---

et tu copies ton code dans l'éditeur VBA...

bonjour a tous
j'ai essayé ,mais ca marche pas car c un nouveau message qui s'afficher "erreur définie par l'application ou par l'objet".
merci de votre aide

Salut,

après réflexion, le code que tu donne provient très certainement d'une macro enregistrée.

que tu peux faire toi même... (Créer une macro, dans l'aide Excel)

Ceci dit, insère un nouveau module dans ton projet VBA et colle ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub macro1() Rows("2:2").Select Selection.Insert Shift:=xlDown Sheets("Nouveau").Select Range("A2:F2").Select Selection.Copy Sheets("BD").Select Range("A2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Sheets("Nouveau").Select Range("C5:C6").Select Application.CutCopyMode = False Selection.ClearContents Range("C8").Select Selection.ClearContents Range("C5").Select   End Sub

---

Supprime le code affecté au bouton

et ça dois marcher

salut,
et merci de m'avoir aider car ca marche a merveille a plus.:yaisse2:

Mais de rien !

Je suis bien content de trouver quelqu'un quand j'ai besoin d'aide !!!