VBA : Ecriture sur la mauvaise feuille

Fermé

mzalbil - 9 oct. 2015 à 12:40
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 9 oct. 2015 à 14:09

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 If
End Sub

merci d'avance pour votre aide !

A voir également:

VBA : Ecriture sur la mauvaise feuille
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
9 oct. 2015 à 14:09

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

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

VBA erreur 1004

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Discussions similaires

Newsletters