A
Antoine C.
Guest
Bonsoir,
J'ai une erreur qui est apparue :
dans ce code complet :
J'ai une erreur qui est apparue :
Après recherche, j'ai isolé la ligne qui a toujours bien fonctionné... Ais-je fais une mauvaise manip ?
VB:
Me.txtNumLigne = Feuil4.Range("A66").Valuedans ce code complet :
VB:
'---ACTIONS---
Private Sub btnEfface_Click() ' Procedure d'effacement des infos
'Efface les txtbox
MtxtBox.EraseAll
frmSaisie.txtNomClient.Text = ""
frmSaisie.ListBox_Nom.Clear
frmSaisie.txtDevisInfos.Text = ""
'Deverouille les txtbox
MtxtBox.DevVerrTxt
Me.cmdAnnuler.Enabled = True
'Déselectionne de la listbox le nom
ListBox_Nom.ListIndex = -1
'Activer le bouton ajouter
Me.btnAjout.Enabled = True
'DEVEROUILLER LES < ET >
Me.cmdFichePrecedente.Enabled = True
Me.cmdFicheSuivante.Enabled = True
'Déplacement en bas du tableau, prêt à créer la ligne
Sheets("LISTE").Activate 'Choix de la feuille
Range("A2").Select 'Choix de la cellule "TRAVAIL" => TOUJOURS COMPLETE
Selection.End(xlDown).Select 'position de la dernière ligne non vide
Selection.Offset(1, 1).Select 'aller sur la ligne dessous et cellule "SOURCE"
Feuil4.Range("A66").Value = Windows(ThisWorkbook.Name).ActiveCell.Row
Me.txtNumLigne = Feuil4.Range("A66").Value
Me.txtDevisInfos.Value = Feuil4.Range("H53").Value & " | " & Utilisateur & " | " & Date & " à " & Format(Now, "hh:mm") & " : Création du Contact" & vbCrLf & "" & Me.txtDevisInfos.Value
'Verrouillage du bouton "Modifier"
Me.cmdModifier.Enabled = False
Me.txtNom.SetFocus
End Sub