Menu

Excel erreur 1004 en VBA [Résolu/Fermé]

-
Bonjour,

J'ai lu plusieurs forum trouvant cette erreur mais je n'ai pas réussi à identifier mon erreur ..
voila j'ai besoins d'utilisé excel comme base de donné car acces est inaccessible a mon travail . Et à chaque excussion de mon code , j'ai l'erreur 1004 qui apparait :/
Voici mon code :

Sub Personnel()
'aller sur la page et selectionner les cellule
Sheets("formulaire").Select
Range("A2:F2").Select
Selection.Copy
'test determinant ligne ou coller info du tableau
Sheets("123").Select
ValeurA2 = Range("A2").Value
If ValeurA2 = "" Then
Range("A2").Select
Else
Range("A2").End(xlDown).Select
End If
'Memo le n° linge où coller les donnee
ligneActive = ActiveCell.Row
'Collage
Range("A" & ligneActive).Select
Selection.Paste
SkipBlanks = False
'Rendre vierge le formulaire
Sheets("formulaire").Select
Range("A2:F2").Select
Selection.ClearContents
Range("A2").Select
End Sub

je vous remercie d'avance de m'aider =)


Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
12246
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
2 juillet 2019
2089
2
Merci
Bonjour,
Ton code pourrait être résumé comme suit :

Sub Personnel() 
'aller sur la page 
With Sheets("formulaire")
    'copier/coller les cellules
    .Range("A2:F2").Copy Sheets("123").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    'Rendre vierge le formulaire 
    .Range("A2:F2").ClearContents 
End With
End Sub


Cordialement,
Franck P

Dire « Merci » 2

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 54987 internautes nous ont dit merci ce mois-ci

Messages postés
15079
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
23 juin 2018
3605
2
Merci
bonjour,

Tu as constitué ta macro avec l'enregistreur, mais elle peut être beaucoup plus simple et surtout fonctionner ainsi :

Sub Personnel() 
Dim ligneActive As Long 
'test determinant ligne ou coller info du tableau 
ligneActive = Sheets("123").Cells(Rows.Count, 1).End(xlUp).Row + 1 
'aller sur la page et selectionner les cellule 
Sheets("formulaire").Range("A2:F2").Copy Destination:=Sheets("123").Cells(ligneActive, 1) 
'Rendre vierge le formulaire 
Sheets("formulaire").Range("A2:F2").ClearContents 
Sheets("formulaire").Range("A2").Select 
End Sub 

edit: bonjour pijaku, je suis un peu en retard ... bonne journée à toi.

Toujours zen
La perfection est atteinte, non pas lorsqu'il n'y a plus rien à ajouter, mais lorsqu'il n'y a plus rien à retirer. Antoine de Saint-Exupéry

Dire « Merci » 2

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 54987 internautes nous ont dit merci ce mois-ci

0
Merci
Cela fonctionne !
Je vous remercie énormement !