résolu code erreur useforme

jmcr

XLDnaute Occasionnel
bonjour le forum
je voudrais savoir si vous pouvais m'aidé sur un useforme qui marche pas trop mal en lui même ,il à des erreurs dans le macro j 'arrive pas à trouver les solutions
voila mon problème quand je recherche un n/national il le trouve pas de soucis dans ma basse, sauf qu'il retire les 0 exemple 0012 il inscrit 12 .
0187 inscrit 187 du moment qu'il a un zéro devant il l'efface j avais dans la colonne C cette formule =droite(b4;4) et la aussi quand je valide il efface la formule
deuxième problème quand je veux renté une nouvelle ligne il me marque erreur d'exécution 1004
la méthode de "range de l'objet global a échoué quand je fait débogage il souligne dans la macro
Range("B" & ligne) = TextBox1.Value voila mes deux problèmes pouvais vous m'aidé a trouvé mon erreur que je vois pas ???????
avec tout ma gratitude
JMC
 

Pièces jointes

  • jmcr_essaie3.zip
    54.7 KB · Affichages: 21

piga25

XLDnaute Barbatruc
Bonjour,

Pour le premier point

Dans le code de :Sub recherche_animal()
ajouter cette ligne : TextBox2.Value = Format(TextBox, "###")


Code:
Sub recherche_animal()
Dim c As Range
Dim compteur_ref_animal As Integer
Dim firstAddress As String
Dim mavar As String

With Worksheets("base").Range("c:c")
mavar = TextBox2.Value
TextBox2.Value = Format(TextBox, "###")
Set c = .Find(mavar, LookIn:=xlValues, Lookat:=xlWhole) ' Lookat:=xlwhole => recherche exacte
                                                            ' Lookat:=xlPart  => recherche dans la cellule n'importe où
 

jmcr

XLDnaute Occasionnel
DERNIER problème quand je veux renté une nouvelle ligne il me marque erreur d'exécution 1004
la méthode de "range de l'objet global a échoué quand je fait débogage il souligne dans la macro
Range("B" & ligne) = TextBox1.Value voila deux problèmes pouvais vous m'aidé a trouvé mon erreur que je vois pas ???????
avec tout ma gratitude
 
Dernière édition:

jmcr

XLDnaute Occasionnel
DERNIER problème quand je veux renté une nouvelle ligne il me marque erreur d'exécution 1004
la méthode de "range de l'objet global a échoué quand je fait débogage il souligne dans la macro
Range("B" & ligne) = TextBox1.Value voila deux problèmes pouvais vous m'aidé a trouvé mon erreur que je vois pas ???????
avec tout ma gratitude
 

PMO2

XLDnaute Accro
Bonjour,
1) Erreur 1004 (ligne est parfois égale à 0)
VB:
Private Sub btn_valide_Click()
Dim c As Range
Dim mavar As String
Dim reponse As Integer
      
'### modif pmo
If ligne = 0 Then ligne = Sheets("base").Range("B65536").End(xlUp).Row + 1
'###

    ' on écrit sur la ligne recherchée ou sur la suivante
    Range("B" & ligne) = TextBox1.Value
    Range("C" & ligne) = TextBox2.Value
    Range("D" & ligne) = DateValue(TextBox3.Value)
    Range("E" & ligne) = age_animal 'TextBox4.Value
    Range("F" & ligne) = Cb_race.Value
    Range("G" & ligne) = TextBox6.Value
    Range("H" & ligne) = TextBox7.Value
    Range("K" & ligne) = TextBox8.Value
    Range("L" & ligne) = TextBox9.Value
    Range("M" & ligne) = TextBox13.Value
    Range("N" & ligne) = TextBox11.Value
    Range("P" & ligne) = TextBox14.Value
    Range("I" & ligne) = TextBox10.Value
    Range("O" & ligne) = TextBox15.Value
    Range("A" & ligne) = Range("A" & ligne - 1) + 1

efface

End Sub

2) Placement UserForm en bas à droite
VB:
Private Sub UserForm_Initialize()
    TextBox2.SetFocus
'### modif pmo
Me.StartUpPosition = 0
'/// à régler à la main selon votre écran ///
'/// Comme vous êtes seul utilisateur il  ///
'/// n'est pas utile d'utiliser les APIs  ///
Me.Top = 370  'à régler à la main selon votre écran
Me.Left = 620 'à régler à la main selon votre écran
'////////////////////////////////////////////
'###
End Sub
 

Statistiques des forums

Discussions
312 890
Messages
2 093 349
Membres
105 696
dernier inscrit
FrancisR