Aide sur application

Bonsoir.

Comme vous le savez tous je suis ici débutant et je devais reprendre après un collègue une application pour le vaguemestre il a eu le temps de faire 25 % de cette application.

Mais bon disons que j'ai fait plein de modifications et je suis perdu car je suis vraiment débutant, alors pourriez vous me donner un peu d'aide et surtout m'indiquer mes fautes svp.

J'ai commenté les formulaires et je suis ouvert à toutes les remarques.

Merci d'avance de votre aide.

Bonjour.

Quand je code les différents formulaires j'ai toujours une erreur dans le module OUTIL, pouvez vous m'aider je vous prie ?

Public Function Longueur_Fichier(Name As String)

Dim Ligne As Integer

Ligne = 1

With Worksheets Name (NAME)
        Do While Not IsEmpty(.Cells(Ligne, 1))
        Ligne = Ligne + 1
        Loop
End With

Longueur_Fichier = Ligne - 1

End Function

Public Function DateCourte()
Dim DDate, Mois, Annee As String
DDate = Mid(Date, 1, 2)
Mois = Mid(Date, 4, 2)
Annee = Mid(Date, 7, 4)
DateCourte = DDate & Mois & Annee
End Function

Merci beaucoup.

Bonjour

Modifies la fonction

Public Function Longueur_Fichier(Name As String)
Dim Ligne As Integer
Ligne = 1

' Poblème dans le module outil.

  With Worksheets(Name)
    Do While Not IsEmpty(.Cells(Ligne, 1))
      Ligne = Ligne + 1
    Loop
  End With
  Longueur_Fichier = Ligne - 1
End Function

Merci beaucoup de ta réponse.

Mais vraiment je ne vois pas comment et quoi faire pour résoudre ce problème car il agit sur plusieurs formulaires et donc moi qui suis débutant je suis totalement bloqué.

Merci encore de votre aide précieuse.

Bonjour

MASK a écrit :

je ne vois pas comment et quoi faire pour résoudre ce problème

Quel problème ?

La macro corrigée ne convient pas ?

Soit plus explicite

Merci beaucoup Banzai64.

L'erreur venait de moi merci beaucoup.

Bonsoir.

Afin d'avancer, quelqu'un pourrait 'il me donner un coup de main sur le formulaire de recherche nominative.

S'il vous plait.