piga25
XLDnaute Barbatruc
Bonjour,
Avec de nombreux essais infructueux (y compris l'enregistreur de macro) , je séche lamentablement vu mon niveau de VBA.
Voila mon problème:
Sur la feuille recap, lorsque je fais un double clic en colonne A, uniquement sur les cellules déprotégées qui contiennent un chiffre ou un nombre (jusque là pas de problème), je souhaiterai que la macro me supprime la feuille qui est associée au lien hypertexte situé sur la même ligne mais en colonne C, puis ensuite qu'elle me supprime la ligne concernée ainsi que les 08 suivantes (soit 09 lignes qui correspondent à la rencontre).
Par exemple dans le fichier joint: la feuille "Doha2" et les lignes "14 à 22".
Voici le bout de code que j'ai essayé (feuille 1 "Recap"):
Avec de nombreux essais infructueux (y compris l'enregistreur de macro) , je séche lamentablement vu mon niveau de VBA.
Voila mon problème:
Sur la feuille recap, lorsque je fais un double clic en colonne A, uniquement sur les cellules déprotégées qui contiennent un chiffre ou un nombre (jusque là pas de problème), je souhaiterai que la macro me supprime la feuille qui est associée au lien hypertexte situé sur la même ligne mais en colonne C, puis ensuite qu'elle me supprime la ligne concernée ainsi que les 08 suivantes (soit 09 lignes qui correspondent à la rencontre).
Par exemple dans le fichier joint: la feuille "Doha2" et les lignes "14 à 22".
Voici le bout de code que j'ai essayé (feuille 1 "Recap"):
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim I As Integer, Ligne, Rencontre As Long
Ligne = Target.Row
Unprotect
If Target.Column = 1 And Cells(Ligne, 2) <> "" Then 'Si en dehors colonne 1 on sort de la procédure
'----------------------- Selectionne la feuille avec le lien hypertexte, puis la supprime -------------------------
Target.Offset(1, 2).Hyperlinks(2).Follow NewWindow:=False, AddHistory:=True
Sheets("doha2").Select
ActiveWindow.SelectedSheets.Delete
'----------------------- Supprime les 09 lignes correspondant à la rencontre --------------------------------------
I = MsgBox("Voulez-vous supprimer la rencontre ?", vbOKCancel, "Suppression") ' Affichage d'une boite de dialogue
If I = vbCancel Then Exit Sub ' si clique sur non = sort de la procédure
Rencontre = Target.Rows()
Rows(Rencontre).Delete
Cancel = True
'---------------------- Fin de procédure et retour sur la feuille -----------------------------------------------
Target.Offset(1, 3).Select
End If
Protect
End Sub