zibou85
Messages postés10Date d'inscriptionmercredi 24 mai 2006StatutMembreDernière intervention19 septembre 2006
-
24 mai 2006 à 11:05
zibou85
Messages postés10Date d'inscriptionmercredi 24 mai 2006StatutMembreDernière intervention19 septembre 2006
-
6 juin 2006 à 15:18
Bonjour,
je suis comptable d'une société et je travaille sur la gestion des articles que l'on vend.
Nous vendons à peu près 200 articles par an.
J'ai donc créé un fichier excel avec notre stock sur une feuille
puis après la vente, je le transfere sur une autre feuille.
Mon problème est que je met en place une feuille ACCUEIL qui aura plusieurs boutons :
1- Vente
2- Mise sur Expo
tout ceci pour guider les utilisateurs de l'entreprise qui ne sont pas forcement doué en informatique
explication de 1-Vente
La procédure est la suite:
lorsqu'il clique sur le bouton "Vente" de la feuille ACCUEIL, il se retrouve sur la feuille "stock"
Sheets("Stock").Select
Je demande qu'il selectionne l'article vendu
message = MsgBox("Merci de sélectionner le numéro du monument dans l'exposition", vbInformation, "Bravo")
La je suis bloqué car j'aimerais que l'utilisateur clique sur la ligne qui correspond. Après le clique sur la ligne, je voudrais selectionner que ca prend les cellules suivantes mais j'ai une erreur:
Range("A" & ligne & ":K" & ligne).Select
Je suis donc bien coincé, je vous remercie de votre aide
et je vous tiens informer de mes avancements (je ne suis pas programmeur donc ca va pas vite )
merci
Alboure
Messages postés42Date d'inscriptionvendredi 10 octobre 2003StatutMembreDernière intervention21 juin 2006 24 mai 2006 à 11:21
Bonjour, il faut ouvrir l'éditeur Visual Basic, double-cliquer sur ThisWorkbook à gauche, sélectionner Workbook et sheetselectionchange en haut, et il y a ca qui apparait:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
zibou85
Messages postés10Date d'inscriptionmercredi 24 mai 2006StatutMembreDernière intervention19 septembre 2006 6 juin 2006 à 15:18
J'ai bien avancé.
je vous transmets mon code après explication de mon probleme.
Après la selection de la ligne à déplacer, je n'arrive pas à la coller dans l'autre feuille.
J'aimerais pouvoir copier ma ligne de ma feuille stock vers ma feuille 2006 avec un inserer les cellules copiées mais un simple copier ne marche pas.
Public Sub CmdVente_Click()
Dim Result As Range: Dim LigneSelected As Long
Dim Vente As Range: Dim LigneVente As Long
' On intercepte l'éventuelle erreur si la feuille n'éxiste pas
On Error GoTo CmdVente_Click_Error
' On selectionne la feuille
Sheets("Stock").Select
' on demande de sélectionner une ligne
' Ce n'est pas la meilleure manière mais bon .....
' on évite le plantage en cas de click sur le bouton annuler de l'inputbox par un Resume Next
On Error Resume Next
Set Result = Application.InputBox("Merci de sélectionner la ligne de la vente", "Sélection", , , , , , 8)
If Err <> 0 Then Err.Clear
' Si pas de sélection alors on sort
If Result = 0 Then Exit Sub
' On récupère le n° de la ligne dans le cas ou une cellule est sélectionée
LigneSelected = Result.Row
' On sélectionne les cellules de la ligne concernée
ActiveSheet.Range("A" & LigneSelected & ":K" & LigneSelected).Select
' copie des cellules et envoi dans la fiche des ventes
Selection.Copy
Sheets("2006").Select
Set Vente = Application.InputBox("Merci de sélectionner l'emplacement vide dans la bonne expo", "Sélection", , , , , , 8)
LigneVente = Vente.Row
'ActiveSheet.Range("A" & LigneVente & ":K" & LigneVente).Insert shift:=xlDown
'ActiveSheet.Range("A" & LigneVente & ":K" & LigneVente).Select
'ActiveSheet.Paste
ActiveSheet.Range("A" & LigneVente & ":K" & LigneVente).Select
Selection.Paste
CmdVente_Click_Error:
MsgBox "Une erreur est survenue, vérifiez que la feuille existe", vbCritical + vbOKOnly, "Erreur"
Resume CmdVente_Click_Error_End
End Sub