Voir toute la discussion dans une seule page
Ecrit par
Jean LANNELUCQ le samedi 11 février 2012 dans le thème :
Développement Office
Bonjour à tous,
Je bricole en VBA mais mes limites sont très vite atteintes et j'aurai
besoin de vos compétences pour m'aider sur Excel (2002 SP3) donc je vous
sollicite et vous expose mon problème :
je voudrai compléter un tableau Excel à l'aide d'une boite de dialogue
qui insère les données dans les cellules cibles.
Cela va bien pour la première ligne mais je ne suis pas foutu de passer
à la ligne et de recommencer !!
Pourquoi cela ? pour aider mon épouse préférée (qui est intolérante au
gluten)à compléter ses fiches de remboursement de produits sans gluten.
Le tableau est de la colonne A à la colonne H et les données à saisir
commencent à partir de la ligne 11 (la ligne 10 contient les intitulé de
mes colonnes : Code, Nature, Quantité, Prix, Remboursement, Enseigne,
Code Enseigne, Commentaires)
Je suis arrivé à faire une boite de dialogue pour la saisie et quand je
clique sur le bouton SUIVANT, le code du produit se met dans la cellule
A11, la quantité dans la cellule C11, le prix payé dans la cellule D11,
l'enseigne (ou le produit a été acheté) en F11, le code enseigne en G11
et les commentaires en H11.
Comment continuer à faire cela en A12, A13, A14, A... ?
La macro que j'utilise est la suivante :
Sub TransfertDonnées()
Application.ScreenUpdating = False
Range("A10").Select
Selection.Value = ListeCode.Value
ActiveCell.Offset(0, 2).Range("A1").Select
Selection.Value = Quantité.Text
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.Value = Règlement.Text
ActiveCell.Offset(0, 2).Range("A1").Select
Selection.Value = ListeEnseigne.Value
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.Value = CodeEnseigne.Text
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.Value = Commentaire.Text
ActiveCell.Offset(1, -7).Range("A1").Select
Application.ScreenUpdating = True
End Sub
Merci d'avance de votre aide.
Bien cordialement
Jean
Classé sous : value,
range,
select,
selection,
activecell