Eviter de copier une ZoneTexte en copiant une feuille
Bonjour à tous et à toutes.
Je cherche une ligne de code qui pourrait exclure une ZoneTexte de la feuille à copier.
Voici le code utilisé.
Sub Nouveau_Bon()
I = Sheets.Count
Sheets("Bon 1").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Bon " & I + 1
'ActiveSheet.Select
'ZoneTexte1.Visible = False'' ne fonctionne pas
End Sub
Merci de bien vouloir jeter un œil sur ce message
Le f
Papy Pierrot
Salut Pierrot,
Sans ton fichier, c’est difficile de savoir ce que c’est que ta ‘ZoneTexte1’ !! Est-ce un ‘Nom’ que tu as donné à une certaine plage ?
L’idéal serait d’avoir ton fichier – ou un fichier représentatif présentant ton problème – et que tu expliques ce que tu désires réaliser. Peut-être que ton instruction ‘ZoneTexte1.Visible = False’ n’est pas la bonne
Cordialement.
Bonsoir
Essaye
Sub Nouveau_Bon()
I = Sheets.Count
Sheets("Bon 1").Copy after:=Sheets(Sheets.Count)
With ActiveSheet
.Name = "Bon " & I + 1
.DrawingObjects("ZoneTexte1").Delete
End With
End SubAmicalement
Nad
Bonjour
post créé créé en double et déjà resolu par banzai....
fred
Bonjour, Yvouille, Nad et Fred2406,
Fred à raison , ce problème à été résolu par Banzai64, hier.
Voir les messages en solution.
Merci à vous tous de vous êtes occupé de mon problème,
Et bonne journée à vous trois.
Amicalement
Pierrot