VBA : Ecriture sur la mauvaise feuille
mzalbil
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
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 :
merci d'avance pour votre aide !
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 If
End Sub
merci d'avance pour votre aide !
A voir également:
- VBA : Ecriture sur la mauvaise feuille
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Mkdir vba ✓ - Forum VB / VBA
- Dépassement de capacité vba ✓ - Forum Excel
1 réponse
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
