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.

[Nain porte koi]

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

Tout a fait
Pièce jointe 657783
et l'avantage c'est qu'on peut quand même garder la version actuelle, l'enregistrement auto est un enregistrement à part qui est récupéré en cas de crash, et Excel propose de le conserver ou de rester sur la version qui avait été enregistré par l'utilisateur.
Il me semblait que cette option était déjà présente dans 2016, mais c'est peut-être 2019... ou alors je me trompe

[Florent6744]

Bonjour,

je sais bien qu'il y a plus simple pour créer une ligne sauf que j'ai une pagination a faire sur certaines cellules et pour pas me prendre la tête a chaque création je fait tout en macro.

Concernant la formule =STXT([@N°Affaire];6;6), quand je la créer j'ai ce message:
Pièce jointe 657819

Je ne comprend pas ce qui est bloque.

[Nain porte koi]

Re,

la pièce jointe n'est pas lisible et en fait votre fichier serait plus utile

[78chris]

Bonjour à tous

Bonjour,

je sais bien qu'il y a plus simple pour créer une ligne sauf que j'ai une pagination a faire sur certaines cellules et pour pas me prendre la tête a chaque création je fait tout en macro.

Donc tu réinventes l'eau tiède dans Excel avec du VBA forcément beaucoup moins efficace que ce qui est natif...

[Nain porte koi]

... moins efficace que ce qui est natif...

Chouette un AMIS