Macro excel
Résolu
elec29
Messages postés
5
Statut
Membre
-
elec29 Messages postés 5 Statut Membre -
elec29 Messages postés 5 Statut Membre -
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
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
Configuration: Windows XP Firefox 3.0.7
9 réponses
-
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 ! -
-
-
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 -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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.
-
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
@+ -
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 -
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) -
Messieur,
2 jours à chercher pour une ligne....
C'est beau la compétance
Et encore un grand merci
@+
Erwan
