code VBA

Question

Bonjour a tous , pas habituer a poser des question sur des forum
je me permet de poser une question sur les code VBA qui semblera ridicule pour certain, mais étant novice dans la matière et étant fasciné par les possibilité d'Excel, je voudrai savoir si je peut rajouter une ligne en dessous en même temps que chaque rajout a ma liste
je suis arrivé a faire une liste automatisée grasse a tous les forums ou la gentillesse des abonnés nous donne de sacré coup de mains
mais la je n"est pas trouvé de réponse et mes connaissance sont vite limitées
merci d'avance si quelqu'un veux bien prendre le temps de m'aider
'******************************
'Procedure permettant d'ajouter un nouvelle enregistrement
'Dans la liste client
'******************************
Private Sub btnAjoutDevis_Click()
 Sheets("devis").Activate
 Range("A17").Select 'cellule du début de la plage (plage d'au moin 2 cellules)
 Selection.End(xlDown).Select 'on se positionne sur la derniére ligne non vide (c'est un L et non un 1 dans(xlDown))
 Selection.Offset(1, 0).Select 'on se décale d'une ligne vers le bas (le premier 1 corespond a ligne, le deusiéme 1 correspond a colone)
 ActiveCell = txtNumeroDevis.Value
 ActiveCell.Offset(0, 1).Value = txtDescription
 ActiveCell.Offset(0, 2).Value = txtQuantite.Value 'ajouter .Value a la fin permet d'enregistrer dans le format nombre
 ActiveCell.Offset(0, 3).Value = cboUnite
 ActiveCell.Offset(0, 4).Value = txtPrixUnitaireht.Value & "€"
 ActiveCell.Offset(0, 7).Value = txtTva.Value & "%"
 MsgBox "Votre nouveau client à bien étè ajouté a votre liste client", vbOKOnly + vbInformation, "CONFIRMATION"
End Sub
encore merci

f894009 · Answer

Bonjour,
je voudrai savoir si je peut rajouter une ligne en dessous en même temps que chaque rajout a ma liste 
Pouvez developper, comprends pas???????
votre code sans les select et offset
'******************************
'Procedure permettant d'ajouter un nouvelle enregistrement
'Dans la liste client
'******************************
Private Sub btnAjoutDevis_Click()
    With Worksheets("devis")
        PCV = .Range("A" & Rows.Count).End(xlUp).Row + 1
        If PCV < 17 Then PCV = 17
        .Range("A" & PCV) = txtNumeroDevis.Value
        .Range("B" & PCV).Value = txtDescription
        .Range("C" & PCV).Value = txtQuantite.Value 'ajouter .Value a la fin permet d'enregistrer dans le format nombre
        .Range("D" & PCV).Value = cboUnite
        .Range("E" & PCV).Value = txtPrixUnitaireht.Value & "€"
        .Range("H" & PCV).Value = txtTva.Value & "%"
    End With
MsgBox "Votre nouveau client à bien étè ajouté a votre liste client", vbOKOnly + vbInformation, "CONFIRMATION"

End Sub

satrian15 · Answer

oui tout a fait
en faite c'est peut être mon raisonnement qui n'est pas logique
ce que je voulais faire ce sont des feuille de devis avec entête et toute les information nécessaire et un formulaire pour le remplir automatiquement, jusque la j'y suis arrivée par l'aide des forum
après mon raisonnement est sur la partie a remplir ,en partie haute avoir 1 ligne avec des entête de colonnes (c'est OK) et en partie basse une autre ligne avec les totaux et c'est la que ma logique n'est peut être pas bonne
un espace entre les 2 ou le formulaire rempli les ligne et je voulais ajouter des ligne vierge pour que ma ligne avec mes totaux reste en dessous et ne soi pas remplace par les ajout du formulaire
je ne sais pas si mon explication est claire, mais c’était ma logique qui est peut être complètement fausse , ce n"est peut être pas du tout comma sa qu'il faut voir le montage
merci

satrian15 · Answer

Bonjour
non les lignes VBA pour les totaux ne son pas faite, actuellement sur ma feuille ce sont juste des formules dans une cellule (somme) etc, mais dans votre  réponse vous m'avez écrit : "mais vous pourriez aussi écrire la ligne des totaux en fin d’écriture des lignes du devis par du VBA " 
ce qui me donne une idée très intéressante et m’aiguille sur ce que je peut faire, c'est pour cela que je vais faire des recherche pour savoir de quelle manière écrire ces lignes totaux
Je découvre excel sous un autre angle, professionnellement et personnellement je me servais d'excel pour faire des petit tableau ou des choses relativement simple ,aujourd'hui ma situation professionnel a changée et je cherche une façon simple de gérer des devis, grasse a internet et aux forums je découvre l'étendue des possibilités d'excel  et j'éssai de me faire une petite application pour cela(tout en restant modeste) il faut pas oublier que je suis novice dans ce domaine ,VBA, macro, mais c'est très intéressant

satrian15 · Answer

Bonjour
je vous joint le lien de mon dossier au stade ou j'en suis actuellement
merci
https://www.cjoint.com/c/GAghEJysEke

satrian15 · Answer

Bonjour
c'est sur que si il y a qu'une feuille a gérer c'est beaucoup mieux et plus simple, mais la j'aurai besoin que vous m'expliqué comment procéder pour le mettre en place,si vous le voulez bien
excellente idée pour gérer les clients la combobox avec les noms de client
je n'est pas encore les bon réflexes pour gérer certaines choses avec excel (je découvre)
Mais merci beaucoup

Code VBA

5 réponses

Discussions similaires

Newsletters