Btn AJOUTER

Bonjour,

je sèche malgré mes recherches ! Si quelqu'un a la gentillesse de jeter un œil averti sur mon code. Merci

l'ajout cela reste sur la premiere ligne.

voici mon problème :

Private Sub btnAjouter_Click()

Sheets("Inscriptions").Activate

Range("A1").Select

Selection.End(xlDown).Select

Dim DernLigne As Long

DernLigne = Range("A1048576").End(xlUp).Row

ActiveCell = TxtDossard.Value

ActiveCell.Offset(0, 1).Value = TxtNom

ActiveCell.Offset(0, 2).Value = TxtPrenom

ActiveCell.Offset(0, 3).Value = cboCivilité

ActiveCell.Offset(0, 4).Value = CboCatégorie

ActiveCell.Offset(0, 5).Value = Txtclub

ActiveCell.Offset(0, 6).Value = TxtAssociation

ActiveCell.Offset(0, 7).Value = TxtVille

ActiveCell.Offset(0, 8).Value = TxtMail

MsgBox " COUREUR ENREGISTRÉ", vbOKOnly + vbInformation, "CONFIRMATION"

cboService = ""

cboStatut = ""

CboCatégorie = ""

cboCivilité = ""

TxtNom = ""

TxtDossard = ""

TxtPrenom = ""

TxtTCivilité = ""

Txtnaissance = ""

Txtclub = ""

TxtAssociation = ""

TxtVille = ""

TxtMail = ""

End Sub

Bonjour Jfrançois02100, le forum,

l'ajout cela reste sur la premiere ligne.

C'est normal, tu lui dit de sélectionner A1, puis à partir de la cellule active (donc A1), d'écrire sur la ligne en décalant vers la droite (offset) ,

Cordialement,

xorsankukai a écrit :

Bonjour Jfrançois02100, le forum,

l'ajout cela reste sur la premiere ligne.

C'est normal, tu lui dit de sélectionner A1, puis à partir de la cellule active (donc A1), d'écrire sur la ligne en décalant vers la droite (offset) ,

Cordialement,

Bonjour,

Merci pour ta réponse mais

il me dit : Erreur de compilation

Qualificateur incorrect

Cordialement.

Essaie ceci:

Private Sub btnAjouter_Click()

Dim dl As Integer
    dl = Range("A" & Rows.Count).End(xlUp).Row + 1

With Sheets("Inscriptions")
.Range("A" & dl).Value = TxtDossard.Value
.Range("B" & dl).Value = TxtNom
.Range("C" & dl).Value = TxtPrenom
.Range("D" & dl).Value = cboCivilité
.Range("E" & dl).Value = CboCatégorie
.Range("F" & dl).Value = Txtclub
.Range("G" & dl).Value = TxtAssociation
.Range("H" & dl).Value = TxtVille
.Range("I" & dl).Value = TxtMail
End With

MsgBox " COUREUR ENREGISTRÉ", vbOKOnly + vbInformation, "CONFIRMATION"

cboService = ""
cboStatut = ""
CboCatégorie = ""
cboCivilité = ""
TxtNom = ""
TxtDossard = ""
TxtPrenom = ""
TxtTCivilité = ""
Txtnaissance = ""
Txtclub = ""
TxtAssociation = ""
TxtVille = ""
TxtMail = ""

End Sub

Où à partir de ton code:

Private Sub btnAjouter_Click()

Dim DernLigne As Long
    DernLigne = Range("A1048576").End(xlUp).Row + 1

Sheets("Inscriptions").Activate
Range("A" & DernLigne).Select

ActiveCell = TxtDossard.Value
ActiveCell.Offset(0, 1).Value = TxtNom
ActiveCell.Offset(0, 2).Value = TxtPrenom
ActiveCell.Offset(0, 3).Value = cboCivilité
ActiveCell.Offset(0, 4).Value = CboCatégorie
ActiveCell.Offset(0, 5).Value = Txtclub
ActiveCell.Offset(0, 6).Value = TxtAssociation
ActiveCell.Offset(0, 7).Value = TxtVille
ActiveCell.Offset(0, 8).Value = TxtMail
MsgBox " COUREUR ENREGISTRÉ", vbOKOnly + vbInformation, "CONFIRMATION"

cboService = ""
cboStatut = ""
CboCatégorie = ""
cboCivilité = ""
TxtNom = ""
TxtDossard = ""
TxtPrenom = ""
TxtTCivilité = ""
Txtnaissance = ""
Txtclub = ""
TxtAssociation = ""
TxtVille = ""
TxtMail = ""

End Sub

rien de Rien !!!

Re,

Le & dl doit se situer dans la parenthèse !

.Range("A" & dl).Value = TxtDossard.Value

et non comme tu l'as écris :

.Range("A" )& dl.Value = TxtDossard.Value

Et change également le nom des colonnes sur les lignes suivantes ("B"; "C"; "D"; etc....) !

.Range("A" & dl).Value = TxtDossard.Value
.Range("B" & dl).Value = TxtNom
.Range("C" & dl).Value = TxtPrenom
.Range("D" & dl).Value = cboCivilité
.Range("E" & dl).Value = CboCatégorie
.Range("F" & dl).Value = Txtclub
.Range("G" & dl).Value = TxtAssociation
.Range("H" & dl).Value = TxtVille
.Range("I" & dl).Value = TxtMail

Cordialement,

Merci beaucoup !

Voila cela fonctionne impeccablement

Bien cordialement.

Re,

Merci pour ton retour,

Bonne journée.