résolu code erreur useforme

[jmcr]

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

 

[piga25]

Bonjour,

Pour le premier point

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

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]

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

 

[jmcr]

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

 

[jmcr]

Je voudrais vous demander encore un peu d aide je voudrais mettre cette useforme en bas à droite pour une meilleure visibilité avec tout mes remerciments

 

[PMO2]

Bonjour,
1) Erreur 1004 (ligne est parfois égale à 0)

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

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

 

[piga25]

Bonjour,

Voir si cela convient pour le format textbox2 et pour la position de l'userform

 

[jmcr]

je voudrais vous dire un grand merci et toute ma gratitude piga25,pm02 pour votre aide sujet réglé
aux plaisir de vous relire