VBA : Ecriture sur la mauvaise feuille Fermé

Question

Bonjour, je ne pense pas que mon erreurs soit grosse mais, je souhaiterais écrire quelques choses sur une feuille "cotisation" depuis un formulaire, sauf, que le formulaire écrit mes données directement sur la case sélectionnée et non là ou je le souhaite. (PS : la case sélectionnée est une case appartenant à une page ou il y a tout mes boutons)

Le code en question :
Private Sub Validercotisation_Click()    Dim i As Integer    If ajoutcotisation.Nom = "" Or ajoutcotisation.prenom = "" Or ajoutcotisation.Email = "" Or ajoutcotisation.sommecotisation = "" Then    Else        i = 2        Do While Worksheets("cotisation").Cells(i, 1) <> ""          Cells(i, 1).Offset(1, 0).Select         i = i + 1        Loop        ActiveCell.Value = ajoutcotisation.Nom.Value        ActiveCell.Offset(0, 1) = ajoutcotisation.prenom.Value        ActiveCell.Offset(0, 2) = ajoutcotisation.dateinscription.Value        ActiveCell.Offset(0, 3) = ajoutcotisation.Email.Value        ActiveCell.Offset(0, 4) = ajoutcotisation.sommecotisation.Value        Unload ajoutcotisation    End IfEnd Sub

merci d'avance pour votre aide ! 

Configuration: Windows 7 / Chrome 45.0.2454.101

f894009 · Answer

Bonjour, Private Sub Validercotisation_Click() Dim PCV As Integer If ajoutcotisation.Nom <> "" And ajoutcotisation.prenom <> "" And _ ajoutcotisation.Email <> "" And ajoutcotisation.sommecotisation <> "" Then With worksheest("cotisation") 'premiere cellule vide colonne A PCV = .Range("A" & Rows.Count).End(xlUp).Row + 1 .Range("A" & PCV) = ajoutcotisation.Nom.Value .Range("B" & PCV) = ajoutcotisation.prenom.Value .Range("C" & PCV) = ajoutcotisation.dateinscription.Value .Range("D" & PCV) = ajoutcotisation.Email.Value .Range("E" & PCV) = ajoutcotisation.sommecotisation.Value End With Unload ajoutcotisation End If End Sub

VBA : Ecriture sur la mauvaise feuille

1 réponse

Discussions similaires