XL 2013 VBA premiers pas, mais pas le bon résultat.

[call911]

Bonjour,

Je viens de suivre un tuto pour faire un formulaire de saisie.
Mon probleme est que les données du formulaire ne s'affichent pas la ou elles devraient.
Les données Nom et prénom ne s'affichent pas dans le tableau, et les données ville apparaissent dans la premiere colonne alors qu'elle devrait s'afficher correctement.
Pourtant, j'ai bien vérifié, je ne vois pas ou est l'erreur par rapport à mon tuto...

Est ce que quelqu'un peut me dire ou est le pb?

Option Explicit

Private Sub Ajouter_Click()
    'RENDRE CHAMP OBLIGATOIRE Verifier que tous les champs ont bien été remplis
    Dim i As Integer
    If Ajoutclient.Nom = "" Or Ajoutclient.Prenom = "" Then
        MsgBox "Merci de remplir tous les champs"
    'VERIFIER PROCHAINE CELLULE LIBRE.
    Else
        i = 2 'la variable i est = a 2, car le tableau commence en 2eme ligne
        Do While Cells(i, 1) <> "" 'Dès le clic sur ajouter, recherche cell different de nul  dans col 1 cell 1 du tableau qui commence en ligne 2
        Cells(i, 1).Offset(1, 0).Select 'se deplacer d'une ligne sur la meme colonne
        i = i + 1 'On incrémente la variable i de 1
        Loop
       
        ActiveCell.Value = Ajoutclient.Nom.Value
        ActiveCell.Offset(0.1).Value = Ajoutclient.Prenom
        ActiveCell.Offset(0.2).Value = Ajoutclient.Ville.Value
        'Unload (Ajoutclient)
    End If
   
       
       
   
   
End Sub

Private Sub Annuler_Click()
    'Pour que lorsque l'on fait annuler sur le formulaire, il ne fasse pas partir les infos déja saisies
    Ajoutclient.Hide
   
End Sub

Private Sub UserForm_Click()

End Sub
'pour charger les données de Villes quand on appelle le formulaire
Private Sub UserForm_Initialize()
    'declaration de la variable
    Dim i As Integer
    'initialisation de la variable
    i = 1
    'cells est un peu comme range, i de la variable en 1 cellule donc A1
    Do While Worksheets("Villes").Cells(i, 1) <> ""
        Ville.AddItem Worksheets("Villes").Cells(i, 1)
        'incrémentation de la variable
        i = i + 1
    Loop
   
End Sub

Merci.

 

[Staple1600]

Bonsoir à tous

Mauvaise syntaxe ici déjà
ActiveCell.Offset(0.1).Value
C'est une virgule qu'il faut pas un point
ActiveCell.Offset(0,1).Value
Fais déjà les changements partout où tu vois cette erreur

 

[call911]

Ah ben oui, tout de suite ça marche mieux.
Merci beaucoup.