Bonjour,
Peut on m'indiquer 3 codes concernant les motifs suivants :
Supprimer les Noms Cachés ( je n'ai pas su )
Fermer et Enregistrer tous les classeurs ouverts
Compter les cellules entre 2 valeurs
En esperant que l'on puisse me repondre sans que cela demande trop
d'energie,
je vous remercie
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
JB
Bonjour,
For Each n In ThisWorkbook.Names If Not n.Visible Then n.Delete Next n
Cordialement JB
On 2 mai, 14:40, "David" wrote:
Bonjour, Peut on m'indiquer 3 codes concernant les motifs suivants : Supprimer les Noms Cachés ( je n'ai pas su ) Fermer et Enregistrer tous les classeurs ouverts Compter les cellules entre 2 valeurs En esperant que l'on puisse me repondre sans que cela demande trop d'energie, je vous remercie
Bonjour,
For Each n In ThisWorkbook.Names
If Not n.Visible Then n.Delete
Next n
Cordialement JB
On 2 mai, 14:40, "David" <david.lau...@wanadoo.fr> wrote:
Bonjour,
Peut on m'indiquer 3 codes concernant les motifs suivants :
Supprimer les Noms Cachés ( je n'ai pas su )
Fermer et Enregistrer tous les classeurs ouverts
Compter les cellules entre 2 valeurs
En esperant que l'on puisse me repondre sans que cela demande trop
d'energie,
je vous remercie
For Each n In ThisWorkbook.Names If Not n.Visible Then n.Delete Next n
Cordialement JB
On 2 mai, 14:40, "David" wrote:
Bonjour, Peut on m'indiquer 3 codes concernant les motifs suivants : Supprimer les Noms Cachés ( je n'ai pas su ) Fermer et Enregistrer tous les classeurs ouverts Compter les cellules entre 2 valeurs En esperant que l'on puisse me repondre sans que cela demande trop d'energie, je vous remercie
JB
For Each w In Workbooks ' parcourt la collection des claaseurs If w.Name <> ThisWorkbook.Name Then w.Close savechanges:=True End If Next w ActiveWorkbook.Close savechanges = True
JB
On 2 mai, 14:40, "David" wrote:
Bonjour, Peut on m'indiquer 3 codes concernant les motifs suivants : Supprimer les Noms Cachés ( je n'ai pas su ) Fermer et Enregistrer tous les classeurs ouverts Compter les cellules entre 2 valeurs En esperant que l'on puisse me repondre sans que cela demande trop d'energie, je vous remercie
For Each w In Workbooks ' parcourt la collection des claaseurs
If w.Name <> ThisWorkbook.Name Then
w.Close savechanges:=True
End If
Next w
ActiveWorkbook.Close savechanges = True
JB
On 2 mai, 14:40, "David" <david.lau...@wanadoo.fr> wrote:
Bonjour,
Peut on m'indiquer 3 codes concernant les motifs suivants :
Supprimer les Noms Cachés ( je n'ai pas su )
Fermer et Enregistrer tous les classeurs ouverts
Compter les cellules entre 2 valeurs
En esperant que l'on puisse me repondre sans que cela demande trop
d'energie,
je vous remercie
For Each w In Workbooks ' parcourt la collection des claaseurs If w.Name <> ThisWorkbook.Name Then w.Close savechanges:=True End If Next w ActiveWorkbook.Close savechanges = True
JB
On 2 mai, 14:40, "David" wrote:
Bonjour, Peut on m'indiquer 3 codes concernant les motifs suivants : Supprimer les Noms Cachés ( je n'ai pas su ) Fermer et Enregistrer tous les classeurs ouverts Compter les cellules entre 2 valeurs En esperant que l'on puisse me repondre sans que cela demande trop d'energie, je vous remercie
