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

Signaler
Messages postés
2
Date d'inscription
lundi 25 mars 2013
Statut
Membre
Dernière intervention
26 mars 2013
-
Messages postés
2
Date d'inscription
lundi 25 mars 2013
Statut
Membre
Dernière intervention
26 mars 2013
-
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!


2 réponses

Messages postés
2966
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
875
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. »
Messages postés
2
Date d'inscription
lundi 25 mars 2013
Statut
Membre
Dernière intervention
26 mars 2013

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!