Code VBA : bouton ajout dans une base

Hlecodeur 4 Messages postés mardi 17 avril 2018Date d'inscription 30 avril 2018 Dernière intervention - 30 avril 2018 à 16:42 - Dernière réponse :  Hlecodeur
- 23 mai 2018 à 17:20
Bonjour,
j'ai réaliser un formulaire qui me permet de transcrire des enregistrement avec l'ajout d'un id dans la première colonne qui la valeur de la cellule active -1 voici le code mais cela ne veut pas marcher .
Merci à vous .
Private Sub BtnAjoutdansBase_Click()


Sheets("source").Activate
Range("A1").Activate
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
ActiveCell.Value = ActiveCell.Range.Row
ActiveCell.Offset(0, 1).Value = CbPublication.Value
ActiveCell.Offset(0, 1).Value = TxtDate
ActiveCell.Offset(0, 1).Value = TxtType
ActiveCell.Offset(0, 1).Value = TxtNature
ActiveCell.Offset(0, 1).Value = TxtThème
ActiveCell.Offset(0, 1).Value = CbTonalité
ActiveCell.Offset(0, 1).Value = TxtCirculation
ActiveCell.Offset(0, 1).Value = TxtAuteur
ActiveCell.Offset(0, 1).Value = CbSociété
ActiveCell.Offset(0, 1).Value = CbSecteur
Afficher la suite 

Votre réponse

4 réponses

vb95 1637 Messages postés samedi 11 janvier 2014Date d'inscriptionContributeurStatut 17 août 2018 Dernière intervention - 30 avril 2018 à 18:17
0
Merci
Bonjour
On a redirigé ton message dans la bonne section
Tu l'avais mise dans C, C++, C++ Net
Fais attention la prochaine fois
Merci
Merci vb95 la prochaine fois je ferai plus attention
Commenter la réponse de vb95
cs_MPi 3875 Messages postés mardi 19 mars 2002Date d'inscription 17 août 2018 Dernière intervention - 23 mai 2018 à 17:17
0
Merci
Bonjour,

Change l'indice de colonne.
Tu écris toujours 1...
ActiveCell.Offset(0, 1).Value = CbPublication.Value 
ActiveCell.Offset(0, 1).Value = TxtDate
....

Merci cs_MPi je l'ai deja fait et ca marcher je devais changer l'indice de colonnes
Commenter la réponse de cs_MPi

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.