Numéroter automatiquement sans tirer les cellules

Résolu/Fermé

Bentrider267 Messages postés 6 Date d'inscription mercredi 29 avril 2015 Statut Membre Dernière intervention 29 avril 2015 - 29 avril 2015 à 15:09
via55 Messages postés 14512 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 janvier 2025 - 29 avril 2015 à 23:26

Bonjour à tous
Voilà, je cherche à faire une numérotation, pratique, automatique de ligne en fonction d'une variable rentrée dans une cellule figée, le tout sans avoir à tirer de cellules.

Je m'explique ; j'aimerai qu'en rentrant « 1 » dans une cellule figée, par exemple D8, « $D$8 », qu'Excel aille remplir automatiquement la colonne A, par :
1 en case A1
2 en case A2
3 en case A3... Jusqu'à 12 en case A12.

Et si j'indique « 2 » à la place de « 1 » dans la cellule figée D8, je souhaiterai qu'Excel me place la même numérotation, jusqu'à 24 en case A24
Idem en rentrant « 3 » en D8, Excel devra automatiquement, (sans avoir à tirer des cases), numéroter la colonne A, de 1 en case A1, à 36 en case A36.
Pareil en tapant 4 en D8 pour une numérotation jusqu'à 48, etc. Toujours en base 12.
J'espère avoir été clair.
Je pense que la solution passe par la mise en place d'une boucle mais je ne sais pas comment la programmer!
Quelqu'un aurait-il une solution pour Excel sous Windows 7 ?
Merci d'avance

A voir également:

Numéroter automatiquement sans tirer les cellules
Formule excel pour additionner plusieurs cellules - Guide
Comment numéroter les pages sur word - Guide
Automatiquement - Guide
Verrouiller cellules excel - Guide
Comment numéroter les pages sur powerpoint - Guide

5 réponses

Réponse 1 / 5

ccm81 Messages postés 10906 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 13 janvier 2025 2 429
29 avril 2015 à 17:07

Bonjour

un exemple
https://www.cjoint.com/?3DDrvXIZZaR

Cdlmnt

Bentrider267 Messages postés 6 Date d'inscription mercredi 29 avril 2015 Statut Membre Dernière intervention 29 avril 2015
29 avril 2015 à 18:47

Salut ccm81,
Merci pour ta réponse. Il y a quelque chose qui va pas. Quand j'entre " 2 " dans la case D8 à la place de " 1 " et que je valide, il ne se passe rien. Mon souhait serais d'avoir instantanément les nombres de 1 à 24 dans la colonne A.
Peut-être ai-je mal fais quelque chose? Est-ce que ça fonctionne bien de ton coté? Merci de ta réponse.

ccm81 Messages postés 10906 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 13 janvier 2025 2 429 > Bentrider267 Messages postés 6 Date d'inscription mercredi 29 avril 2015 Statut Membre Dernière intervention 29 avril 2015
29 avril 2015 à 20:21

Mon souhait serais d'avoir instantanément les nombres de 1 à 24 dans la colonne A.
Avec mon fichier ? C'est pourtant bien ce qui se passe chez moi
As tu accepté l'exécution des macros ?
Apparemment, tu as eu le même problème avec la proposition de via55 que je salue au passage. Comme je suis sous excel 2003, je ne connais pas la démarche pour activer l'exécution des macros, sous excel >=2007, et sa proposition étant à peu près la même que la mienne, je te laisse continuer avec lui.

Bonne soirée à tous

Réponse 2 / 5

via55 Messages postés 14512 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 janvier 2025 2 740
29 avril 2015 à 17:16

Bonjour Bentrider

Macro à mettre dans le worksheet de la feuille concernée (ALT +F11 pour ouvrir éditeur VBA, double-clic sur la bonne feuille dans l'arborescence à gauche, copier la macro et la coller dans la feuille blanche avant de fermer l'éditeur)

Private Sub Worksheet_Change(ByVal Target As Range)
'si D8 change
If Not Intersect(Target, Range("D8")) Is Nothing Then
' si ce n'ets pas un nombre en D8 message erreur et sortie
If Not IsNumeric(Target) Then MsgBox ("Entrer un nombre ici SVP"): Exit Sub
' sinon boucle de 1 à la valeur de D8 x 12 et inscrit valeur en colonne A
For n = 1 To 12 * Target.Value
Range("A" & n) = n
Next
End If
End Sub

Cdlmnt
Via

Bentrider267 Messages postés 6 Date d'inscription mercredi 29 avril 2015 Statut Membre Dernière intervention 29 avril 2015
29 avril 2015 à 19:13

Salut Via55
Merci de ta réponse. J'ai suivi ta procédure, mais rien ne se produit sur la feuille n°2 que j'ai choisie dans l'arborescence. J'ai également essayé en retirant les consignes en vert mais là encore rien ne se passe. La feuille reste complètement vierge. Pourtant en faisant alt + f11, la macro apparait bien sur la page. N'y aurait-il pas une option à déverrouiller?

via55 Messages postés 14512 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 janvier 2025 2 740 > Bentrider267 Messages postés 6 Date d'inscription mercredi 29 avril 2015 Statut Membre Dernière intervention 29 avril 2015
29 avril 2015 à 19:41

Non, en principe
Cela fonctionne bien chez moi :
https://www.cjoint.com/?0DDt20dyW2a

Réponse 3 / 5

Bentrider267 Messages postés 6 Date d'inscription mercredi 29 avril 2015 Statut Membre Dernière intervention 29 avril 2015
29 avril 2015 à 21:03

Formidable!!! ça marche au poil!!! Vraiment un super merci à vous deux. En effet je n'avais pas activer les macro. Encore merci je vais pouvoir avancer.
Bonne soirée.

Problème résolu: I M P E C CA B L E.

Bentrider267 Messages postés 6 Date d'inscription mercredi 29 avril 2015 Statut Membre Dernière intervention 29 avril 2015
29 avril 2015 à 21:23

Zut!!! Help Via55!
J'ai un ptit bug. Quand je teste 5 en D8, j'ai bien la numérotation de 1 jusqu'à 60. Mais quand je repasse la case D8 à 2, la numérotation ne repasse pas à de 1 à 24 comme il le faudrait. Je n'avais pas précisé ce point dans mon énoncé initial.
Te serait-il possible de bidouiller le programme? Merci d'avance.

Re

Rajoute ces 2 lignes juste avant la boucle For pour effacer la colonne A:

Columns("A:A").Select
 Selection.ClearContents

Réponse 4 / 5

Bentrider267 Messages postés 6 Date d'inscription mercredi 29 avril 2015 Statut Membre Dernière intervention 29 avril 2015
29 avril 2015 à 22:49

Merci via55. Encore une chose qui me bloque pour pour rajouter ces deux lignes avant la boucle for. Comment fait-on pour remettre l'arborescence sur le coté gauche? Elle semble avoir disparue.

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

via55 Messages postés 14512 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 janvier 2025 2 740
29 avril 2015 à 23:26

De rien,

Raccourci CTRL+R
ou dans le Menu Affichage Explorateur de projet

Bonne suite
Via

Discussions similaires

Nettoyer une base de données avec une liste

Remplir une cellule (texte) en fonction d'une autre (texte).

Durée d'une diapositive animée

Insultes et propos racistes