Discussion :

[juraph]

Bonjour à tous,

Oupss, me suis trompé: ce post devrait être dans Macro & VBA Excel, non ?

J'ai un souci avec le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub NewLine()
Dim rang    As Range
    Application.ScreenUpdating = False
    ActiveWorkbook.Sheets("ATOS-BE").Activate
    ActiveCell.EntireRow.Select
    Selection.Insert Shift:=xlDown
    Set rang = ActiveSheet.Cells(ActiveCell.Row, 1)
    Range("A774:FZ774").Copy
    rang.Offset(0, 0).PasteSpecial Paste:=xlFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

Je l'ai installé dans un autre fichier où il fonctionne sans problème mais ici les formules ne sont jamais copiées.
Certaines cellules de la rangée A774 à FZ774 contiennent des formules comme ceci:

Code :

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

=SI(ET(E717>0;NON(E717="-"));1;"")

Dans mon fichier original (où ça marche), j'ai une formule du genre =A2*A4.

Que faut-il faire pour que ma formule =SI... soit recopiée ?

Merci d'avance pour l'aide.

[Daniel.C]

Bonjour,

Si la macro fonctionne dans un classeur et pas dans un autre, c'est une question de données. Est-ce que tu peux mettre le classeur en pièce jointe ?

[juraph]

Bonjour Daniel.C,

Désolé pour la réponse tardive.
Voici le classeur édulcoré.
Pour rappel, c'est un excel 2010.

Merci pour ton support.

[Daniel.C]

Bonjour,

A quoi correspond "ActiveCell" ? A n'importe quelle cellule ?

[juraph]

Oui, à n'importe quelle cellule de la ligne au-dessus de laquelle on insère la nouvelle ligne.

[Daniel.C]

A force d'insérer des lignes, la ligne 774 que tu copies se décale vers le bas. celle que tu copies ensuite ne contient plus rien.

[Menhir]

Je l'ai installé dans un autre fichier où il fonctionne sans problème mais ici les formules ne sont jamais copiées.
Certaines cellules de la rangée A774 à FZ774 contiennent des formules comme ceci:

Code :

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

=SI(ET(E717>0;NON(E717="-"));1;"")

Dans mon fichier original (où ça marche), j'ai une formule du genre =A2*A4.

Ca ressemble beaucoup à un problème de langue.
VBA ne comprend que les formules Excel en anglais. Il est donc probable qu'il ne comprenne pas les Si et les ET.

La solution la plus simple est d'essayer une simple transmission avec un "=" entre les Formula des zones concernées :

Code :

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

Range(Destination).Formula = Range(Source).Formula

Je viens de tester, ça passe bien.

Cela dit, je viens aussi de tester le PasteSpecial sur ce type de fonction sur mon poste et ça copie sans problème les fonctions.
Donc rien ne garantie que si le PasteSpecial ne passe pas bien chez toi, ma solution fonctionne.