Code VBA : bouton ajout dans une base

Messages postés
4
Date d'inscription
mardi 17 avril 2018
Dernière intervention
30 avril 2018
-
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

2 réponses

Messages postés
1735
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
18 décembre 2018
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
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Dernière intervention
23 août 2018
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.