Transfert de valeur (Range, cells)

Bonjour,
Au lieu d'un copier coller de ma macro, je souhaiterai "transférer" les valeurs de feuille 1 à la feuille 2. J'ai essayé cela :

Code:

---

1 2	j = Feuil2.Range("C1").End(xlToRight).Column + 1 Feuil2.Range(Cells(1, j), Cells(100, j)) = Feuil1.Range(Cells(12, 2), Cells(100, 2))

---

J étant la dernière colonne vide.
Cette ligne ne fonctionne pas et je ne sais pas pourquoi

D'avance merci pour votre aide

Bonjour et bienvenue.

Citation:

---

Envoyé par azsdcv

Cette ligne ne fonctionne pas

---

Quel est le message d'erreur?

Bonjour,

petite remarque au passage, à priori les plages ne comportent pas le même nombre de lignes, 100 pour la 1ère et 89 pour la 2ème...

bonne jornée
@+

Bonjour,

Citation:

---

J étant la dernière colonne vide.

---

oui mais de la feuille 2 et de la colonne C
Vu le transfert effectué ensuite j'aurais mis feuille 1 colonne B

PPz

Bonjour tout le monde,

Le code ci-dessous marche
Reste à l'adapter a ton besoin

Code:

---

1 2 3 4 5

Sub aaaa() j = Feuil2.Range("A1").End(xlToRight).Column + 1 Feuil2.Columns(j).Value = Feuil1.Columns(1).Value   End Sub

---

J'espère que ca va pouvoir t'aider !
Bonne journée

Super cela fonctionne
J'ai cependant une autre question comment fait on pour transférer non pas une valeur (.value) mais une équation (. ????)

D'avance Merci

Bonjour à tous,

tu peux faire comme ceci pour les formules :

Code:

---

1 2 3 4

Sub aaaa() j = Sheets("Feuil2").Range("A1").End(xlToRight).Column + 1 Sheets("Feuil2").Columns(j) = Sheets("Feuil1").Columns(1).Formula End Sub

---

mais je préfère faire une boucle sur chaque cellule de la colonne sur mon ordi cela va plus vite:

Code:

---

1 2 3 4 5 6 7 8

Sub aaaa() j = Sheets("Feuil2").Range("A1").End(xlToRight).Column + 1   For i = 1 To Sheets("Feuil1").Range("A65000").End(xlUp).Row Sheets("Feuil2").Cells(i, j).Formula = Sheets("Feuil1").Cells(i, 1).Formula Next i   End Sub

---

mais par copier coller tu peux utiliser le PASTESPECIAL avec l'option "xlPasteFormulas" ou tu ne copiera que les formules;)

Rebonjour,

.formula fonctionne presque
Je m'explique : lorsque je teste ces lignes

Code:

---

1 2 3

For i = 155 To Feuil2.Range("C65000").End(xlUp).Row Feuil2.Cells(i, j).FormulaLocal = Feuil2.Cells(i, 3).FormulaLocal Next i

---

En exemple, je prend une des cellules située dans le périmètre de i
Cette formule :

Code:

---

=C41/(C99*C102*9,92)

---

dans la colonne j devient :

Code:

---

=C41/(C99*C102*9,92)

---

identique

Je souhaiterai qu'elle prenne la valeur de la colonne j
par exemple si j=v
L'équation deviendrai :

Code:

---

=V41/(V99*V102*9,92)

---

Merci

Slt,
pourquoi ne pas essayer comme je te l'ai dis plus haut avec un pastespecial qui donneras le résultat que tu attends?

un exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub test1() Application.ScreenUpdating = False 'recherche numéro de la dernière colonne vide j = Sheets("Feuil2").Cells.Find("*", , , , , xlPrevious).Column + 1   For i = 155 To Sheets(2).[C65000].End(xlUp).Row Sheets(2).Range("C" & i).Copy Sheets(2).Cells(i, j).PasteSpecial xlPasteFormulas Next i   Application.CutCopyMode = False 'j'enlève le cadre du copier coller Application.ScreenUpdating = True End Sub

---

ce code fait exactement ce que tu souhaites.....

je souhaiterai trouvé un autre moyen que le copier coller, la permutation de feuille durant l'exécution de la macro est gênante
a+

Citation:

---

je souhaiterai trouvé un autre moyen que le copier coller, la permutation de feuille durant l'exécution de la macro est gênante

---

???? j'avoue que je ne comprends pas avec le code donné précédemment tu n'y vois que du feu si je puis dire ;).
pour le tester j'ai mis ce code dans un bouton de commande sur feuil1 et aucun souci de permutation c instantané. revoici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

'j'empêche l'écran de clignoter pendant le déroulement de la macro Application.ScreenUpdating = False   'recherche numéro de la dernière colonne vide j = Sheets("Feuil2").Cells.Find("*", , , , , xlPrevious).Column + 1   For i = 1 To Sheets("feuil1").[C65000].End(xlUp).Row Sheets("feuil1").Range("C" & i).Copy Sheets("feuil2").Cells(i, j).PasteSpecial xlPasteFormulas Next i   Application.CutCopyMode = False 'j'enlève le cadre du copier coller Application.ScreenUpdating = True

---

Je pense que tu n'as que cette solution pour faire ce que tu souhaites.