Microsoft 365 Probleme Formulaire VBA bouton Ajouter

JBARBE

XLDnaute Barbatruc

• 8 Juillet 2019

• #2

Bonjour à tous, toutes,
Essai ceci (voir fichier joint ):

Code:

Private Sub btnAjouter_Click()
Sheets("Récapitulatif A.S").Activate
Range("A2").Select
If Range("A3") = "" Then
Range("A3").Select
Else
Selection.End(xlDown).Offset(1, 0).Select 'Position derniere ligne vide
End If
'Selection.Listobject.ListRows.Add (ActiveCell.Row)
'Selection.Offset(1, 0).Select 'Se decaler d'une ligne vers le bas
ActiveCell = lstEntreprise.Value
ActiveCell.Offset(O, 1).Value = lstCategorie
ActiveCell.Offset(O, 2).Value = lstDate
ActiveCell.Offset(O, 3).Value = txtDescription
ActiveCell.Offset(O, 4).Value = txtMontant

Sheets("Suivi A.S").Activate

End Sub

 

Pièces jointes

• test.xls

  50 KB · Affichages: 4

Dernière édition: 8 Juillet 2019

Vote positif 0 Vote négatif

E

Elie1211

XLDnaute Nouveau

• 8 Juillet 2019

• #3

Bonjour,

Merci de ta reponse j'ai essayé malheureusement le probeme n'est toujours pas résolu sa rajoute deux ligne et la 3eme vient ecraser la deuxieme et ainsi de suite j'ai poster une photo du tableau peut etre que c'est moi qui est fait une erreur

 

Pièces jointes

• Capture d’écran (50).png

  318.4 KB · Affichages: 14

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 8 Juillet 2019

• #4

Re,
Peux-tu nous joindre ton fichier confidentiel !
ça sera mieux que de longues discutions pour rien !
@+

 

Vote positif 0 Vote négatif

E

Elie1211

XLDnaute Nouveau

• 8 Juillet 2019

• #5

Ok le voici :
PS:J'aimerais bien que sa insere une nouvelle ligne plutot que sa le mette a la deriere ligne pour pouvoir rajouter la ligne des totaux a la fin

 

Pièces jointes

• Suivi A.S.xlsm

  112 KB · Affichages: 3

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 8 Juillet 2019

• #6

Re,
Il y a un mot de passe !!!!

 

Vote positif 0 Vote négatif

E

Elie1211

XLDnaute Nouveau

• 8 Juillet 2019

• #7

JBARBE à dit:

Re,
Il y a un mot de passe !!!!

Cliquez pour agrandir...

ah merde je croyais l'avoir enlever c'est assecure123

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 8 Juillet 2019

• #8

Elie1211 à dit:

Ok le voici :
PS:J'aimerais bien que sa insere une nouvelle ligne plutot que sa le mette a la deriere ligne pour pouvoir rajouter la ligne des totaux a la fin

Cliquez pour agrandir...

Re,
Je ne comprends pas!
Ou veux-tu que cela insère une nouvelle ligne ?

 

Vote positif 0 Vote négatif

E

Elie1211

XLDnaute Nouveau

• 8 Juillet 2019

• #9

JBARBE à dit:

Re,
Je ne comprends pas!
Ou veux-tu que cela insère une nouvelle ligne ?

Cliquez pour agrandir...

dans le tableau qui est dans la feuille "Recapitulatif A.S"

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 8 Juillet 2019

• #10

Elie1211 à dit:

dans le tableau qui est dans la feuille "Recapitulatif A.S"

Cliquez pour agrandir...

Je veux dire que si ce n'est pas la derniére ligne alors quelle ligne ( une de moins que la derniére ou 2 etc.....)

 

Vote positif 0 Vote négatif

E

Elie1211

XLDnaute Nouveau

• 8 Juillet 2019

• #11

JBARBE à dit:

Je veux dire que si ce n'est pas la derniére ligne alors quelle ligne ( une de moins que la derniére ou 2 etc.....)

Cliquez pour agrandir...

Non mais en fait j'avais suivi un tuto qui mettais les infos du formulaire a la derniere ligne du tableau, et quand j'activer la ligne des totaux sa mettais la ligne du formulaire en dessous de la ligne des totaux et donc en dehors du tableau.Donc je voudrais juste que les données du formulaire s'incrémente dans le tableau dans une nouvelle ligne a chaque fois et que je puisse mettre la ligne des totaux en bas pour avoir le total des montant a chaque fois je sais pas si tu as compris?

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 8 Juillet 2019

• #12

Re,
Peut-être ceci !
@+

 

Pièces jointes

• Suivi A.S-1.xlsm

  105.5 KB · Affichages: 5

Vote positif 0 Vote négatif

E

Elie1211

XLDnaute Nouveau

• 8 Juillet 2019

• #13

JBARBE à dit:

Re,
Peut-être ceci !
@+

Cliquez pour agrandir...

Ah ooue putain t au top mec mais tu sais pk quand je rajoute un montant il se met sous format texte dans le tableau sa fait pas le total il faut a chaque fois que je marque convertir en nombre

 

Vote positif 0 Vote négatif

E

Elie1211

XLDnaute Nouveau

• 8 Juillet 2019

• #14

Ah merde quand j'ai voulu supprimer les données du tableau et que j'ai recommence a rentrer des donnée dans le formulaire sa a recommencé a écraser les autres lignes putain je pensais pas que c'etais aussi compliqué de faire un formulaire avec une bdd

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 8 Juillet 2019

• #15

Re,
ça doit être bon maintenant !

 

Pièces jointes

• Suivi A.S-1.xlsm

  105.5 KB · Affichages: 7

Vote positif 0 Vote négatif