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 -
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!
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
-
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. » -
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!
