Discussion :

[seiryujay]

Bonjour,

Je fais une copie de la formule contenue dans une cellule via un drag and drop du coin inférieur droit de cette cellule. Voici le code correspondant :

Code :

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

1
2
3
4
 
Rows(NumRow).Select
Selection.Copy
Selection.Insert Shift:=xlDown

Tout se passe bien, sauf pour les cellules contenant une formule de la forme :

=1,1*1,2*[Data.xls]Facteur!$X35

(on est sur la 35ème ligne)

Dans ce cas-là, au lieu de faire la passer la formule à

=1,1*1,2*[Data.xls]Facteur!$X36

quand Excel la recopie dans la cellule de la ligne 36, et on reste avec X35.

Quelqu'un saurait pourquoi? Et comment contourner le problème simplement?
Pour l'instant, je fais ceci pour corriger le problème :

Code :

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

1
2
3
4
 
Cells(NumRow - 1, 2).Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range(Cells(NumRow - 1, 2), Cells(LastNumRow, 2)), Type:=xlFillDefault

Ca fonctionne, mais je me dis qu'il doit y avoir une option que j'ai oublié de spécifier et qui ferait ce qu'il faut automatiquement sans avoir à rajouter ce bout de code.

Merci d'avance.

[ouskel'n'or]

Effectivement, tu n'est pas obligé de sélectionner la cellule à copier

Code :

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

    Range("A1").AutoFill Destination:=Range("A1:A5"), Type:=xlFillDefault

Tu ajoutes le nom du classeur et de la feuille si nécessaire, c'est tout.
A+

[seiryujay]

Effectivement, mais ce n'était pas le but de ma question.

Ma question était pourquoi un copy associé à un insert ne se comporte pas avec les formules contenant des "!" comme avec les autres formules?

Avec une formule du style

A35+B35

ça donne

A36+B36

, alors qu'avec une formule contenant un "!", celle-ci n'est pas modifiée :

=SI(NBCAR('Data'!A33)>0;'Data'!A33;"")

reste

=SI(NBCAR('Data'!A33)>0;'Data'!A33;"")

...

[ouskel'n'or]

Non, si tu mets les formules telles que tu les indiques, le N° de ligne est incrémenté dans les deux cas quand tu les recopies vers le bas.
le "!" n'a rien à voir à l'histoire. Ce qui peut avoir une influence est la signification ou non de l'adresse de la cellule concernée, qui peut avoir 3 types et des mix de deux types

Code :

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

1
2
3
4
5
6
Set mc = Worksheets("Feuil1").Cells(1, 1)
MsgBox mc.Address()                              ' $A$1
MsgBox mc.Address(RowAbsolute:=False)         '$A1
MsgBox mc.Address(ColumnAbsolute:=False)         'A$1
MsgBox mc.Address(RowAbsolute:=False, ColumnAbsolute:=False)         ' A1
MsgBox mc.Address(ReferenceStyle:=xlR1C1)        ' L1C1

Bref, si tu conserves des adresses de lignes "absolues" (avec $) quand tu copies ta ligne, elle conserve son N°.
Re-bref, pour que tes lignes s'incrémentent en cas de copie, la formule doit être du type "A1" ou "$A1" et non "$A$1" ou "A$1"
Idem pour les colonnes.
Tu peux vérifier
A+

[seiryujay]

Attention! Je ne parle pas de recopie vers le bas, mais d'insertion d'une ligne copiée... (je m'a trompé dans le premier post )

Essaie de faire ça et tu verras ce qu'il se passe :
1) met dans les cases de la première colonne d'une feuille nommée "Data" le numéro de ligne
2) dans une seconde feuille du même classeur, rentre la formule suivante :

Code :

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

=SI(NBCAR('Data!$Axx)>0;'Data'!$Axx;"")

où xx représente le numéro de ligne
3) sélectionne la ligne 33
4) fais un copier
5) fais un clic droit sur la ligne sélectionnée et je clique sur le menu "Insérer les cellules copiées"

Résultat : en ligne 33 tu auras la fomule suivante :

Code :

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

=SI(NBCAR('Suivi Détaillé'!$A32)>0;'Suivi Détaillé'!$A32;"")

(A32 et non pas A33 comme je le voudrai) et dans les lignes suivantes tu auras les formules avec l'indice inférieur d'une unité au numéro de ligne.

Si tu fais la même chose avec une formule n'ayant pas de "!" (autrement dit ne faisant pas référence à une cellule d'une autre feuille), tu auras bien les bons indices...

[cafeine]

Hello,

j'ai fait ton test ...

le résultat me paraît évident, insérer un contenu copié revient à 2 opérations :
- déplacer la ligne courante vers le bas (il y a conservation des formules)
- coller la ligne en question

La ligne qui subit l'insertion voit logiquement ses indices décalés.

Toute insertion / décalage entraine une rupture dans la suite des indices ...

Que cherches-tu à faire, je n'ai sans doute pas bien compris.

En revanche si en cellule A1 je mets

Code :

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

=INDIRECT("data!$A" & LIGNE(B1))

Toute insertion ne décalera pas les indices ...