Probleme code VBA sur tableur Excel 2010

Bonsoir le forum

J ai trouver ce modele de programmation pour faire des modification sur un tableur j ai fais quelque modification et ca beug

je sais pas ou est mon erreur

j ai mis Set f = ActiveSheet pour (Set f = feuille active )

le programme se trouve dans FrmModification et il doit le lancer quand on fait un double clic en B1

je vous joint un fichier et une capteur d image

Option Explicit
Dim ligne, f

Private Sub UserForm_Initialize()

     ' on enlève la protection de la feuille
    ActiveSheet.Unprotect

   Set f = ActiveSheet 

    For Each c In Range(f.[B6], f.[B65000].End(xlUp))
     Me.TxtRecherche.AddItem c
   Next c
   Me.TxtRecherche.ListIndex = 0
End Sub
Private Sub TxtRecherche_Click()

    ligne = Me.TxtRecherche.ListIndex + 2

   Me.TxtJours = f.Cells(ligne, 2)
   Me.TxtCatégorie = f.Cells(ligne, 3)
   Me.TxtEtablissement = f.Cells(ligne, 4)
   Me.TxtQuiQuoi = f.Cells(ligne, 5)
   Me.TxtType = f.Cells(ligne, 6)
   Me.TxtNChèque = f.Cells(ligne, 7)
   Me.TxtCrédit = f.Cells(ligne, 8)
   Me.TxtDébit = f.Cells(ligne, 9)

End Sub
Private Sub CmdAjouter4_Click()

  '--- Transfert Formulaire dans Feuille active
   f.Cells(ligne, 2) = Me.TxtJours
   f.Cells(ligne, 3) = Me.TxtCatégorie
   f.Cells(ligne, 4) = Me.TxtEtablissement
   f.Cells(ligne, 5) = Me.TxtQuiQuoi
   f.Cells(ligne, 6) = Me.TxtNChèque
   f.Cells(ligne, 7) = Me.TxtCrédit
   f.Cells(ligne, 8) = Me.TxtDébit

End Sub

Private Sub CmdFermer4_Click()

    Unload Me ' le ferme
    'Sélection de la cellule A1
       Range("A1").Select
    Call Mise_en_couleur
    'on remet la protection de la feuille
    ActiveSheet.Protect
End Sub

cordialement

Snoopy 07

BONSOIR

Pardon moi, mais comment vous pouvez modifier et exploiter tous ces codes dans ton fichier joint et vous ne saviez pas comment déclarer un c (variable) (excuse moi)

Salut !

Amir a raison ! Il ne faut pas te décourager, mais commencer par le commencement, le b-a-ba en matière de programmation...

Cordialement.

Bonjour Amir ,MFerrand et le forum

je ne connais pas toute les bases

tous ce programme je l ai réalisé en regardant comment sont fait les codes et j essaie de les adapter et je demande beaucoup de conseil autour de moi et sur le net quand je n'y arrive pas

toute les explications sur les bases seront les bienvenue

je vais continuer a cherche mon problème

cordialement

Snoopy 07

Bonsoir le forum

un grand merci pour les conseil que vous avez donner

je ferme ce post et je me desincrit de ce forum

cordialement

Snoopy 07

Une poussée de fièvre ?

Inutile de te désinscrire pour te mettre à l'étude des bases, cela n'a rien d'incompatible ! Au contraire.

re bonsoir

je viens de modifier mon code

j ai rajouter un c a mon option explicit

Option Explicit
Dim ligne, f, c

et maintenant quand je clic sur modification sur le compte courant en b1 j ai erreur d execution 70 qui s affiche voir capture d image jointe

et quand je debloque ca me met FrmModification en jaune voir capture et je n arrive pas trouver pourquoi ca me fait

j aurai besoin de votre aide et de vos conseil pour m aider a corriger mon probleme

cordialement

Snoopy 07

bonsoir le forum

je vois que personne a de conseil a me donner pour que je puisse resoudre mon probléme

donc je ferme ce post car ca sert a rien qui reste actif

Cordialement

Snoopy 07

Bonjour,

Peux-tu imaginer que l'on puisse déduire la cause d'une telle erreur sur le simple vu d'une image ?

Tout ce que l'on peut te dire, au vu de la ligne surlignée, en tenant compte qu'elle se trouve dans une évènementielle DoubleClick, après vérification que tu n'as pas cliqué à un endroit inadéquat que la procédure (son concepteur) n'a pas pensé à éliminer, tu peux passer à l'examen détaillé de la procédure Initialize du Userform concerné (il y a alors de fortes probabilités que les raisons du blocage s'y trouvent).

Ou bien, tu fais une exécution pas à pas pour arriver à détecter la véritable ligne sur laquelle l'erreur se produit (la signalisation se fait sur Show parce que le Userform n'a pu s'ouvrir...)

Cordialement.