Bonsoir,....

Pour utiliser le fichier que je te joins, il  faut que tu tapes dans une cellule :

=dec(ffffffffffffffffff)

PS, au lieu de fffffffffff, tu sélectionnes tes cellules....

si tu veux les nombres par ordre décroissant...

si tu veux par ordre croissant, préfère la formule :

=croiss(ffffffffffffffffff)

Toujours le même PS.....

et tout le fichier ici.....

Edit, ce fichier ne fonctionne que si tes cellules ne comportent que des nombres et des espaces...

Bonsoir Kelly, JC, le forum

Kelly, JC a le triple mérite, d'une part d'avoir lu mon code, d'autre part, de l'avoir compris (pas toujours évident, quand le code provient d'une autre personne), et enfin de t'avoir donné une solution....

Qui plus est, cette solution fonctionne.... (mais là, tu as de la chance, c'est pas souvent......)

Bonne soirée.....

Bonsoir,

regarde le fichier joint, quelques modifs....

Bonjour,
oui, effectivement, maintenant que tu le dis, ce bug est normal...

Clique dans la barre grise, à gauche de la ligne x=....
Tu auras alors un point marron, et toute ta ligne en marron..
Ceci s'appelle un "point d'arrêt", que tu peux également obtenir en cliquant sur F9
Ainsi, lorsque tu cliques sur un bouton, le code va s'arrêter, et tu pourras le dérouler en pas-à-pas en cliquant sur F8
Pour le numéro de tes boutons, si tu en as plus que 100, et qu'ils sont tous dénominés T1, T100, T1450, c'est à dire une lettre et un nombre, tu peux mettre ceci :

x = "Table" & Right(Application.Caller, Len(Application.Caller) - 1)

Len calculant le nombre de caractères du nom
On enlève 1 (le T), on a le nombre....
Bonne soirée

Re,

Bizarre, qu'en mode pas-à-pas, cela bugge....?

Tu as un fichier qui pourrait nous éclairer?

Re-,

tu n'as bien mis qu'une seule macro?
Et tous tes boutons s'appellent bien T1, T2, etc, mais en tous cas, avec un chiffre en dernière lettre?

Application.Caller, te donne le Nom de l'identificateur de l'objet graphique (le bouton que tu as enfoncé)
Right(Application.Caller,1), et donne la première de ce nom, en partant de la droite, soit le chiffre, si tous les noms de tes boutons finissent bien par un chiffre, bien évidemment

Et pour tous les boutons, "Affecter une macro", avec la macro unique?

Sinon, joins un fichier où cela ne fonctionne pas

Bonjour,

Salut JC

Comme te le dis JC, tu peux éviter les .select...
De plus un seul code peut suffire :

Sub Macro1()
x = "Table" & Right(Application.Caller, 1)
Application.ScreenUpdating = False
Range("AN5:AT29").Copy Range(Cells(5, 40).Value)
Range(x).Copy Range("AN5:AT29")
Application.CutCopyMode = False
    
Range("AF12").Select

End Sub

Bonjour,

Bonjour, le forum

lannou, dans le fichier joint, j'ai inséré 2 boutons

Le premier, qui ne fonctionne que si tu as le bon mot de passe (lannou), supprimes tous les boutons d'option de la feuille, verrouille toutes les cellules de la colonne D à la colonne Y, de la ligne 11 à la dernière ligne écrite dans la colonne B.
Mets la hauteur des lignes à 33.
Puis insère 2 OptionButtons par ligne.
Le code est assez long (en gros 30 secondes pour 348 lignes)....
A l'ouverture du fichier, tous les boutons d'option sont regroupés dans un module de classe, et si tu cliques sur "Yes", les cellules de D à Y se colorient en vert, et sont déverrouillées.
Si tu cliques sur "No", uniquement la cellule D
Suite à l'ajout de boutons d'options, il faut que tu réinitialises, en appuyant sur le bouton "Initialisation"

Bonsoir, lannou,

Didier, bonsoir, également

J'en suis pas loin

Vous avez un peu de patience?

Re-,

dans le fichier joint, j'ai commenté tous les codes

Bonne découverte du langage VBA