Problème Macro Excel 2007
1. Bonsoir à tous,
J'aurai besoin d'aide sur une macro très simple qui ne fonctionne pas et qui me pose problème.
La fonction de la macro qui bugg est le fait de sélectionner une cellule de la copier, et de la coller sur une autre feuille dans une colonne sur le première cellule vide.
1- Lorsque je créé une forme automatique, que j'affecte la macro avec module sur cette forme la macro fonctionne très bien :
Sub Enregistrer()
Sheets("FEUIL1").Select
Range("A1").Select
Selection.Copy
Sheets("FEUIL2").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'
End Sub
2- Lorsque je créé un bouton de commande VB, que je lui affecte le même type de code, la macro plante ... !
Private Sub Enregistrer_Click()
Sheets("FEUIL1").Select
Range("A1").Select
Selection.Copy
Sheets("BASE DONNEES").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'
End Sub
Je pense que quelqu'un va trouver sans aucun pb, je n'en doute pas !!!
Merci d'avance à tous.
Jo
J'aurai besoin d'aide sur une macro très simple qui ne fonctionne pas et qui me pose problème.
La fonction de la macro qui bugg est le fait de sélectionner une cellule de la copier, et de la coller sur une autre feuille dans une colonne sur le première cellule vide.
1- Lorsque je créé une forme automatique, que j'affecte la macro avec module sur cette forme la macro fonctionne très bien :
Sub Enregistrer()
Sheets("FEUIL1").Select
Range("A1").Select
Selection.Copy
Sheets("FEUIL2").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'
End Sub
2- Lorsque je créé un bouton de commande VB, que je lui affecte le même type de code, la macro plante ... !
Private Sub Enregistrer_Click()
Sheets("FEUIL1").Select
Range("A1").Select
Selection.Copy
Sheets("BASE DONNEES").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'
End Sub
Je pense que quelqu'un va trouver sans aucun pb, je n'en doute pas !!!
Merci d'avance à tous.
Jo
2 réponses
-
Contributeurbonjour
Ta première macro est dans un module. Tu as mis la seconde dans le code de la feuille. Il te suffit de garder la première et de l'appeler ainsi dans la seconde.
Private Sub Enregistrer_Click() Call Enregistrer End Sub -
bonjour
est ce que ceci ne suffirait pas ?
Private Sub Enregistrer_Click() Dim lifin As Long lifin = Sheets("BD").Range("A" & Rows.Count).End(xlUp).Row Sheets("F1").Range("A1").Copy Sheets("BD").Cells(lifin + 1, 1) End Sub
bonne suite
