help!! svp

[nico_en_panne!]

Bonjour,
quelqu'un pourrait me dire ce qui sigifie ceci

Sub DéfNoms()
Application.DisplayAlerts = False
With Sheets("BD")
For i = 1 To Application.CountA([BD!1:1])
.Range(.Range(.Cells(1, i), .Cells(65536, i).End(3)).Address).CreateNames Top:=True, Left:=False, Bottom:=False, Right:=False
Next
End With
Application.DisplayAlerts = True
End Sub

 

[Excel-lent]

Re : help!! svp

Bonjour nico_en_panne!

Tout d'abord, il ne faut jamais mettre en titre de fil "help!! svp".

Car on ne voit pas qu'elle est ton problème, et s'il fait parti de notre domaine de compétence. De plus, cela facilitera l'utilisation de la fonction "recherche" pour les autres internautes rencontrant le même problème.

Nouvelle disposition pour mieux comprendre!

[COLOR="Olive"][B]Sub DéfNoms()[/B][/COLOR]
 Application.DisplayAlerts = False
  
   [B][COLOR="Magenta"]With[/COLOR][/B] Sheets("BD")
       [B][COLOR="Red"]For[/COLOR][/B] i = 1 [B][COLOR="Red"]To[/COLOR][/B] Application.CountA([BD!1:1])
         .Range(.Range(.Cells(1, i), .Cells(65536, i).End(3)).Address).CreateNames
         Top:=True, Left:=False, Bottom:=False, Right:=False
       [B][COLOR="Red"]Next[/COLOR][/B]
   [B][COLOR="Magenta"]End With[/COLOR][/B]

Application.DisplayAlerts = True

[COLOR="Olive"][B]End Sub[/B][/COLOR]

Voici une explication sommaire des termes pouvant poser problème :

1/ Application.DisplayAlerts = False ou True
Excel génère de tps en tps des messages attendant des réponses (ex. "voulez-vous enregistrer le fichier avant de quitter"). Pour éviter d'être déranger par ces messages, la macro y répondra à notre place en fonction de l'option choisi : True / False

2/ Application.CountA
cf. https://www.excel-downloads.com/threads/application-counta-range.12037/

Bonne continuation

 

[Staple1600]

Re : help!! svp

Bonsoir à tous

Application.DisplayAlerts = False

With Sheets("BD")

• 1ère ligne: désactiver le rafraissement écran
• 2ème ligne : Avec la feuille nommée BD

For i = 1 To Application.CountA([BD!1:1])

Pour cela je renvoie ici:
https://www.excel-downloads.com/threads/application-counta-range.12037/

• Pour : .CreateNames

Ce lien n'existe plus

 

[jeanpierre]

Re : help!! svp

Bonsoir,

Avant réédit :

Application.DisplayAlerts = False

With Sheets("BD") 1ère ligne: désactiver le rafraissement écran
2ème ligne : Avec la feuille nommée BD

cela veut dire quoi pour un nouveau, qui vient, peut-être de découvrir excel ce matin ou hier ??

 

[Gorfael]

Re : help!! svp

Bonjour,
quelqu'un pourrait me dire ce qui sigifie ceci

Sub DéfNoms()
Application.DisplayAlerts = False
With Sheets("BD")
For i = 1 To Application.CountA([BD!1:1])
.Range(.Range(.Cells(1, i), .Cells(65536, i).End(3)).Address).CreateNames Top:=True, Left:=False, Bottom:=False, Right:=False
Next
End With
Application.DisplayAlerts = True
End Sub

Salut
Un titre est nécessaire !!! 😡

Sub DéfNoms()
Application.DisplayAlerts = False
supprime l'affichage des message d'erreur
With Sheets("BD")
avec comme préfixe la feuille BD
For i = 1 To Application.CountA([BD!1:1])
Pour i = 1 jusqu'à nombre de cellule non vide dans la ligne 1 de la feuille BD
.Range(.Range(.Cells(1, i), .Cells(65536, i).End(3)).Address).CreateNames Top:=True, Left:=False, Bottom:=False, Right:=False
Défini les noms de chacune des colonnes avec les noms situés en lignes 1
Next
suivant
End With
fin préfixe
Application.DisplayAlerts = True
rétablissement des messages d'erreur
End Sub

Recrées les noms d'une feuille utilisée en tant que base de donnée
L'arrêt des messages est pour éviter le blocage par doublons.

regardes dans Menu>>Insertion>>nom>>définir
A+