Posez votre question Signaler

Code VBA : bouton ajout dans une base

Messages postés
4
Date d'inscription
mardi 17 avril 2018
Statut
Membre
Dernière intervention
30 avril 2018
 -
VBA Office (Excel, Word ...) Posez votre question Signaler
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 

2 réponses

Signaler Commenter la réponse de vb95
Messages postés
1946
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
6 octobre 2019
 68
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
Signaler Commenter la réponse de Hlecodeur
-
Merci vb95 la prochaine fois je ferai plus attention
Commenter la réponse de vb95
Signaler Commenter la réponse de cs_MPi
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
 15
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 
....
Signaler Commenter la réponse de Hlecodeur
-
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
Répondre Posez votre question