Insert de cellules vides par rapport à 8 nombres
Bonjour,
j'ai une liste de 8 nombres en colonne S, lignes 4 à 11.
exemple :
S4 = 5
S5 = 1
S6 = 0
etc.
S11 = 2
J'aimerais bénéficier d'une macro permettant d'insérer des cellules vides (c'est-à-dire décaler tout ce qui existe déjà en colonne T vers la droite), avec autant de cellules vides que les nombres indiqués en colonne S
exemple :
insérer
- 5 cellules vides en T4
- 1 cellule vide en T5
- aucune en T6
Ce qui donnerait :
Pouvez-vous m'aider ?
Bonjour,
A priori ... tu ne devrais pas avoir besoin de macro ...
Par contre ...
Salut James,
tu as raison, je n'ai pas besoin de macro pour cette fois.
Grâce à ta remarque, je m'aperçois que j'ai mal formulé ma demande.
Cette manipulation va se répéter plusieurs centaines de fois, au fur et à mesure que je vais traiter des milliers d'informations.
C'est là qu'une macro me permettrait d'avancer plus vite, et de m'épargner une tendinite. Ah non, trop tard, j'ai déjà la tendinite !
Je précise aussi que j'utilise Excel 2003 (je suis pour la préservation des dinosaures. Mais les dinosaures me préserveront-ils ?)
(Finalement, la question ne se pose plus, parce qu'on vient juste de m'apprendre qu'il n'y aurait plus de dinosaures. C'est vrai ?)
Voici donc un fichier d'essai de macro :
Sub CellulesVERSdroite()
'
' CellulesVERSdroite Macro
' Macro enregistrée le 02/06/2019 par utilisateur
'
Range("T4").Select
For a = 1 to S4
Selection.Insert Shift:=xlToRight
next a
Range("T5").Select
For b = 1 to S5
Selection.Insert Shift:=xlToRight
next b
Range("T6").Select
For c = 1 to S6
Selection.Insert Shift:=xlToRight
next c
Range("T7").Select
For d = 1 to S7
Selection.Insert Shift:=xlToRight
next d
Range("T8").Select
For e = 1 to S8
Selection.Insert Shift:=xlToRight
next e
Range("T9").Select
For f = 1 to S9
Selection.Insert Shift:=xlToRight
next f
Range("T10").Select
For g = 1 to S10
Selection.Insert Shift:=xlToRight
next g
Range("T11").Select
For h = 1 to S11
Selection.Insert Shift:=xlToRight
next h
End Sub
Trouvé !
Certainement améliorable, par exemple en évitant toutes ces boucles, et en créant une boucle dans une boucle, mais bon, ça marche :
J'ai essayé de réduire les boucles, mais là, ça ne marche plus.
For i=1to8
For a = 1 To Range("S3+i")
Range("T3+i").Insert Shift:=xlToRight
Next a
next i
Ca bogue au niveau "S3+i"
Re,
Au risque de me répéter ...
Le plus simple : Joindre ton fichier Excel ...
Non, non, c'est bon de répéter les choses, ça rentre mieux. L'époque est au fast-quick, et on perd des infos en route.
Donc, impec, je joins un fichier d'essai.
Re,
Désolé ... mais ton fichier test est ... incompréhensible ...
Quel est ton point de Départ ...?
A quoi veux-tu aboutir ...?
M'enfin Gaston !
Tout est dit dans le premier post.
Mais, il semblerait que la répétition soit ton dada. Alors, "Rien que pour tes yeux", je vais répéter répéter.
Après tout, "On ne répète que deux fois"
Créer macro permettant de décaler vers la droite les cellules de la colonne U et suivantes d'autant de cases qu'indiquées dans la colonne S.
Départ :
Après "Opération Macro" :
Et voilà!
"Bons baisers de Patapin"
Re,
Tu ne vas pas en faire un pata ...quès ...
Sub Patapin()
Dim i As Long
For i = 4 To 11
Range(Cells(i, 21), Cells(i, 21 + 8)).Cut Range(Cells(i, 21 + Range("S" & i)), Cells(i, 21 + Range("S" & i) + 8))
Next i
End SubEn espèrant que cela t'aide
Hello 007,
tu as eu le regard en or "Goldeneye", ta formule fonctionne, merci beaucoup.
J'ai créé un bouton pour y associer ta macro, et gag : en cliquant deux fois dessus, il se passe des choses imprévues par l'avenir (enfin, imprévues pour moi. Parce que pour toi, je suis sur que Demain ne meurt jamais.)
Essaie de la faire fonctionner 2 ou 3 fois de suite, tu vas voir : des cellules meurent. C'est pas du jeu (Tuer n'est pas jouer) !
Moi qui croyais les cellules éternelles, je me fourre le doigt dans l'or...
Re,
EXCELLENT ...
Effectivement ... les cellules ont toutes la même tendance ...
voir leurs télomères qui raccourcissent ...
De plus en plus drôle !
Bon, ce n'est pas dramaique, en principe, je ne devrai utiliser qu'une seule fois la macro par feuille.
Sinon, au cas où, aurais-tu une solution (aqueuse ou non) pour ta macro(biote) ?
Re,
En termes de douceurs ... style patachou .....
Tu pourrais tester la Version 2 ...
Avec plaisir.
mais... Où est-elle ?
Il n'y a pas de Pâte à cells
Avec plaisir.
mais... Où est-elle ?
Il n'y a pas de Pâte à cells
Bonjour ...
Patatra ... je l'ai oubliée ...
habile ! Au-dessus de la plage des 8 chiffres, écrire un X en fin de macro ! Voilà ce que j'appellerai un Octo pousse-X, Au service secret de sa Macro !
Mais je préférais quand il n'y avait pas de X, désolé, je suis obligé de censurer. C'est un peu carré blanc et blanc carré...
habile ! Au-dessus de la plage des 8 chiffres, écrire un X en fin de macro ! Voilà ce que j'appellerai un Octo pousse-X, Au service secret de sa Macro !
Mais je préférais quand il n'y avait pas de X, désolé, je suis obligé de censurer. C'est un peu carré blanc et blanc carré...
Je rougis de honte
à l'idée que tu aies découvert ... mon goût prononcé ... pour le X ...
Ça doit être dû à tes macromosomes, t'inquiète.
Re,
Dire que tout cela a démarré ... à cause de ... cellules vides ... !!!
un peu comme les grises ... que je me trimballe ....
Et on pourrait peut-être remplacer les Cut par des Insert, ou un truc dazns le genre, qu'en penses-tu ?
A demain, quand tu seras dé-grisé de ta cellule !