Sujet Précédent Sujet Suivant

Problème : déclaration déjà existante

Résolu/Fermé
Co_nexion Messages postés 328 Date d'inscription lundi 5 mars 2012 Statut Membre Dernière intervention 15 juillet 2015 - 4 sept. 2012 à 12:04
Co_nexion Messages postés 328 Date d'inscription lundi 5 mars 2012 Statut Membre Dernière intervention 15 juillet 2015 - 4 sept. 2012 à 13:43
Bonjour,

Je me retrouve face à un problème que je n'ai jamais rencontré auparavant.

Sans le fichier cela devrait être jouable à me comprendre mais si jamais je me suis trop avancée n'hésiter pas à me le dire et j'en crée un.

En fait j'ai un userform qui alimente une feuille par ce code 

Dim Ligne As Long
            Ligne = Sheets("CDD").[A65000].End(xlUp).Offset(1, 0).Row
             With Sheets("CDD")
                .Cells(Ligne, 1) = Me.TextBox1 'Prénom
                .Cells(Ligne, 2) = Me.TextBox2 'Nom
                .Cells(Ligne, 3) = Me.TextBox3 'Identifiant
                .Cells(Ligne, 4) = Me.ComboBox1 'Statut
                .Cells(Ligne, 5) = Me.TextBox4 'Fonction
                .Cells(Ligne, 6) = Me.DTPicker1 'Date d'arrivée
                .Cells(Ligne, 7) = Me.DTPicker2 'Date de départ
                .Cells(Ligne, 10) = Me.TextBox7.Value * 1 'Quotité
                .Cells(Ligne, 13) = Me.TextBox8 'Commentaire
                .Cells(Ligne, 14) = Me.TextBox9 'Date de saisie
                .Cells(Ligne, 11) = Me.OptionButton1 'Etudiant
                .Cells(Ligne, 15) = CDate(TextBox10) 'Date d'envoi au CSRH
        End With


Voulant dupliquer les informations sur une autres feuille j'ai simplement dupliquer cette partie en changeant la feuille à alimenter, comme ceci : 

Dim Ligne As Long
            Ligne = Sheets("SuiviCDD").[A65000].End(xlUp).Offset(1, 0).Row
             With Sheets("SuiviCDD")
                .Cells(Ligne, 1) = Me.TextBox1 'Prénom
                .Cells(Ligne, 2) = Me.TextBox2 'Nom
                .Cells(Ligne, 3) = Me.TextBox3 'Identifiant
                .Cells(Ligne, 4) = Me.ComboBox1 'Statut
                .Cells(Ligne, 5) = Me.TextBox4 'Fonction
                .Cells(Ligne, 6) = Me.DTPicker1 'Date d'arrivée
                .Cells(Ligne, 7) = Me.DTPicker2 'Date de départ
                .Cells(Ligne, 10) = Me.TextBox7.Value * 1 'Quotité
                .Cells(Ligne, 16) = Me.TextBox8 'Commentaire
                .Cells(Ligne, 17) = Me.TextBox9 'Date de saisie
                .Cells(Ligne, 11) = Me.OptionButton1 'Etudiant
                .Cells(Ligne, 15) = CDate(TextBox10) 'Date d'envoi au CSRH
        End With


Message d'erreur :

Déclaration existante dans la portée en cours

Pouvez vous m'aider ?


1 réponse

Réponse 1 / 1
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
4 sept. 2012 à 13:15
Bonjour,

Cela vient de : 
Dim Ligne As Long
que tu as copié 2 fois.
La déclaration de variable est valable pour l'ensemble de la procédure, il ne faut donc pas la répéter plusieurs fois
0
Co_nexion Messages postés 328 Date d'inscription lundi 5 mars 2012 Statut Membre Dernière intervention 15 juillet 2015
4 sept. 2012 à 13:43
Merci :)
0