guenfood
XLDnaute Occasionnel
Bonjour,
Dans un fichier excel qui fonctionne via des formulaires, j'ai le message d'erreur d'exécution '380' qui s'affiche lorsque je veux faire un ajout d'une donnée.
Ci-dessous le code de ce formulaire dans laquelle l'erreur apparait (à la ligne : Uf_Agregats.Cb_Agregat7.Value = Text1 ).
Help !
Merci par avance pour votre aide.
Dans un fichier excel qui fonctionne via des formulaires, j'ai le message d'erreur d'exécution '380' qui s'affiche lorsque je veux faire un ajout d'une donnée.
Ci-dessous le code de ce formulaire dans laquelle l'erreur apparait (à la ligne : Uf_Agregats.Cb_Agregat7.Value = Text1 ).
Help !
Merci par avance pour votre aide.
Code:
Sub Bt_Enregistrer9_Click()
'Champ nom de l'agrégat vide
If Uf_AgregatsAjout.Tb_Nouvelagregat9 = "" Then
MsgBox "Merci d'indiquer le nom du nouvel agrégat.", vbInformation
Else
'Placement sur la feuille "Agrégats"
Worksheets("Agrégats").Activate
Range("a1").Select
Do
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell.Value = "" Or ActiveCell.Value = Uf_AgregatsAjout.Tb_Nouvelagregat9.Value
If ActiveCell.Value = Uf_AgregatsAjout.Tb_Nouvelagregat9.Value Then
MsgBox "Cet agrégat existe déjà.", vbInformation
Else
'On se positionne sur la dernière ligne du tableau pour insérer une ligne
ActiveCell.Offset(-1, 0).Select
'Insertion d'une ligne lors de l'enregistrement
ActiveCell.EntireRow.Insert Shift:=xlDown
ActiveCell.Value = Uf_AgregatsAjout.Tb_Nouvelagregat9.Value
'Message de confirmation d'enregistrement
MsgBox "L'agrégat " & Uf_AgregatsAjout.Tb_Nouvelagregat9.Value & " a été ajouté.", vbInformation
Text1 = Uf_AgregatsAjout.Tb_Nouvelagregat9.Value
'Retour à Uf_Agregats
Unload Uf_AgregatsAjout
Uf_Agregats.Cb_Agregat7.Value = Text1
Uf_Agregats.Show
End If
End If
End Sub