Macro excel Résolu/Fermé

Question

Bonjour,
A partir d'un nombre se situant dans une cellule, B2 par exemple, j'ai inséré N colonnes à partir de F;F

En VBA, je souhaiterais recopier la formule se situant dans le cellule E5, c'est à dire avant l'insertion, vers la droite et une fois de plus que j'ai inséré de colonne. De plus je souhaiterais que la formule soit conservée dans chaque cellule (E5=E4+1) pour la cellule E5
Merci pour votre aide
Erwan

cocotehier · Answer

Bonjour Erwan,
Peux-tu déposer un fichier qui montre ce que tu veux sur cijoint car la VBA ne donne pas le droit à la moindre erreur sinon elle fera pas ce que tu voulais exactement....à chaque fois !

elec29 · Answer

Bonjour Carpe Diem
Comment joint on un fichier ?

lermite222 · Answer

Bonjour,
A cette adresse  https://www.cjoint.com/
Tu colle le lien dans un poste suivant.
A+

elec29 · Answer

Voila le fichier test, 
Cela m'a permis de constater que j'avais une erreure dans la présentation :
A la place de 
"De plus je souhaiterais que la formule soit conservée dans chaque cellule (E5=E4+1) pour la cellule E5"
j'aurais du écrire :
De plus je souhaiterais que la formule soit conservée dans chaque cellule (E5=D5+1) pour la cellule E5 
Merci d'avance pour vos réponses.
@+
Erwan
https://www.cjoint.com/?dkqKJqvL5n

cocotehier · Answer

Erwan,
Ce truc la (.xml) c'est loin de la question initiale, en tout cas loin de mes compétences !
Je m'amuse aussi avec ce format sur du website ou de la télphonie, mais pas sur avec du excel.

elec29 · Answer

Cocotehier,
C'est un fichier excel enregistré en classeur prenant en charge les macros

Sub Insérer()
    nb_col = Range("b9").Value - 3
    Sheets("feuil2").Select
    Columns("f:f").Select
    For I = 1 To nb_col
        Selection.Insert Shift:=xlToRight
    Next
End Sub
et le classeur sans l'activation macro

https://www.cjoint.com/?dkssTBS72z

@+

cocotehier · Answer

Ox !
.value - 3 donne si b9 = 10 ajouter b9 - 3 soit 7 colonnes,
.value est devant être différent de 0 donc si 10 colonnes sont à insérer et si .value = -1, b9 doit être = 11 donc dans la formule, Range("b9)+1

gbinforme · Answer

bonjour

je souhaiterais recopier la formule se situant dans le cellule E5, c'est à dire avant l'insertion, vers la droite

Si j'ai compris ce que tu veux faire :
Range("E5").AutoFill Destination:=Range("E5").Resize(1, nb_col)

elec29 · Answer

Messieur,
2 jours à chercher pour une ligne....
C'est beau la compétance
Et encore un grand merci
@+
Erwan

Macro excel

9 réponses

Discussions similaires