Discussion :

[DRH01]

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 :

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

[ancel17]

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 :

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

Private Sub CommandButton1_Click

en

Code :

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

Private Sub nom_de_ton_bouton_Click

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

[DRH01]

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

[ancel17]

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 :

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

[DRH01]

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

[ancel17]

Mais de rien !

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