La méthode 'RANGE' de l'objet '_Worsheets' a échoué
Bonjour a tous ...
je suis nouveau sur le forum et également avec le VBA :) .
Je rencontre un problème avec mon code Vba. Après toutes les liaisons des boutons de commande, voici le message qui s'affiche
</ La méthode 'RANGE' de l'objet '_Worsheets' a échoué>
voici également le code :
Dim i As Long
If AjoutModification = True Then
i = DerLigne(FeuilEleve.Name)
Else
i = LigneAModifier
End If
FeuilEleve.Range("B" & i).Value = Me.TxMatricule.Value
Avez-Vous déjà rencontré ce problème ?
Bonjour,
Que vaut LigneAModifier ?
Si i est inférieure ou égale à 0 ou bien supérieure au nombre de lignes de la feuille Excel, range("B" & i) provoque fatalement une erreur.
Je pense qu'il s'agit de ça. Il faut donc trouver la valeur de i au moment du bug et faire en sorte d'éviter que l'erreur puisse à nouveau se produire.
Cdlt,
ça doit être , j'ai initialisé la variable LigneAModifier comme suit :
LigneAModifier = 0
AjoutModification = False
LigneAModifier = Me.ListBox_eleve.ListIndex + 2
La variable AjoutModification étant de type Boolean,
LigneAModifier reçoit l'index Me.ListBox_eleve.ListIndex + 2 dans le cas où AjoutModification = False