Problème de procédure sur mon bouton Ajout

Bonjour à tous,

Voici mon problème je crée un formulaire, tout fonctionne sauf ma procédure pour le bouton "Ajouter"

Voici ma procédure SVP dites moi ou ça bloque car là je ne comprend plus. Chaque fois que je souhaite saisir un nouveau contact celui si écrase le précédent et reste sur la première ligne donc j'ai un tableau à une ligne. Par contre pour les colonnes tout fonctionne.

Ma procédure :

'************************************

'Procédure permettant d'ajouter un nouvel enregistrement

'dans la base de données

'************************************

Private Sub CommandButtonAjout_Click()

Sheets("Source").Activate

Range("A1").Select

Selection.End(xlDown).Select 'on se positionne sur la dernière ligne non vide

Selection.Offset(l, 0).Select 'on se décale d'une ligne vers le bas

ActiveCell = TextNomeleve.Value

ActiveCell.Offset(0, 1).Value = TextPrénomeleve

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

ActiveCell.Offset(0, 3).Value = ComboVoie

ActiveCell.Offset(0, 4).Value = TextAdresse

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

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

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

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

ActiveCell.Offset(0, 9).Value = TextTel1

ActiveCell.Offset(0, 10).Value = TextTel2

ActiveCell.Offset(0, 11).Value = ComboQuartiers

ActiveCell.Offset(0, 12).Value = ComboActivités

ActiveCell.Offset(0, 13).Value = TextDatenaissance

ActiveCell.Offset(0, 15).Value = ComboTypeadhe

ActiveCell.Offset(0, 16).Value = TextNomtuteur1

ActiveCell.Offset(0, 17).Value = TextPrénomtuteur1

ActiveCell.Offset(0, 18).Value = TextNomtuteur2

ActiveCell.Offset(0, 19).Value = TextPrénomtuteur2

ActiveCell.Offset(0, 20).Value = TextMontant

ActiveCell.Offset(0, 24).Value = TextReçu

ActiveCell.Offset(0, 25).Value = TextRFR

ActiveCell.Offset(0, 26).Value = TextPart

ActiveCell.Offset(0, 27).Value = TextQF

ActiveCell.Offset(0, 29).Value = ComboProf

ActiveCell.Offset(0, 30).Value = ComboJour

ActiveCell.Offset(0, 31).Value = ComboHoraires

ActiveCell.Offset(0, 32).Value = ComboDurée

ActiveCell.Offset(0, 33).Value = ComboSalles

ActiveCell.Offset(0, 34).Value = ComboAttest

ActiveCell.Offset(0, 35).Value = ComboDroit

MsgBox "Votre adhérent a bien été ajouté à votre base de données", vbOKOnly + vbInformation, "CONFIRMATION"

End Sub

Merci d'avance,

Myriam

Bonjour

dans cette instruction,

Selection.Offset(l, 0).Select 'on se décale d'une ligne vers le bas

tu as mis un I (L minuscule) au lieu d'un 1

Merci c'est bon.

Bonne journée.