A l'aide d'un code que m'a donné un internaute, (que je remerci), je
voudrais savoir si on peu créer des groupes pour mettre a zéro des label dans
une feuille.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Pour effacer le contenu de tous les "Label" de la feuil2
'-------------------------------- Sub test()
Dim Sh As Object
With Worksheets("Feuil2") For Each Sh In .OLEObjects With Sh If TypeName(.Object) = "Label" Then .Object = "" End If End With Next End With End Sub '--------------------------------
"Jacques" a écrit dans le message de news:
Salut a toutes et tous
A l'aide d'un code que m'a donné un internaute, (que je remerci), je voudrais savoir si on peu créer des groupes pour mettre a zéro des label dans une feuille.
Peu on créer des groupes de label avec des variable ou autres moyen ?.
Merci pour vos conseils, Jacques
Pour effacer le contenu de tous les "Label" de la feuil2
'--------------------------------
Sub test()
Dim Sh As Object
With Worksheets("Feuil2")
For Each Sh In .OLEObjects
With Sh
If TypeName(.Object) = "Label" Then
.Object = ""
End If
End With
Next
End With
End Sub
'--------------------------------
"Jacques" <Jacques@discussions.microsoft.com> a écrit dans le message de news:
3C06F43E-91ED-4FD2-9C29-6AE08077F549@microsoft.com...
Salut a toutes et tous
A l'aide d'un code que m'a donné un internaute, (que je remerci), je
voudrais savoir si on peu créer des groupes pour mettre a zéro des label dans
une feuille.
Pour effacer le contenu de tous les "Label" de la feuil2
'-------------------------------- Sub test()
Dim Sh As Object
With Worksheets("Feuil2") For Each Sh In .OLEObjects With Sh If TypeName(.Object) = "Label" Then .Object = "" End If End With Next End With End Sub '--------------------------------
"Jacques" a écrit dans le message de news:
Salut a toutes et tous
A l'aide d'un code que m'a donné un internaute, (que je remerci), je voudrais savoir si on peu créer des groupes pour mettre a zéro des label dans une feuille.