Souci sur une macro VBA
Bonjour à tous.
Je rencontre un souci avec une macro dans le fichier joint. Elle s'appelle "Supprimeridividu" et est reliée au bouton "Supprimer une société".
Sur la feuille SOCIETES, lorsque le nom d'une société se trouve au milieu de la liste, tout à l'air de bien ce passer. En revanche si le nom ce trouve en dernier dans la liste, alors non seulement il n'est pas supprimé mais en plus le ligne 1 et supprimée. Pouvez-vous m'aider à résoudre ce souci.
Je vous partage le fichier.
D'avance, merci à tous !
Re bonjour.
J'ai corrigé en modifiant le code de la macro de la façon suivante :
au niveau de "suppression dans la feuille sociétés", j'ai ajouté :
Set MotTrouvé = Cells.Find(What:=Var)
If Not MotTrouvé Is Nothing Then
MotTrouvé.Select
'confirmation de suppression
Style = vbYesNo + vbDefaultButton1
Msg = "Suppression de la ligne"
Title = "Attention suppression de la ligne."
Réponse = MsgBox(Msg, Style, Title)
If Réponse = vbYes Then
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
End If
Cela fonctionne. Mais je n'ai pas l'explication de l'erreur précédente et je suis preneur ! Merci à tous ceux qui prendront le temps de regarder.
Bonjour
J'ai passé tes feuilles: Suivi, societe et recap en tableau structuré...
Ci joint ma solution
A+ François
Bonjour Fanfan38.
Je te remercie pour le temps consacré.
Qu'appeles-tu "tableau structuré" ?
J'ai un bug à la création d'une société sur la feuille SOCIETE mais je devrais m'en sortir.
Merci d'avance pour tes explications.
Ok ; merci à toi pour cette aide précieuse.
Bonne soirée.