Suppression liaison
Bonjour à tous
Voici mon problème, j'ai récupéré cette macro (copie et création d'une nouvelle feuille) mais j'aimerai que lorsque elle effectue une copie de la feuille "base" elle coupe les liaisons avec cette dernière .
J'ai essayé quelques commandes mais à chaque fois ça me supprime toutes les liaisons du classeur.
Je n'ai pas de connaissance en VBA
D'avance Merci
Private Sub CommandButton1_Click()
Dim sh As Worksheet, sh2 As Worksheet
Set sh = Sheets("base")
For Each sh2 In Worksheets
If sh2.Name = [B5] Then
Sheets([B5].Value).Activate
If MsgBox("Feuille " & [B5] & " existante. La supprimer ?", vbCritical + vbYesNo) = vbNo Then
sh.Activate
Exit Sub
Else
Application.DisplayAlerts = False
Sheets([B5].Value).Delete
Application.DisplayAlerts = True
Exit For
End If
End If
Next sh2
sh.Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = [B5]
sh.Activate
End Sub
Salut et bienvenue sur le Forum,
J’ai modifié ta macro de manière à ce que les liens hypertextes – comme dans la cellule C3 - soient supprimés et que les formules soient remplacées par leur résultat, comme dans la cellule A3.
Si ce n’est pas à ça que tu pensais, soit plus précis. L’idéal aurait été que tu fournisses ton fichier ou en tout cas un fichier modèle.
Cordialement.
C''est bien ça, un Grand merci, car j'avais passé beaucoup de temps sans résultat.
Super