Commande While Range()

VBA
1

Bonjour,
En exécutant mon petit programme, le système me renvoie l’erreur suivante:
" La méthode Range de l’objet _Global a échoué"
Merci d’avance

Voici le code VBA:

Public Function NbEnreg(LaFeuille As String, LaColonne As String, LaLigne As Integer) As Integer
Dim NombreDe As Integer
Dim LaPlage As String
NombreDe = LaLigne
LaPlage = LaColonne & LaLigne

While Range(LaFeuille & "|" & LaPlage).Value <> " "
    NombreDe = NombreDe + 1
    LaPlage = LaColonne & NombreDe
Wend
NbEnreg = NombreDe - LaLigne
Application.Run "ShowDataform"
'Application.CommandBars.FindControl(ID:=860).Execute
'ActiveSheet.ShowDataForm

End Function

2

Bonjour,
Il faudrait voir sur quel classeur tu comptes faire fonctionner ta fonction
De premier abord, les erreurs:

  • Dim LaPlage As String --> Si c’est une plage c’est --> _Dim LaPlage As Range_

  • While Range(LaFeuille & “|” & LaPlage).Value <> " " --> While Range(LaFeuille & "!" & LaPlage).Value <> ""

3

Bonjour Mimimathy,

Merci pour votre aide.
Le problème est résolu.
Je m’en vais de ce pas le signaler dans le forum.
Bon dimanche !