Erreur 6 dépasement de capacité

Bonjour tous le forum.

Un souci avec un userform, une erreur se pose lors de l'ouverture du formulaire de saisie j ai cherché un peu, mais je nai pas tout compris!!!!

Pouvez vous me guider

Merci d'avance

Bonjour,

A tester

2coco6728.xlsm (34.84 Ko)

A+

Merci beaucoup....

Ca fonctionne très bien, j ai juste du adapter le code:

Private Sub ValiderSaisie_Click()

num = Sheets("Recap").Range("A65536").End(xlUp).Row + 1 'on part du bas de la colonne, on cherche

Sheets("Recap").Activate

Range("B" & num).Value = ComboBox1.Value

Range("C" & num).Value = ComboBox2.Value

Range("D" & num).Value = Hauteur.Value => ComBobox3.Value

Range("E" & num).Value = Longueur.Value => Combobox4.Value

Unload Saisir

Saisir.Show

End Sub

Encore merci

Zut!!!

J ai été trop vite à répondre, le problème c'est que il ne mets pas les nouvelle entré à la suite de ceux qu'il y a déjà.

Lors d'une nouvelle saisie, celle ci ecrase la ligne et la remplace.

Tu ne peux pas déterminer le numéro de la dernière ligne renseignée en utilisant la colonne A (Date) qui ne contient aucune donnée.

Essaie comme cela.

Private Sub ValiderSaisie_Click()
    With Sheets("Recap")
        num = .Range("B65536").End(xlUp).Row + 1 'on part du bas de la colonne, on cherche
        .Range("B" & num).Value = ComboBox1.Value
        .Range("C" & num).Value = ComboBox2.Value
        .Range("D" & num).Value = ComboBox3.Value
        .Range("E" & num).Value = ComboBox4.Value
        .Range("F" & num).Value = TextBox1.Value
        .Range("G" & num).Value = TextBox2.Value
    End With
    Unload Saisir
    Saisir.Show
End Sub

A+

Ah ben oui !!!! J ai changé les autres mais oublié celui la!!!!

Petite étourderie....

Merci a+

Rechercher des sujets similaires à "erreur depasement capacite"