1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VBA Office (Excel, Word ...)

Code VBA : bouton ajout dans une base

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

Réponse 1 / 2
Messages postés
2235
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
15 septembre 2020
 113
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

Merci vb95 la prochaine fois je ferai plus attention
Réponse 2 / 2
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
 18
Bonjour,

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

Merci cs_MPi je l'ai deja fait et ca marcher je devais changer l'indice de colonnes
Répondre Posez votre question