Excel redemarre

Bonjour à tous

j'ai un soucis avec excel. lorsque je lance le bouton valider, excel redémarre.

En effet j'ai créer un formulaire pour la saisie informations sur les membres d'une organisation.

voici le code pour l'enregistrement des données dans le tableau excel. lorsque je lance le bouton valider excel redemarre sans que les informations ne soit inscrites dans le tableau.

Private Sub CboAjouter_Click()

Sheets("PLANTEURS ECAM").Activate

Dim dlt As Integer

dlt = Sheets("PLANTEURS ECAM").Range("B1048576").End(xlUp).Row + 1

Cells(dlt, 2) = Me.TxtCode.Text

Cells(dlt, 4) = Me.TxtNom.Text

Cells(dlt, 5) = Me.TxtAdhesion.Text

Cells(dlt, 7) = Me.TextBox2.Text

Cells(dlt, 8) = Me.CboFonction.Text

Cells(dlt, 9) = Me.TxtPhone1.Text

Cells(dlt, 10) = Me.TxtPhone2.Text

Cells(dlt, 11) = Me.TxtMail.Text

Cells(dlt, 12) = Me.CboNaturePI.Text

Cells(dlt, 13) = Me.TxtPI.Text

Cells(dlt, 14) = CDate(Me.TxtDatePI.Text)

Cells(dlt, 15) = Me.TxtNbChamps.Text

Cells(dlt, 16) = Me.TxtSupTotale.Text

Cells(dlt, 17) = Me.TxtSupCultivee.Text

Cells(dlt, 18) = Me.TextBox1.Text

If Me.OptionButton1 = True Then

Cells(dlt, 6) = "M"

Else

Cells(dlt, 6) = "F"

End If

' vider les champs

Me.TxtNumero.Text = ""

Me.TxtCode.Text = ""

Me.TxtNom.Text = ""

Me.TxtAdhesion.Text = ""

Me.TextBox2.Text = ""

Me.CboFonction.Text = ""

Me.TxtPhone1.Text = ""

Me.TxtPhone2.Text = ""

Me.TxtMail.Text = ""

Me.CboNaturePI.Text = ""

Me.TxtPI.Text = ""

Me.TxtDatePI.Text = ""

Me.TxtNbChamps.Text = ""

Me.TxtSupTotale.Text = ""

Me.TxtSupCultivee.Text = ""

Me.TextBox1.Text = ""

Me.Image1.Picture = Nothing

'Me.TxtCode.SetFocus

ActiveSheet.RefreshAll

ThisWorkbook.Save

End Sub

Aidez moi je vous en pris. je siums sous excel 2016 et windows 8

cordialement

Bonjour Offiange le forum

bah oui tu mets ta macro, mais tu veux qu'on vérifie comment sans le fichier?

a+

papou

Bonjour,

Il faudrait savoir si ton problème de redémarrage se produit avec d'autres fichiers ou seulement avec celui que tu indiques...

Si c'est ton application qui est endommagée, ton fichier n'y sera pour rien, mais il faut disposer de ton fichier pour essayer de déterminer s'il est ou non en cause.

Cordialement.

Bonjour offiange, le forum,

si ton Excel redémarre car il a planté, alors à 1ère vue, c'est peut-être à cause du nom de ta feuille ?

Sheets("PLANTEURS ECAM")

y'a des prédispositions : les PLANTEURS ECAM (En tenue de CAMouflage) ont encore frappé !

(la prochaine application de LouReeD s'appellera peut-être ECAM ?)


ou alors, c'est peut-être à cause de ceci : « je siums sous excel 2016 et windows 8 »

(ton Windows 8 a même transformé ton verbe « suis » en « siums » ! )


à tout hasard, regarde si ça plante plus après avoir mis en commentaire ces 2 lignes :

Me.Image1.Picture = Nothing
ActiveSheet.RefreshAll

l'une d'elles est peut-être en cause ? bonne chance !

dhany

La syntaxe de la première commande est correcte pour retirer une image d'un contrôle, par contre pour la deuxième commande, RefreshAll est une méthode de l'objet Workbook et non Worksheet, il serait donc logique qu'elle déclenche une erreur...

Cette méthode est destinée à actualiser les plages de données externes et les TCD, en est-il d'ailleurs vraiment besoin ici ?

En tout état de cause, l'avis de Dhany est judicieux, il convient d'invalider cette commande.

Si cela résoud le problème, l'affaire est réglée, sinon il ne coûte rien d'invalider aussi la commande de retrait d'image, car il est vrai que cela peut parfois receler des surprises... Si elle était en cause, il faudra trouver une solution de contournement pour la retirer...

Mais si le problème persiste on en revient à la nécessité de devoir examiner de près le fichier...

Cordialement.

Rechercher des sujets similaires à "redemarre"