Numéroter automatiquement sans tirer les cellules
Résolu
Bentrider267
Messages postés
6
Date d'inscription
Statut
Membre
Dernière intervention
-
via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14512 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
A voir également:
- Numéroter automatiquement sans tirer les cellules
- Numéroter page word - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Comment numéroter les pages sur powerpoint - Guide
- Automatiquement - Guide
- Verrouiller cellules excel - Guide
5 réponses
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)
Cdlmnt
Via
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?
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.
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.
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
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.
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