Discussion :

[flobox]

Bonsoir,

situation simple ?

je souhaite copié des cellules d'une feuille à l'autre sans avoir de "0" et sans utiliser la formule A1=D23 ....

Je pensais en VBA mais il faut que se sois compatible avec One drive !!!!

j'ai donc besoin de copier la cellule D23 de la feuille ESSAI-1 vers la cellule K8 de la feuille TRANSFERTS INFOS.

Si une personne pouvais m’écrire le code VBA pour cette cellule cela m'aiderai beaucoup, il m'en restera que 149 derrière, mais surtout il me faut un exemple qui marche, moi j'ai tenter mais en vain ...

je transferts le fichierADMIN2018 - Copie.xlsm

Merci beaucoup

[parmi]

Bonjour,

j'irais ainsi

Code :

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

1
2
Sheets("ESSAI-1").range("D23").Copy
Sheets("TRANSFERTS INFOS").Range("K8").PasteSpecial xlpastevalues

[flobox]

juste poser comme ça sans

SUB ""

END SUB""

je connais pas du tout le VBA

merci

[Transitoire]

Bonjour, pardon de m'immiscer mais c'est un code soit à inclure dans un code existant au bon endroit, soit si il doit fonctionner seul évidemment avec Sub..... etc:

Code :

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

1
2
3
4
Sub Test()
Sheets("ESSAI-1").range("D23").Copy
Sheets("TRANSFERTS INFOS").Range("K8").PasteSpecial xlpastevalues
End Sub

Cordialement

[Transitoire]

Re,
Comme je pense que vous allez le demander, ci-dessous Code pour copie plusieurs formules. A adapter bien évidemment.

Code :

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

1
2
3
4
5
6
Sub Test1()
For Each c In Worksheets("Feuil1").Range("D23:D25") 'Range à adapter au nombre de cellules, ainsi que le nom des feuilles
    NumRow = NumRow + 1
    Worksheets("Feuil2").Cells(NumRow + 7, "K").Value = c.Value
Next c
End Sub

Cordialement

[Menhir]

je connais pas du tout le VBA

Dans ce cas, il serait utile que tu en apprennes au moins les bases avant de te lancer dans l'usage d'une macro.
http://bidou.developpez.com/article/VBA/

[jowest]

Code :

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

=SI('ESSAI-1'!D23="";"";'ESSAI-1'!D23)

salut, j'ai trouvé ça sans utiliser de VBA (que je ne maitrise pas d'ailleurs)

[flobox]

merci a tous ça marche nickel !!