Modif_Nom_sur_colonnes_masquées

J'essaye d'ajouter le fichier

[Modif_Nom_sur_colonnes_masquées.xlsm|attachment](upload://u5zAsEY1WF9WHdSsEZ1UaJ41UDL.xlsm) (40,1 Ko)

Bonjour Marco,

pour ton sujet précédent "Modifier nom avec un USF dans colonnes masquées"
du 15 décembre 2025 à 17:30, je t'avais aidé, et j'avais bien précisé que quand
tu as des colonnes masquées, il ne faut pas faire un Find() avec xlValues mais
avec xlFormulas.

alors pour ton 2ème fichier, fais comme pour le 1er fichier qui marche bien.  :)
et pour ce 1er fichier, c'était inutile d'utiliser « On Error Resume Next ».

si tu y arrives : parfait ; sinon, joins ton fichier via ce lien (j'ai essayé ton lien
upload://u5zAsEY1... mais il ne marche pas).

rhodo

Bonjour rhodo et le forum,

Désolé de te répondre si tard.

Oui je sais tu m'avais très bien aidé et j'avais gardé ton fichier.

Mais malheureusement j'ai eu un virus et j'ai perdu beaucoup de fichiers et le tien était dedans.

Je suis retourné sur l'ancien post pour essayer de télécharger ton fichier mais cela est impossible.

Donc j'ai remis ma demande.

En cliquant sur Cjoint cela m'envoie ici : https://www.cjoint.com/

Bonne journée à vous tous.

Marco

Bonsoir Marco,

j'espère que tu as pu utiliser un antivirus efficace pour te débarrasser de tous tes virus ;
c'est normal que tu n'as pas pu télécharger le fichier de mon ancien post car le délai
est dépassé depuis longtemps ; je n'ai plus ce fichier, donc je ne peux pas te l'envoyer
de nouveau.

avec cjoint.com, ça ne marche plus car le site va être rénové, à moins qu'ils aient
carrément abandonné, car ça fait très longtemps que c'est resté comme ça : leur
nouvelle version du site n'est toujours pas disponible ; à la place, je te propose
d'utiliser cet autre site de transfert de fichiers :

https://www.swisstransfer.com/fr

n'oublie pas de mettre le lien de téléchargement dans ton prochain post.

rhodo

Voilà le fichier

Merci d'avance

Marcelio

https://www.swisstransfer.com/d/8faaa93e-d965-42e1-aaf2-d8c800ef3ccf

J'ai oublié de dire que les colonnes en jaune dans la feuille Mois et dans les feuille semaine sont masquées.

Bonne soirée à toi et au forum.

Bonjour Marcelio,

ton fichier en retour :

https://www.swisstransfer.com/d/684cc212-af68-4551-ada9-b40d52e9a6b6

les colonnes jaunes ne sont pas masquées ; essaye comme c'est ;
masque toutes les colonnes jaunes ; essaye de nouveau.

tu verras que ça marche dans les 2 cas.  :)

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

ça a été un très long travail, que je ne referai plus ; alors cette fois, fais bien
une copie de sauvegarde sur clé USB, de façon que si tu auras de nouveau
plus tard un autre virus ou un autre problème, tu pourras récupérer le bon
fichier à partir de la clé USB.

rhodo

Bonjour rhodo et le forum,

Merci c'est excellent, je te remercie beaucoup.

J'ai fait 2 sauvegardes sur 2 clés USB, comme ça je suis tranquille.

Par contre au démarrage je n'ai aucun nom d'inscrits en colonne AA et BK du coup impossible d'ouvrir l'USF. 

Et l'USF s'ouvre si j'ai 2 noms d'inscrits.

Aurais-tu une solution pour ce problème.

Message d'erreur :

Erreur d'exécution '381'

Impossible de définir la propriété List. Index de table de propriétés non valide. 

Merci

Marco

@Marco

une ListBox est pour 2 items au minimum ; donc au minimum, il faut une donnée
en BK1 et une autre donnée en BK2.

le message d'erreur 381 survient dans ces 2 cas : 1 seule donnée (en BK1) OU
aucune donnée (BK1 aussi est vide).

pour éviter le message d'erreur 381, modifie l'avant-dernière sub
pour avoir ceci :

Private Sub UserForm_Initialize()
  m = Rows.Count: d1 = Cells(m, "AA").End(3).Row: d2 = Cells(m, "BK").End(3).Row
  cmdValid.Enabled = 0: If d2 > 1 Then ListBox1.List = [BK1].Resize(d2).Value
End Sub

le formulaire s'ouvrira sans plantage et sans erreur, avec ListBox1 vide,
mais le UserForm ne servira à rien : tu pourras seulement faire Échap
ou clic sur le bouton "FERMER".

ainsi, la modif du code VBA sert uniquement à éviter le plantage, rien d'autre.

donc pour les 2 premiers items en colonne BK : n'utilise pas le formulaire ;
saisis le 1er nom directement en BK1 ; puis le 2ème nom directement en
BK2 ; pour les autres noms, fais Ctrl m : ça ouvre le UserForm avec une
liste d'au moins 2 items.

rhodo

OK super

Encore une fois merci pour ton aide et pour toutes tes explications.

J'ai de nouveau effectué les sauvegardes sur clés USB

Bon après-midi à toi et au forum.

Marco