Macro pour remplir une base de donnée avec un formulaire sur exc

Fermé
urbisa Messages postés 2 Date d'inscription lundi 25 mars 2013 Statut Membre Dernière intervention 26 mars 2013 - Modifié par urbisa le 25/03/2013 à 21:09
urbisa Messages postés 2 Date d'inscription lundi 25 mars 2013 Statut Membre Dernière intervention 26 mars 2013 - 26 mars 2013 à 01:21
Bonjour,

J'aimerais savoir ce qui ne fonctionne pas avec ma macro ?
Je suis novice... et découragée!

Sub remplir_bdd()
Dim ligvide As Long

With Sheets(basededonnées)
ligvide = .Range("A65536").End(3).Row + basededonnées
.Range(.Cells(ligvide, basededonnées), .Cells(ligvide + artiste, basededonnées)) = Sheets(artiste).Range("b1:b25").Value
.Activate
End With

Sheets(artiste).Range("b1:B25").ClearContents

End Sub

J,espère que vous pourrez m'aider svp!


A voir également:

2 réponses

Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 952
Modifié par Mytå le 25/03/2013 à 21:51
Salut le Forum

Déjà que représente : basededonnées et artiste

Car par défaut ses valeurs égalent zéros.

Mytå

Merci de donner suite à votre question, nous ne sommes pas des robots...
« Si le déboguage est l'art d'enlever les bogues, alors la programmation doit être l'art de les créer. »
0
urbisa Messages postés 2 Date d'inscription lundi 25 mars 2013 Statut Membre Dernière intervention 26 mars 2013
26 mars 2013 à 01:21
Bonsoir!

J'ai finalement effacé cette macro et repris une autre construite différemment et ca semble fonctionné. ENFIN! Je m'y remet demain.

MErci de ton aide!
0