Lorsque j'applique la macro suivante =E0 mon document les cellules E65
et G65, qui contiennent des formules, me renvoient un message d'erreur
"#REF!" pour la feuille 1 et chose similaire pour la feuille 2.
Voici le lien pour mon document:
http://cjoint.com/?hruxLk2NOt
Voici la macro en question:
Sub CC()
Feuil1.Select
With Feuil1
.Range("G38").Copy
.Range("G11").PasteSpecial Paste:=3DxlPasteValues
.Range("E13:I39").Delete Shift:=3DxlUp
.Range("R580:V605").Copy .Range("E580:I605")
.Range("A1").Select
End With
Feuil2.Select
With Feuil2
.Range("C19:H42").Delete Shift:=3DxlUp
.Range("P523:U545").Copy .Range("C523:H545")
.Range("A1").Select
End With
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
anonymousA
Bonjour,
sans visualiser ton document, le problème vient sans doute que tu supprimes des lignes avec lesquelles tes formules sont en connection.En conséquence, tu ne peux obtenir que #REF et c'est bien normal.
A+
wrote:
Bonjour,
Lorsque j'applique la macro suivante à mon document les cellules E65 et G65, qui contiennent des formules, me renvoient un message d'erreur "#REF!" pour la feuille 1 et chose similaire pour la feuille 2.
Voici le lien pour mon document: http://cjoint.com/?hruxLk2NOt
Voici la macro en question: Sub CC()
Feuil1.Select With Feuil1 .Range("G38").Copy .Range("G11").PasteSpecial Paste:=xlPasteValues .Range("E13:I39").Delete Shift:=xlUp .Range("R580:V605").Copy .Range("E580:I605") .Range("A1").Select End With
Feuil2.Select With Feuil2 .Range("C19:H42").Delete Shift:=xlUp .Range("P523:U545").Copy .Range("C523:H545") .Range("A1").Select End With
End Sub
Merci MP
Bonjour,
sans visualiser ton document, le problème vient sans doute que tu
supprimes des lignes avec lesquelles tes formules sont en connection.En
conséquence, tu ne peux obtenir que #REF et c'est bien normal.
A+
mboileau@hotmail.com wrote:
Bonjour,
Lorsque j'applique la macro suivante à mon document les cellules E65
et G65, qui contiennent des formules, me renvoient un message d'erreur
"#REF!" pour la feuille 1 et chose similaire pour la feuille 2.
Voici le lien pour mon document:
http://cjoint.com/?hruxLk2NOt
Voici la macro en question:
Sub CC()
Feuil1.Select
With Feuil1
.Range("G38").Copy
.Range("G11").PasteSpecial Paste:=xlPasteValues
.Range("E13:I39").Delete Shift:=xlUp
.Range("R580:V605").Copy .Range("E580:I605")
.Range("A1").Select
End With
Feuil2.Select
With Feuil2
.Range("C19:H42").Delete Shift:=xlUp
.Range("P523:U545").Copy .Range("C523:H545")
.Range("A1").Select
End With
sans visualiser ton document, le problème vient sans doute que tu supprimes des lignes avec lesquelles tes formules sont en connection.En conséquence, tu ne peux obtenir que #REF et c'est bien normal.
A+
wrote:
Bonjour,
Lorsque j'applique la macro suivante à mon document les cellules E65 et G65, qui contiennent des formules, me renvoient un message d'erreur "#REF!" pour la feuille 1 et chose similaire pour la feuille 2.
Voici le lien pour mon document: http://cjoint.com/?hruxLk2NOt
Voici la macro en question: Sub CC()
Feuil1.Select With Feuil1 .Range("G38").Copy .Range("G11").PasteSpecial Paste:=xlPasteValues .Range("E13:I39").Delete Shift:=xlUp .Range("R580:V605").Copy .Range("E580:I605") .Range("A1").Select End With
Feuil2.Select With Feuil2 .Range("C19:H42").Delete Shift:=xlUp .Range("P523:U545").Copy .Range("C523:H545") .Range("A1").Select End With
