VBA - Erreur d’exécution '380'

[Antoine C.]

Bonsoir,

J'ai une erreur qui est apparue :

Erreur d’exécution '380': Impossible de définir la propriété Text. Valeur de propriété non valide.

Après recherche, j'ai isolé la ligne qui a toujours bien fonctionné... Ais-je fais une mauvaise manip ?

    Me.txtNumLigne = Feuil4.Range("A66").Value

dans ce code complet :

'---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

 

[Antoine C.]

Re,

La solution était toute simple : Ma ComboBox avait prit la Propriété
Style = 2-fmStyleDropDownList
Lien vers le site : Style, propriété | Microsoft Docs

Cette Combo était appelée à la suite de txtNumLigne_Change

Il ne pouvait donc pas lui modifier sa .value

Voilà voilà... 🙄

Je laisse le post malgré tout, il pourrait servir...

Bonne soirée