code VBA : bouton ajout dans une base

Question

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

vb95 · Answer

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

cs_MPi · Answer

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

Code VBA : bouton ajout dans une base

2 réponses

Votre réponse