Saisie de donnees avec une boite de dialogue sous excel

Signaler
Messages postés
1
Date d'inscription
samedi 17 novembre 2007
Statut
Membre
Dernière intervention
4 décembre 2007
-
Messages postés
209
Date d'inscription
jeudi 5 août 2004
Statut
Membre
Dernière intervention
15 juillet 2009
-
Bonjour, J'utilise un fichier Excel 2000 comme une base de donnees pour gestion de stock,
Chaque Colonne contient differentes infos pour un materiel, J'utilise une nouvelle ligne pour chaque materiel que je recois,
J'aimerai avoir un bouton sur cette feuille excel qui en cliquant dessus, ouvre une boite de dialogue pour entrer et valider chaque information pas a pas pour le nouveau materiel recu dans le stock.
Ca semble simple comme ca, mais j'ai plusieurs choses a prendre en consideration (si realisable):


1- la saisie doit etre simple d'utilisation avec une boite ki pop up posant la question pour chaque titre de colonnne par exemple:
"CLIENT??" L'utilisateur entre sa reponse valide et avec entree, "REF CLIENT? " L'utilisateur entre sa reponse valide et avec entree,etc......
La question etant bien sur le titre de chaque colonne ou les informations doivent etre saisies.
2- J'ai des donnees dans plus de 20 Colonnes pour chaque materiel mais seul les 10 premieres vont contenir des infos sur la reception, si quelqu'un peut me montrer le principe pour 2 ou 3 colonnes, je devrais facilement adapter pour plus de colonnes... non?
3- Enfin, et pas le plus simple pour moi, la sixieme colonne est nommee date de reception, est-il possible ke la macro entre la date dans la colonne du jour automatiquement dans cette colonne sans question ni validation.


Merci de votre aide!!!! :-)

1 réponse

Messages postés
209
Date d'inscription
jeudi 5 août 2004
Statut
Membre
Dernière intervention
15 juillet 2009

exemple :
il y a 20 colonnes. et un nom
la selection absolue est au départ la case A1
on demande par selection down le bas de la colonne. et on met la selection relative à ce niveau
apres tout part de ce niveau :
activecell.offset(0,5)
veut dire : à partir de la cellule de reference, c'est à dire dans ce cas, le bas de la colonne A, va 5 colonnes à droite et entre le nom et 5

Private Sub commandButton1_click()
Dim nom As String
nom = InputBox("entrez le nom")
Range("A1").Select
 Selection.End(xlDown).Select
    ActiveCell.Offset(1, 1).Range("A1").Select
slection = nom
ActiveCell.Offset(0, 1) = nom & " 2"
ActiveCell.Offset(0, 2) = nom & " 3"
ActiveCell.Offset(0, 3) = nom & " 4"
ActiveCell.Offset(0, 4) = nom & " 5"
ActiveCell.Offset(0, 5) = nom & " 6"
ActiveCell.Offset(0, 6) = nom & " 7"
ActiveCell.Offset(0, 7) = nom & " 8"
ActiveCell.Offset(0, 8) = nom & " 9"
ActiveCell.Offset(0, 9) = nom & " 10"
ActiveCell.Offset(0, 10) = nom & " 11"
ActiveCell.Offset(0, 11) = nom & " 12"
ActiveCell.Offset(0, 12) = nom & " 13"
ActiveCell.Offset(0, 13) = nom & " 14"
ActiveCell.Offset(0, 14) = nom & " 15"
ActiveCell.Offset(0, 15) = nom & " 16"
ActiveCell.Offset(0, 16) = nom & " 17"
ActiveCell.Offset(0, 17) = nom & " 18"
ActiveCell.Offset(0, 18) = nom & " 19"
ActiveCell.Offset(0, 19) = nom & " 20"
End Sub