Numéroter automatiquement sans tirer les cellules
Résolu
Bentrider267
Messages postés
6
Statut
Membre
-
via55 Messages postés 14395 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14395 Date d'inscription Statut Membre Dernière intervention -
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
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
5 réponses
-
-
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.- 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
-
-
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
-
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?
-
-
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.-
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.
-
-
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 -
De rien,
Raccourci CTRL+R
ou dans le Menu Affichage Explorateur de projet
Bonne suite
Via
