Récupérer la Colonne d'un Nom d'Entête

Message par **admin** » 21 janv. 2022, 15:30

~

Vous voulez récupérer la colonne (le numéro ou les lettres), l'adresse ou la plage d'une donnée spécifique dont le nom et la zone de recherche sont fournis.

La solution est ici: Colonne_du_Nom (clic-droit, enregistrer sous)

Mode d'emploi:

Intégrer la source fournie dans votre code
Faire l'appel à la fonction : Colonne_du_Nom (LeNom, LeRange, opt. LeType, opt. PasdInfo)
- valeur = Colonne_du_Nom (LeNom, LeRange) :
  - valeur contiendra le numéro de la colonne répondant au critère;
  - sinon : une chaine vide et un message d'erreur.
- valeur = Colonne_du_Nom (LeNom, LeRange, LeType:="NumCol") :
  - valeur contiendra le numéro de la colonne (comme précédemment) répondant au critère;
  - sinon : une chaine vide et un message d'erreur.
- valeur = Colonne_du_Nom (LeNom, LeRange, LeType:="LetCol") :
  - valeur contiendra les lettres de la colonne répondant au critère;
  - sinon : une chaine vide et un message d'erreur.
- valeur = Colonne_du_Nom (LeNom, LeRange, LeType:="Adresse") :
  - valeur contiendra l'adresse (chaine de caractère) de la cellule répondant au critère;
  - sinon : une chaine vide et un message d'erreur.
- valeur = Colonne_du_Nom (LeNom, LeRange, LeType:="Range") :
  - valeur contiendra la plage de la cellule (type range) répondant au critère;
  - sinon : une chaine vide et un message d'erreur.
- valeur = Colonne_du_Nom (LeNom, LeRange, PasdInfo:=vrai) :
  - Se comportera comme prévu en fonction des autres paramètres fournis;
  - mais ne retournera aucun message d'erreur en cas de recherche infructueuse.
Où :
- LeNom = Chaine de Caractères contenant le Nom Exact Recherché
- LeRange = Range de Recherche (ex. sheets("onglet").range("8:8") pour la ligne 8 dans l'onglet correspondant)
- LeType = Chaine de Caractères optionnelle devant contenir "NumCol", "LetCol", "Adresse" ou "Range" pour retourner le type de donnée correspondante.
- PasdInfo = Booléen optionnel devant être à vrai pour qu'une erreur rencontrée ne soit pas signalée

Suivi des évolutions:

2012.01.14 (v1.00) : Création initiale, fournit soit le numéro de colonne, soit les lettres de la colonne.
2021.03.19 (v1.10) : Remplacement de .Find() non-fonctionnelle sur colonnes masquées par une boucle For Each.
2022.01.21 (v1.20) : Optimisation de la robustesse et du temp d'exécution. Possibilité de retourner un range.

Une initialisation des Données robustes aux modifications de positionnement des données...