Remplir un onglet via un userform,Erreur à la validation

[Squoltahthx94]

Bonsoir à tous,

J'ai un userform qui me sert à saisir les cellules d'un tableau dans un onglet nommé "BaseIm", je me sert du code suivant :

Private Sub Rec_Inter_Click()
Dim lig As Long
If NumBT.Value = "" Then 'test si N° de BT Présent
    MsgBox "Veuillez remplir le N°de BT" 'si pas le cas prévient
    Exit Sub
Else
    With Sheets("BaseIM")
        lig = .Range("A1").End(xlDown).Row + 1
        .Range("A" & lig).Value = Txt_IM.Text    'Ecrit en A... la valeur de .......
        .Range("b" & lig).Value = Cbx_Prom.Text    'etc....
        .Range("c" & lig).Value = TX_Agence.Text    'etc.....
        .Range("d" & lig).Value = Txt_NomStation.Text
        .Range("e" & lig).Value = Txt_CP.Text
        .Range("f" & lig).Value = Txt_Ville.Text
        .Range("g" & lig).Value = NumBT.Text
      End With
End If
End Sub

Une fois le test passé (txtbox BT remplie) il me donne "Erreur (1004)définie par l'application ou par l'objet"

Je ne voie pas ou est mon erreur quelqu'un à une idée

 

[Gelinotte]

Re : Remplir un onglet via un userform,Erreur à la validation

Bonjour,

Sans fichier exemple pour tester l'erreur, c'est bien difficile.

Peut-être changer .text pour .value

G

 

[Dormeur74]

Re : Remplir un onglet via un userform,Erreur à la validation

Essaye ça pour voir :

Private Sub Rec_Inter_Click()
    Dim lig As Long

    If NumBT.Value = "" Then 'test si N° de BT Présent
        MsgBox "Veuillez remplir le N°de BT" 'si pas le cas prévient
        Exit Sub
    Else
        With Sheets("BaseIM")
            lig = Cells(Rows.Count, 1).End(xlUp).Row + 1
            .Range("A" & lig).Value = Txt_IM.Text    'Ecrit en A... la valeur de .......
            .Range("b" & lig).Value = Cbx_Prom.Text    'etc....
            .Range("c" & lig).Value = TX_Agence.Text    'etc.....
            .Range("d" & lig).Value = Txt_NomStation.Text
            .Range("e" & lig).Value = Txt_CP.Text
            .Range("f" & lig).Value = Txt_Ville.Text
            .Range("g" & lig).Value = NumBT.Text
        End With
    End If

End Sub

 

[Dranreb]

Re : Remplir un onglet via un userform,Erreur à la validation

Bonsoir.
À mon avis il y a de fortes chances que lig atteigne le nombre maxi de ligne + 1. Peut être la colonne A est elle entièrement vide…
Cordialement.

Bonjour Dormeur …plus réveillé que moi !

 

[Dormeur74]

Re : Remplir un onglet via un userform,Erreur à la validation

Bonsoir Dranreb
Je suis un peu insomniaque 🙂

Après vérification, le code de Squoltahthx94 fonctionne très bien sous Excel 2003.
On aurait effectivement une erreur 1004 si la colonne A était vide ou entièrement pleine. ???r

 

[Squoltahthx94]

Re : Remplir un onglet via un userform,Erreur à la validation

Bonjour,

A la demande je vous joins mon fichier car je pense qu'un exemple est plus parlant. La colonne A n'est pas vide

 

[Squoltahthx94]

Re : Remplir un onglet via un userform,Erreur à la validation

re,

J'ai trouvé effectivement ma colonne à n'était pas vide mais j'ai ajouté une ligne fictive et du coup le système prend bien en compte toute les information. Merci de votre aide a tous