Discussion :

[Florent6744]

Bonjour,

Je suis en train d'automatiser un tableau Excel pour insérer des lignes.
Je bute sur une chose.

J'ai des formules dans certaines cellules que j'aimerais avoir dans la nouvelle ligne.
par exemple dans la cellule AA tel ligne j'ai cette formule: =STXT(B tel ligne;5;13)

Ce que j'aimerais, c'est que quand je crée la ligne quelque soit la ligne (sauf 2 bien sûr) ça copie la formule du dessus mais avec le bon tel ligne.

En clair si je crée une ligne en 5, il reprend la formule dans AA4 (=STXT(B4;5;13)) mais la transforme en =STXT(B5;5;13)

J'espère être assez clair.

Merci de votre aide.

Florent

[BENNASR]

bonjour
la demande n'est pas bien claire au moins pour moi
mais si j'ai bien compris il suffit d’insérer un tableau structuré, les formules sont applicables automatiquement pour toutes les lignes même en cas d'évolution des données
donc il suffit de sélectionner toutes les données puis onglet insertion puis tableau
si ce n'est pas ce que tu cherches ...revenir avec un exemple et/ou une simulation du résultat attendu

[deedolith]

Salut,

Passe par des tableaux structurés, ils font cela en natif
(en plus d'être autrement plus versatile qu'une plage de cellules quelconque).

[Florent6744]

Pour être plus clair, j'ai ultra simplifié le tableau pour vous le montrer.... Oui ok en faite j'ai tout viré sauf une formule.

Pour faire simple sur mon exemple, lorsque je clique sur la ligne au dessus de laquelle je souhaite créer la nouvelle, tout fonctionne nickel.
Ce qu'il me manque c'est la réécriture de la formule colonne G.

j'espère que c'est plus clair avec le tableau.

[Nain porte koi]

Hello,

comme proposé par deedolith, un tableau structurés suffit.
Si vous transformez votre exemple via le bouton "Mettre sous forme de tableau" et que vous modifiez la formule =STXT(A2;6;6) en =STXT([@N°Affaire];6;6) pas besoin d'autre chose

la macro devient alors

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub New_line()
 
    Rows(ActiveCell.Row + 1).Insert Shift:=xlDown
    Rows(ActiveCell.Row + 1).Select
 
End Sub

D'ailleurs y'a t'il besoin d'une macro pour insérer une ligne ?

Quand à l'enregistrement automatique toutes les 2 minutes, j'aime vraiment pas, surtout en mode développement, tout en sachant que Excel fait un enregistrement pour "au cas où"

[deedolith]

Quand à l'enregistrement automatique toutes les 2 minutes, j'aime vraiment pas, surtout en mode développement, tout en sachant que Excel fait un enregistrement pour "au cas où"

Sauf erreur de ma part, il me semble qu'Office 365 propose se genre d'option.