Bonjour tout le monde,
Utilisateur d'Excel2000 sur Windows XP, j'ai un problème avec la macro
"NouvelleLigneEnDessous" de Jacky.
J'ai réussi à la placer et à l'éxécuter, elle marche super bien hormis un
détail qui n'est pas négligeable.
Toutes les formules sont bien présentes sur la nouvelle ligne ajoutée, le
problème ce sont les autres lignes: leurs formules ne prennent pas en compte
les données de la ligne ajoutée (exemple pour une simple addition: la ligne
ajoutée est la n°72, l'addition se fait toujours de la ligne 31 à 71)
Je suis tout ce qu'il y a de plus novice en matière de macros et celle de
Jacky est trop complexe à mon niveau pour que j'arrive à "l'arranger".
Ci-dessous la macro dont il est question:
Sub NouvelleLigneEnDessous()
Dim ZtNumLig As Integer
Dim ZtDerCol As Integer
ActiveCell.Range("A2").EntireRow.Insert
ZtNumLig = ActiveCell.Row
ZtDerCol = ActiveCell.SpecialCells(xlCellTypeLastCell).Column
Range(Cells(ZtNumLig, 1), Cells(ZtNumLig, ZtDerCol)).Copy _
Range(Cells(ZtNumLig + 1, 1), Cells(ZtNumLig + 1, ZtDerCol))
Application.ScreenUpdating = False
For i = 1 To ZtDerCol
If Not Cells(ZtNumLig + 1, i).HasFormula Then
Cells(ZtNumLig + 1, i).ClearContents
End If
Next i
ActiveCell.Range("A2").Select
End Sub
Jacky, (N°1021)
Pouvez-vous m'aider svp?
Merci d'avance!!
Bonjour tout le monde,
Utilisateur d'Excel2000 sur Windows XP, j'ai un problème avec la macro
"NouvelleLigneEnDessous" de Jacky.
J'ai réussi à la placer et à l'éxécuter, elle marche super bien hormis un
détail qui n'est pas négligeable.
Toutes les formules sont bien présentes sur la nouvelle ligne ajoutée, le
problème ce sont les autres lignes: leurs formules ne prennent pas en compte
les données de la ligne ajoutée (exemple pour une simple addition: la ligne
ajoutée est la n°72, l'addition se fait toujours de la ligne 31 à 71)
Je suis tout ce qu'il y a de plus novice en matière de macros et celle de
Jacky est trop complexe à mon niveau pour que j'arrive à "l'arranger".
Ci-dessous la macro dont il est question:
Sub NouvelleLigneEnDessous()
Dim ZtNumLig As Integer
Dim ZtDerCol As Integer
ActiveCell.Range("A2").EntireRow.Insert
ZtNumLig = ActiveCell.Row
ZtDerCol = ActiveCell.SpecialCells(xlCellTypeLastCell).Column
Range(Cells(ZtNumLig, 1), Cells(ZtNumLig, ZtDerCol)).Copy _
Range(Cells(ZtNumLig + 1, 1), Cells(ZtNumLig + 1, ZtDerCol))
Application.ScreenUpdating = False
For i = 1 To ZtDerCol
If Not Cells(ZtNumLig + 1, i).HasFormula Then
Cells(ZtNumLig + 1, i).ClearContents
End If
Next i
ActiveCell.Range("A2").Select
End Sub
Jacky, (N°1021)
Pouvez-vous m'aider svp?
Merci d'avance!!
Bonjour tout le monde,
Utilisateur d'Excel2000 sur Windows XP, j'ai un problème avec la macro
"NouvelleLigneEnDessous" de Jacky.
J'ai réussi à la placer et à l'éxécuter, elle marche super bien hormis un
détail qui n'est pas négligeable.
Toutes les formules sont bien présentes sur la nouvelle ligne ajoutée, le
problème ce sont les autres lignes: leurs formules ne prennent pas en compte
les données de la ligne ajoutée (exemple pour une simple addition: la ligne
ajoutée est la n°72, l'addition se fait toujours de la ligne 31 à 71)
Je suis tout ce qu'il y a de plus novice en matière de macros et celle de
Jacky est trop complexe à mon niveau pour que j'arrive à "l'arranger".
Ci-dessous la macro dont il est question:
Sub NouvelleLigneEnDessous()
Dim ZtNumLig As Integer
Dim ZtDerCol As Integer
ActiveCell.Range("A2").EntireRow.Insert
ZtNumLig = ActiveCell.Row
ZtDerCol = ActiveCell.SpecialCells(xlCellTypeLastCell).Column
Range(Cells(ZtNumLig, 1), Cells(ZtNumLig, ZtDerCol)).Copy _
Range(Cells(ZtNumLig + 1, 1), Cells(ZtNumLig + 1, ZtDerCol))
Application.ScreenUpdating = False
For i = 1 To ZtDerCol
If Not Cells(ZtNumLig + 1, i).HasFormula Then
Cells(ZtNumLig + 1, i).ClearContents
End If
Next i
ActiveCell.Range("A2").Select
End Sub
Jacky, (N°1021)
Pouvez-vous m'aider svp?
Merci d'avance!!
bonjour,
ne suis pas sur d'avoir tout compris. Est-ce que une formule doit
additionner des valeurs de l'ensemble de cellules précédentes ?
A+
Bonjour tout le monde,
Utilisateur d'Excel2000 sur Windows XP, j'ai un problème avec la macro
"NouvelleLigneEnDessous" de Jacky.
J'ai réussi à la placer et à l'éxécuter, elle marche super bien hormis un
détail qui n'est pas négligeable.
Toutes les formules sont bien présentes sur la nouvelle ligne ajoutée, le
problème ce sont les autres lignes: leurs formules ne prennent pas en compte
les données de la ligne ajoutée (exemple pour une simple addition: la ligne
ajoutée est la n°72, l'addition se fait toujours de la ligne 31 à 71)
Je suis tout ce qu'il y a de plus novice en matière de macros et celle de
Jacky est trop complexe à mon niveau pour que j'arrive à "l'arranger".
Ci-dessous la macro dont il est question:
Sub NouvelleLigneEnDessous()
Dim ZtNumLig As Integer
Dim ZtDerCol As Integer
ActiveCell.Range("A2").EntireRow.Insert
ZtNumLig = ActiveCell.Row
ZtDerCol = ActiveCell.SpecialCells(xlCellTypeLastCell).Column
Range(Cells(ZtNumLig, 1), Cells(ZtNumLig, ZtDerCol)).Copy _
Range(Cells(ZtNumLig + 1, 1), Cells(ZtNumLig + 1, ZtDerCol))
Application.ScreenUpdating = False
For i = 1 To ZtDerCol
If Not Cells(ZtNumLig + 1, i).HasFormula Then
Cells(ZtNumLig + 1, i).ClearContents
End If
Next i
ActiveCell.Range("A2").Select
End Sub
Jacky, (N°1021)
Pouvez-vous m'aider svp?
Merci d'avance!!
bonjour,
ne suis pas sur d'avoir tout compris. Est-ce que une formule doit
additionner des valeurs de l'ensemble de cellules précédentes ?
A+
Bonjour tout le monde,
Utilisateur d'Excel2000 sur Windows XP, j'ai un problème avec la macro
"NouvelleLigneEnDessous" de Jacky.
J'ai réussi à la placer et à l'éxécuter, elle marche super bien hormis un
détail qui n'est pas négligeable.
Toutes les formules sont bien présentes sur la nouvelle ligne ajoutée, le
problème ce sont les autres lignes: leurs formules ne prennent pas en compte
les données de la ligne ajoutée (exemple pour une simple addition: la ligne
ajoutée est la n°72, l'addition se fait toujours de la ligne 31 à 71)
Je suis tout ce qu'il y a de plus novice en matière de macros et celle de
Jacky est trop complexe à mon niveau pour que j'arrive à "l'arranger".
Ci-dessous la macro dont il est question:
Sub NouvelleLigneEnDessous()
Dim ZtNumLig As Integer
Dim ZtDerCol As Integer
ActiveCell.Range("A2").EntireRow.Insert
ZtNumLig = ActiveCell.Row
ZtDerCol = ActiveCell.SpecialCells(xlCellTypeLastCell).Column
Range(Cells(ZtNumLig, 1), Cells(ZtNumLig, ZtDerCol)).Copy _
Range(Cells(ZtNumLig + 1, 1), Cells(ZtNumLig + 1, ZtDerCol))
Application.ScreenUpdating = False
For i = 1 To ZtDerCol
If Not Cells(ZtNumLig + 1, i).HasFormula Then
Cells(ZtNumLig + 1, i).ClearContents
End If
Next i
ActiveCell.Range("A2").Select
End Sub
Jacky, (N°1021)
Pouvez-vous m'aider svp?
Merci d'avance!!
bonjour,
ne suis pas sur d'avoir tout compris. Est-ce que une formule doit
additionner des valeurs de l'ensemble de cellules précédentes ?
A+
Bonjour tout le monde,
Utilisateur d'Excel2000 sur Windows XP, j'ai un problème avec la macro
"NouvelleLigneEnDessous" de Jacky.
J'ai réussi à la placer et à l'éxécuter, elle marche super bien hormis un
détail qui n'est pas négligeable.
Toutes les formules sont bien présentes sur la nouvelle ligne ajoutée, le
problème ce sont les autres lignes: leurs formules ne prennent pas en compte
les données de la ligne ajoutée (exemple pour une simple addition: la ligne
ajoutée est la n°72, l'addition se fait toujours de la ligne 31 à 71)
Je suis tout ce qu'il y a de plus novice en matière de macros et celle de
Jacky est trop complexe à mon niveau pour que j'arrive à "l'arranger".
Ci-dessous la macro dont il est question:
Sub NouvelleLigneEnDessous()
Dim ZtNumLig As Integer
Dim ZtDerCol As Integer
ActiveCell.Range("A2").EntireRow.Insert
ZtNumLig = ActiveCell.Row
ZtDerCol = ActiveCell.SpecialCells(xlCellTypeLastCell).Column
Range(Cells(ZtNumLig, 1), Cells(ZtNumLig, ZtDerCol)).Copy _
Range(Cells(ZtNumLig + 1, 1), Cells(ZtNumLig + 1, ZtDerCol))
Application.ScreenUpdating = False
For i = 1 To ZtDerCol
If Not Cells(ZtNumLig + 1, i).HasFormula Then
Cells(ZtNumLig + 1, i).ClearContents
End If
Next i
ActiveCell.Range("A2").Select
End Sub
Jacky, (N°1021)
Pouvez-vous m'aider svp?
Merci d'avance!!
Bonjour anonymousA,
Je vais reprendre l'exemple dont j'avais parlé.
Sans cette macro installée :
Tu as une cellule (ex: A74) où apparait la somme des valeurs contenues dans
les cellules A31 jusqu'à A71.
Tu insères une ligne. Tout se décale ok mais tu t'aperçois que A74 prend
désormais aussi en compte A72. C'est automatique.
La macro installée, si elle permet bien de garder les formules du dessus
dans la nouvelle ligne, retire cet "automatisme".
Tu te retrouves toujours avec "somme de A31 à A71". la ligne A72 est
"fantôme" en quelque sorte.
A quoi bon ajouter une ligne si elle "n'existe pas" pour les autres cellules??
D'où ma demande pour savoir si qq'un peut modifier la macro tapée dans mon
1er message.
J'espère avoir bien répondu à ta question, en attendant que qq'un puisse
répondre à la mienne (Merci d'avance!).
A+!
-----------------------------------------------------------------bonjour,
ne suis pas sur d'avoir tout compris. Est-ce que une formule doit
additionner des valeurs de l'ensemble de cellules précédentes ?
A+
-------------------------------------------------------------------------------------Bonjour tout le monde,
Utilisateur d'Excel2000 sur Windows XP, j'ai un problème avec la macro
"NouvelleLigneEnDessous" de Jacky.
J'ai réussi à la placer et à l'éxécuter, elle marche super bien hormis un
détail qui n'est pas négligeable.
Toutes les formules sont bien présentes sur la nouvelle ligne ajoutée, le
problème ce sont les autres lignes: leurs formules ne prennent pas en compte
les données de la ligne ajoutée (exemple pour une simple addition: la ligne
ajoutée est la n°72, l'addition se fait toujours de la ligne 31 à 71)
Je suis tout ce qu'il y a de plus novice en matière de macros et celle de
Jacky est trop complexe à mon niveau pour que j'arrive à "l'arranger".
Ci-dessous la macro dont il est question:
Sub NouvelleLigneEnDessous()
Dim ZtNumLig As Integer
Dim ZtDerCol As Integer
ActiveCell.Range("A2").EntireRow.Insert
ZtNumLig = ActiveCell.Row
ZtDerCol = ActiveCell.SpecialCells(xlCellTypeLastCell).Column
Range(Cells(ZtNumLig, 1), Cells(ZtNumLig, ZtDerCol)).Copy _
Range(Cells(ZtNumLig + 1, 1), Cells(ZtNumLig + 1, ZtDerCol))
Application.ScreenUpdating = False
For i = 1 To ZtDerCol
If Not Cells(ZtNumLig + 1, i).HasFormula Then
Cells(ZtNumLig + 1, i).ClearContents
End If
Next i
ActiveCell.Range("A2").Select
End Sub
Jacky, (N°1021)
Pouvez-vous m'aider svp?
Merci d'avance!!
Bonjour anonymousA,
Je vais reprendre l'exemple dont j'avais parlé.
Sans cette macro installée :
Tu as une cellule (ex: A74) où apparait la somme des valeurs contenues dans
les cellules A31 jusqu'à A71.
Tu insères une ligne. Tout se décale ok mais tu t'aperçois que A74 prend
désormais aussi en compte A72. C'est automatique.
La macro installée, si elle permet bien de garder les formules du dessus
dans la nouvelle ligne, retire cet "automatisme".
Tu te retrouves toujours avec "somme de A31 à A71". la ligne A72 est
"fantôme" en quelque sorte.
A quoi bon ajouter une ligne si elle "n'existe pas" pour les autres cellules??
D'où ma demande pour savoir si qq'un peut modifier la macro tapée dans mon
1er message.
J'espère avoir bien répondu à ta question, en attendant que qq'un puisse
répondre à la mienne (Merci d'avance!).
A+!
-----------------------------------------------------------------
bonjour,
ne suis pas sur d'avoir tout compris. Est-ce que une formule doit
additionner des valeurs de l'ensemble de cellules précédentes ?
A+
-------------------------------------------------------------------------------------
Bonjour tout le monde,
Utilisateur d'Excel2000 sur Windows XP, j'ai un problème avec la macro
"NouvelleLigneEnDessous" de Jacky.
J'ai réussi à la placer et à l'éxécuter, elle marche super bien hormis un
détail qui n'est pas négligeable.
Toutes les formules sont bien présentes sur la nouvelle ligne ajoutée, le
problème ce sont les autres lignes: leurs formules ne prennent pas en compte
les données de la ligne ajoutée (exemple pour une simple addition: la ligne
ajoutée est la n°72, l'addition se fait toujours de la ligne 31 à 71)
Je suis tout ce qu'il y a de plus novice en matière de macros et celle de
Jacky est trop complexe à mon niveau pour que j'arrive à "l'arranger".
Ci-dessous la macro dont il est question:
Sub NouvelleLigneEnDessous()
Dim ZtNumLig As Integer
Dim ZtDerCol As Integer
ActiveCell.Range("A2").EntireRow.Insert
ZtNumLig = ActiveCell.Row
ZtDerCol = ActiveCell.SpecialCells(xlCellTypeLastCell).Column
Range(Cells(ZtNumLig, 1), Cells(ZtNumLig, ZtDerCol)).Copy _
Range(Cells(ZtNumLig + 1, 1), Cells(ZtNumLig + 1, ZtDerCol))
Application.ScreenUpdating = False
For i = 1 To ZtDerCol
If Not Cells(ZtNumLig + 1, i).HasFormula Then
Cells(ZtNumLig + 1, i).ClearContents
End If
Next i
ActiveCell.Range("A2").Select
End Sub
Jacky, (N°1021)
Pouvez-vous m'aider svp?
Merci d'avance!!
Bonjour anonymousA,
Je vais reprendre l'exemple dont j'avais parlé.
Sans cette macro installée :
Tu as une cellule (ex: A74) où apparait la somme des valeurs contenues dans
les cellules A31 jusqu'à A71.
Tu insères une ligne. Tout se décale ok mais tu t'aperçois que A74 prend
désormais aussi en compte A72. C'est automatique.
La macro installée, si elle permet bien de garder les formules du dessus
dans la nouvelle ligne, retire cet "automatisme".
Tu te retrouves toujours avec "somme de A31 à A71". la ligne A72 est
"fantôme" en quelque sorte.
A quoi bon ajouter une ligne si elle "n'existe pas" pour les autres cellules??
D'où ma demande pour savoir si qq'un peut modifier la macro tapée dans mon
1er message.
J'espère avoir bien répondu à ta question, en attendant que qq'un puisse
répondre à la mienne (Merci d'avance!).
A+!
-----------------------------------------------------------------bonjour,
ne suis pas sur d'avoir tout compris. Est-ce que une formule doit
additionner des valeurs de l'ensemble de cellules précédentes ?
A+
-------------------------------------------------------------------------------------Bonjour tout le monde,
Utilisateur d'Excel2000 sur Windows XP, j'ai un problème avec la macro
"NouvelleLigneEnDessous" de Jacky.
J'ai réussi à la placer et à l'éxécuter, elle marche super bien hormis un
détail qui n'est pas négligeable.
Toutes les formules sont bien présentes sur la nouvelle ligne ajoutée, le
problème ce sont les autres lignes: leurs formules ne prennent pas en compte
les données de la ligne ajoutée (exemple pour une simple addition: la ligne
ajoutée est la n°72, l'addition se fait toujours de la ligne 31 à 71)
Je suis tout ce qu'il y a de plus novice en matière de macros et celle de
Jacky est trop complexe à mon niveau pour que j'arrive à "l'arranger".
Ci-dessous la macro dont il est question:
Sub NouvelleLigneEnDessous()
Dim ZtNumLig As Integer
Dim ZtDerCol As Integer
ActiveCell.Range("A2").EntireRow.Insert
ZtNumLig = ActiveCell.Row
ZtDerCol = ActiveCell.SpecialCells(xlCellTypeLastCell).Column
Range(Cells(ZtNumLig, 1), Cells(ZtNumLig, ZtDerCol)).Copy _
Range(Cells(ZtNumLig + 1, 1), Cells(ZtNumLig + 1, ZtDerCol))
Application.ScreenUpdating = False
For i = 1 To ZtDerCol
If Not Cells(ZtNumLig + 1, i).HasFormula Then
Cells(ZtNumLig + 1, i).ClearContents
End If
Next i
ActiveCell.Range("A2").Select
End Sub
Jacky, (N°1021)
Pouvez-vous m'aider svp?
Merci d'avance!!
re,
je ne comprends toujours pas. Si tu veux, envoie un exemple sur ma BAL perso
A+Bonjour anonymousA,
Je vais reprendre l'exemple dont j'avais parlé.
Sans cette macro installée :
Tu as une cellule (ex: A74) où apparait la somme des valeurs contenues dans
les cellules A31 jusqu'à A71.
Tu insères une ligne. Tout se décale ok mais tu t'aperçois que A74 prend
désormais aussi en compte A72. C'est automatique.
La macro installée, si elle permet bien de garder les formules du dessus
dans la nouvelle ligne, retire cet "automatisme".
Tu te retrouves toujours avec "somme de A31 à A71". la ligne A72 est
"fantôme" en quelque sorte.
A quoi bon ajouter une ligne si elle "n'existe pas" pour les autres cellules??
D'où ma demande pour savoir si qq'un peut modifier la macro tapée dans mon
1er message.
J'espère avoir bien répondu à ta question, en attendant que qq'un puisse
répondre à la mienne (Merci d'avance!).
A+!
-----------------------------------------------------------------bonjour,
ne suis pas sur d'avoir tout compris. Est-ce que une formule doit
additionner des valeurs de l'ensemble de cellules précédentes ?
A+
-------------------------------------------------------------------------------------Bonjour tout le monde,
Utilisateur d'Excel2000 sur Windows XP, j'ai un problème avec la macro
"NouvelleLigneEnDessous" de Jacky.
J'ai réussi à la placer et à l'éxécuter, elle marche super bien hormis un
détail qui n'est pas négligeable.
Toutes les formules sont bien présentes sur la nouvelle ligne ajoutée, le
problème ce sont les autres lignes: leurs formules ne prennent pas en compte
les données de la ligne ajoutée (exemple pour une simple addition: la ligne
ajoutée est la n°72, l'addition se fait toujours de la ligne 31 à 71)
Je suis tout ce qu'il y a de plus novice en matière de macros et celle de
Jacky est trop complexe à mon niveau pour que j'arrive à "l'arranger".
Ci-dessous la macro dont il est question:
Sub NouvelleLigneEnDessous()
Dim ZtNumLig As Integer
Dim ZtDerCol As Integer
ActiveCell.Range("A2").EntireRow.Insert
ZtNumLig = ActiveCell.Row
ZtDerCol = ActiveCell.SpecialCells(xlCellTypeLastCell).Column
Range(Cells(ZtNumLig, 1), Cells(ZtNumLig, ZtDerCol)).Copy _
Range(Cells(ZtNumLig + 1, 1), Cells(ZtNumLig + 1, ZtDerCol))
Application.ScreenUpdating = False
For i = 1 To ZtDerCol
If Not Cells(ZtNumLig + 1, i).HasFormula Then
Cells(ZtNumLig + 1, i).ClearContents
End If
Next i
ActiveCell.Range("A2").Select
End Sub
Jacky, (N°1021)
Pouvez-vous m'aider svp?
Merci d'avance!!
re,
je ne comprends toujours pas. Si tu veux, envoie un exemple sur ma BAL perso
anonymousA@wandoo.fr
A+
Bonjour anonymousA,
Je vais reprendre l'exemple dont j'avais parlé.
Sans cette macro installée :
Tu as une cellule (ex: A74) où apparait la somme des valeurs contenues dans
les cellules A31 jusqu'à A71.
Tu insères une ligne. Tout se décale ok mais tu t'aperçois que A74 prend
désormais aussi en compte A72. C'est automatique.
La macro installée, si elle permet bien de garder les formules du dessus
dans la nouvelle ligne, retire cet "automatisme".
Tu te retrouves toujours avec "somme de A31 à A71". la ligne A72 est
"fantôme" en quelque sorte.
A quoi bon ajouter une ligne si elle "n'existe pas" pour les autres cellules??
D'où ma demande pour savoir si qq'un peut modifier la macro tapée dans mon
1er message.
J'espère avoir bien répondu à ta question, en attendant que qq'un puisse
répondre à la mienne (Merci d'avance!).
A+!
-----------------------------------------------------------------
bonjour,
ne suis pas sur d'avoir tout compris. Est-ce que une formule doit
additionner des valeurs de l'ensemble de cellules précédentes ?
A+
-------------------------------------------------------------------------------------
Bonjour tout le monde,
Utilisateur d'Excel2000 sur Windows XP, j'ai un problème avec la macro
"NouvelleLigneEnDessous" de Jacky.
J'ai réussi à la placer et à l'éxécuter, elle marche super bien hormis un
détail qui n'est pas négligeable.
Toutes les formules sont bien présentes sur la nouvelle ligne ajoutée, le
problème ce sont les autres lignes: leurs formules ne prennent pas en compte
les données de la ligne ajoutée (exemple pour une simple addition: la ligne
ajoutée est la n°72, l'addition se fait toujours de la ligne 31 à 71)
Je suis tout ce qu'il y a de plus novice en matière de macros et celle de
Jacky est trop complexe à mon niveau pour que j'arrive à "l'arranger".
Ci-dessous la macro dont il est question:
Sub NouvelleLigneEnDessous()
Dim ZtNumLig As Integer
Dim ZtDerCol As Integer
ActiveCell.Range("A2").EntireRow.Insert
ZtNumLig = ActiveCell.Row
ZtDerCol = ActiveCell.SpecialCells(xlCellTypeLastCell).Column
Range(Cells(ZtNumLig, 1), Cells(ZtNumLig, ZtDerCol)).Copy _
Range(Cells(ZtNumLig + 1, 1), Cells(ZtNumLig + 1, ZtDerCol))
Application.ScreenUpdating = False
For i = 1 To ZtDerCol
If Not Cells(ZtNumLig + 1, i).HasFormula Then
Cells(ZtNumLig + 1, i).ClearContents
End If
Next i
ActiveCell.Range("A2").Select
End Sub
Jacky, (N°1021)
Pouvez-vous m'aider svp?
Merci d'avance!!
re,
je ne comprends toujours pas. Si tu veux, envoie un exemple sur ma BAL perso
A+Bonjour anonymousA,
Je vais reprendre l'exemple dont j'avais parlé.
Sans cette macro installée :
Tu as une cellule (ex: A74) où apparait la somme des valeurs contenues dans
les cellules A31 jusqu'à A71.
Tu insères une ligne. Tout se décale ok mais tu t'aperçois que A74 prend
désormais aussi en compte A72. C'est automatique.
La macro installée, si elle permet bien de garder les formules du dessus
dans la nouvelle ligne, retire cet "automatisme".
Tu te retrouves toujours avec "somme de A31 à A71". la ligne A72 est
"fantôme" en quelque sorte.
A quoi bon ajouter une ligne si elle "n'existe pas" pour les autres cellules??
D'où ma demande pour savoir si qq'un peut modifier la macro tapée dans mon
1er message.
J'espère avoir bien répondu à ta question, en attendant que qq'un puisse
répondre à la mienne (Merci d'avance!).
A+!
-----------------------------------------------------------------bonjour,
ne suis pas sur d'avoir tout compris. Est-ce que une formule doit
additionner des valeurs de l'ensemble de cellules précédentes ?
A+
-------------------------------------------------------------------------------------Bonjour tout le monde,
Utilisateur d'Excel2000 sur Windows XP, j'ai un problème avec la macro
"NouvelleLigneEnDessous" de Jacky.
J'ai réussi à la placer et à l'éxécuter, elle marche super bien hormis un
détail qui n'est pas négligeable.
Toutes les formules sont bien présentes sur la nouvelle ligne ajoutée, le
problème ce sont les autres lignes: leurs formules ne prennent pas en compte
les données de la ligne ajoutée (exemple pour une simple addition: la ligne
ajoutée est la n°72, l'addition se fait toujours de la ligne 31 à 71)
Je suis tout ce qu'il y a de plus novice en matière de macros et celle de
Jacky est trop complexe à mon niveau pour que j'arrive à "l'arranger".
Ci-dessous la macro dont il est question:
Sub NouvelleLigneEnDessous()
Dim ZtNumLig As Integer
Dim ZtDerCol As Integer
ActiveCell.Range("A2").EntireRow.Insert
ZtNumLig = ActiveCell.Row
ZtDerCol = ActiveCell.SpecialCells(xlCellTypeLastCell).Column
Range(Cells(ZtNumLig, 1), Cells(ZtNumLig, ZtDerCol)).Copy _
Range(Cells(ZtNumLig + 1, 1), Cells(ZtNumLig + 1, ZtDerCol))
Application.ScreenUpdating = False
For i = 1 To ZtDerCol
If Not Cells(ZtNumLig + 1, i).HasFormula Then
Cells(ZtNumLig + 1, i).ClearContents
End If
Next i
ActiveCell.Range("A2").Select
End Sub
Jacky, (N°1021)
Pouvez-vous m'aider svp?
Merci d'avance!!
Salut!
Euh ben je ne vois pas comment l'expliquer autrement.. si tu m'expliquais ce
que tu ne comprends pas exactement?
Si c'est juste l'exemple de l'addition qui pose problème c'est pas grave
j'en prends un autre :
Admettons que tu dises: je veux que la cellule C36 affiche ce qu'il y a dans
la cellule juste au-dessus, tu mets la formule "Ã5" dans C36 et ça marche.
Maintenant si tu executes la macro de Jacky et que tu insères une ligne
entre C35 et C36 alors C36 se décale et devient C37.
Eh bien tu verras que C37 se réfère encore à C35 alors qu'en temps normal
(sans la macro) la formule aurait dû se modifier d'elle-même et donner
"Ã6"!!!
C'est là tout le problème de cette macro. Quelque chose a été tapé qui lui
fait ignorer cette "propriété du décalage"...
Il suffirait je pense de la modifier légèrement mais je n'en ai pas le niveau.
Tu peux m'aider stp?
Ma demande reste biensûr ouverte à quiconque aura une solution.
Merci d'avance! :)
A+!
--------------------------------------------------------------------------------re,
je ne comprends toujours pas. Si tu veux, envoie un exemple sur ma BAL perso
A+Bonjour anonymousA,
Je vais reprendre l'exemple dont j'avais parlé.
Sans cette macro installée :
Tu as une cellule (ex: A74) où apparait la somme des valeurs contenues dans
les cellules A31 jusqu'à A71.
Tu insères une ligne. Tout se décale ok mais tu t'aperçois que A74 prend
désormais aussi en compte A72. C'est automatique.
La macro installée, si elle permet bien de garder les formules du dessus
dans la nouvelle ligne, retire cet "automatisme".
Tu te retrouves toujours avec "somme de A31 à A71". la ligne A72 est
"fantôme" en quelque sorte.
A quoi bon ajouter une ligne si elle "n'existe pas" pour les autres cellules??
D'où ma demande pour savoir si qq'un peut modifier la macro tapée dans mon
1er message.
J'espère avoir bien répondu à ta question, en attendant que qq'un puisse
répondre à la mienne (Merci d'avance!).
A+!
-----------------------------------------------------------------bonjour,
ne suis pas sur d'avoir tout compris. Est-ce que une formule doit
additionner des valeurs de l'ensemble de cellules précédentes ?
A+
-------------------------------------------------------------------------------------Bonjour tout le monde,
Utilisateur d'Excel2000 sur Windows XP, j'ai un problème avec la macro
"NouvelleLigneEnDessous" de Jacky.
J'ai réussi à la placer et à l'éxécuter, elle marche super bien hormis un
détail qui n'est pas négligeable.
Toutes les formules sont bien présentes sur la nouvelle ligne ajoutée, le
problème ce sont les autres lignes: leurs formules ne prennent pas en compte
les données de la ligne ajoutée (exemple pour une simple addition: la ligne
ajoutée est la n°72, l'addition se fait toujours de la ligne 31 à 71)
Je suis tout ce qu'il y a de plus novice en matière de macros et celle de
Jacky est trop complexe à mon niveau pour que j'arrive à "l'arranger".
Ci-dessous la macro dont il est question:
Sub NouvelleLigneEnDessous()
Dim ZtNumLig As Integer
Dim ZtDerCol As Integer
ActiveCell.Range("A2").EntireRow.Insert
ZtNumLig = ActiveCell.Row
ZtDerCol = ActiveCell.SpecialCells(xlCellTypeLastCell).Column
Range(Cells(ZtNumLig, 1), Cells(ZtNumLig, ZtDerCol)).Copy _
Range(Cells(ZtNumLig + 1, 1), Cells(ZtNumLig + 1, ZtDerCol))
Application.ScreenUpdating = False
For i = 1 To ZtDerCol
If Not Cells(ZtNumLig + 1, i).HasFormula Then
Cells(ZtNumLig + 1, i).ClearContents
End If
Next i
ActiveCell.Range("A2").Select
End Sub
Jacky, (N°1021)
Pouvez-vous m'aider svp?
Merci d'avance!!
Salut!
Euh ben je ne vois pas comment l'expliquer autrement.. si tu m'expliquais ce
que tu ne comprends pas exactement?
Si c'est juste l'exemple de l'addition qui pose problème c'est pas grave
j'en prends un autre :
Admettons que tu dises: je veux que la cellule C36 affiche ce qu'il y a dans
la cellule juste au-dessus, tu mets la formule "Ã5" dans C36 et ça marche.
Maintenant si tu executes la macro de Jacky et que tu insères une ligne
entre C35 et C36 alors C36 se décale et devient C37.
Eh bien tu verras que C37 se réfère encore à C35 alors qu'en temps normal
(sans la macro) la formule aurait dû se modifier d'elle-même et donner
"Ã6"!!!
C'est là tout le problème de cette macro. Quelque chose a été tapé qui lui
fait ignorer cette "propriété du décalage"...
Il suffirait je pense de la modifier légèrement mais je n'en ai pas le niveau.
Tu peux m'aider stp?
Ma demande reste biensûr ouverte à quiconque aura une solution.
Merci d'avance! :)
A+!
--------------------------------------------------------------------------------
re,
je ne comprends toujours pas. Si tu veux, envoie un exemple sur ma BAL perso
anonymousA@wandoo.fr
A+
Bonjour anonymousA,
Je vais reprendre l'exemple dont j'avais parlé.
Sans cette macro installée :
Tu as une cellule (ex: A74) où apparait la somme des valeurs contenues dans
les cellules A31 jusqu'à A71.
Tu insères une ligne. Tout se décale ok mais tu t'aperçois que A74 prend
désormais aussi en compte A72. C'est automatique.
La macro installée, si elle permet bien de garder les formules du dessus
dans la nouvelle ligne, retire cet "automatisme".
Tu te retrouves toujours avec "somme de A31 à A71". la ligne A72 est
"fantôme" en quelque sorte.
A quoi bon ajouter une ligne si elle "n'existe pas" pour les autres cellules??
D'où ma demande pour savoir si qq'un peut modifier la macro tapée dans mon
1er message.
J'espère avoir bien répondu à ta question, en attendant que qq'un puisse
répondre à la mienne (Merci d'avance!).
A+!
-----------------------------------------------------------------
bonjour,
ne suis pas sur d'avoir tout compris. Est-ce que une formule doit
additionner des valeurs de l'ensemble de cellules précédentes ?
A+
-------------------------------------------------------------------------------------
Bonjour tout le monde,
Utilisateur d'Excel2000 sur Windows XP, j'ai un problème avec la macro
"NouvelleLigneEnDessous" de Jacky.
J'ai réussi à la placer et à l'éxécuter, elle marche super bien hormis un
détail qui n'est pas négligeable.
Toutes les formules sont bien présentes sur la nouvelle ligne ajoutée, le
problème ce sont les autres lignes: leurs formules ne prennent pas en compte
les données de la ligne ajoutée (exemple pour une simple addition: la ligne
ajoutée est la n°72, l'addition se fait toujours de la ligne 31 à 71)
Je suis tout ce qu'il y a de plus novice en matière de macros et celle de
Jacky est trop complexe à mon niveau pour que j'arrive à "l'arranger".
Ci-dessous la macro dont il est question:
Sub NouvelleLigneEnDessous()
Dim ZtNumLig As Integer
Dim ZtDerCol As Integer
ActiveCell.Range("A2").EntireRow.Insert
ZtNumLig = ActiveCell.Row
ZtDerCol = ActiveCell.SpecialCells(xlCellTypeLastCell).Column
Range(Cells(ZtNumLig, 1), Cells(ZtNumLig, ZtDerCol)).Copy _
Range(Cells(ZtNumLig + 1, 1), Cells(ZtNumLig + 1, ZtDerCol))
Application.ScreenUpdating = False
For i = 1 To ZtDerCol
If Not Cells(ZtNumLig + 1, i).HasFormula Then
Cells(ZtNumLig + 1, i).ClearContents
End If
Next i
ActiveCell.Range("A2").Select
End Sub
Jacky, (N°1021)
Pouvez-vous m'aider svp?
Merci d'avance!!
Salut!
Euh ben je ne vois pas comment l'expliquer autrement.. si tu m'expliquais ce
que tu ne comprends pas exactement?
Si c'est juste l'exemple de l'addition qui pose problème c'est pas grave
j'en prends un autre :
Admettons que tu dises: je veux que la cellule C36 affiche ce qu'il y a dans
la cellule juste au-dessus, tu mets la formule "Ã5" dans C36 et ça marche.
Maintenant si tu executes la macro de Jacky et que tu insères une ligne
entre C35 et C36 alors C36 se décale et devient C37.
Eh bien tu verras que C37 se réfère encore à C35 alors qu'en temps normal
(sans la macro) la formule aurait dû se modifier d'elle-même et donner
"Ã6"!!!
C'est là tout le problème de cette macro. Quelque chose a été tapé qui lui
fait ignorer cette "propriété du décalage"...
Il suffirait je pense de la modifier légèrement mais je n'en ai pas le niveau.
Tu peux m'aider stp?
Ma demande reste biensûr ouverte à quiconque aura une solution.
Merci d'avance! :)
A+!
--------------------------------------------------------------------------------re,
je ne comprends toujours pas. Si tu veux, envoie un exemple sur ma BAL perso
A+Bonjour anonymousA,
Je vais reprendre l'exemple dont j'avais parlé.
Sans cette macro installée :
Tu as une cellule (ex: A74) où apparait la somme des valeurs contenues dans
les cellules A31 jusqu'à A71.
Tu insères une ligne. Tout se décale ok mais tu t'aperçois que A74 prend
désormais aussi en compte A72. C'est automatique.
La macro installée, si elle permet bien de garder les formules du dessus
dans la nouvelle ligne, retire cet "automatisme".
Tu te retrouves toujours avec "somme de A31 à A71". la ligne A72 est
"fantôme" en quelque sorte.
A quoi bon ajouter une ligne si elle "n'existe pas" pour les autres cellules??
D'où ma demande pour savoir si qq'un peut modifier la macro tapée dans mon
1er message.
J'espère avoir bien répondu à ta question, en attendant que qq'un puisse
répondre à la mienne (Merci d'avance!).
A+!
-----------------------------------------------------------------bonjour,
ne suis pas sur d'avoir tout compris. Est-ce que une formule doit
additionner des valeurs de l'ensemble de cellules précédentes ?
A+
-------------------------------------------------------------------------------------Bonjour tout le monde,
Utilisateur d'Excel2000 sur Windows XP, j'ai un problème avec la macro
"NouvelleLigneEnDessous" de Jacky.
J'ai réussi à la placer et à l'éxécuter, elle marche super bien hormis un
détail qui n'est pas négligeable.
Toutes les formules sont bien présentes sur la nouvelle ligne ajoutée, le
problème ce sont les autres lignes: leurs formules ne prennent pas en compte
les données de la ligne ajoutée (exemple pour une simple addition: la ligne
ajoutée est la n°72, l'addition se fait toujours de la ligne 31 à 71)
Je suis tout ce qu'il y a de plus novice en matière de macros et celle de
Jacky est trop complexe à mon niveau pour que j'arrive à "l'arranger".
Ci-dessous la macro dont il est question:
Sub NouvelleLigneEnDessous()
Dim ZtNumLig As Integer
Dim ZtDerCol As Integer
ActiveCell.Range("A2").EntireRow.Insert
ZtNumLig = ActiveCell.Row
ZtDerCol = ActiveCell.SpecialCells(xlCellTypeLastCell).Column
Range(Cells(ZtNumLig, 1), Cells(ZtNumLig, ZtDerCol)).Copy _
Range(Cells(ZtNumLig + 1, 1), Cells(ZtNumLig + 1, ZtDerCol))
Application.ScreenUpdating = False
For i = 1 To ZtDerCol
If Not Cells(ZtNumLig + 1, i).HasFormula Then
Cells(ZtNumLig + 1, i).ClearContents
End If
Next i
ActiveCell.Range("A2").Select
End Sub
Jacky, (N°1021)
Pouvez-vous m'aider svp?
Merci d'avance!!
