Code VBA : bouton ajout dans une base

Hlecodeur
Messages postés
4
Date d'inscription
mardi 17 avril 2018
Statut
Membre
Dernière intervention
30 avril 2018
- Modifié le 30 avril 2018 à 16:49
 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

2 réponses

vb95
Messages postés
2630
Date d'inscription
samedi 11 janvier 2014
Statut
Modérateur
Dernière intervention
19 mai 2022
151
30 avril 2018 à 18:17
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
0
Merci vb95 la prochaine fois je ferai plus attention
0
cs_MPi
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
20
23 mai 2018 à 17:17
Bonjour,

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

0
Merci cs_MPi je l'ai deja fait et ca marcher je devais changer l'indice de colonnes
0