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

urbisa Messages postés 2 Statut Membre -  
urbisa Messages postés 2 Statut Membre -
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 4246 Date d'inscription   Statut Contributeur Dernière intervention   954
 
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 Statut Membre
 
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