Copier cellule sur une autre cellule de la même feuille

GuillaumA

XLDnaute Occasionnel
Bonjour à tous,

Comme le nom du post l'indique, j'aimerai une macro qui puisse être utilisé sur un bouton (ou une cellule) avec laquelle je pourrai copier, mettons le texte de A1, sur la cellule A2.
La petite difficulté, si difficulté est, tiens au fait que les cellules à copier sont déja rempli par une formule allant chercher du texte sur une autre feuille.

Exemple d'une formule présente dans une des cellules à copier:
=SI('Feuil1'!D3="Oui";'Feuil4'!G3;"")
A noter que les formules dans les nombreuses autres cellules à copier sont équivalentes.

J'ai beau chercher par la rubrique Recherche du forum, les seuls macros disponibles sont trop compliqués (entre classeurs, ...) et j'aurai donc besoin de votre aide. :confused:

Merci de votre considération.

Cordialement,
Guillaume A.
 
Dernière édition:

tbft

XLDnaute Accro
Re : Copier cellule sur une autre cellule de la même feuille

Bonjour

serait il possible d'avoir un fichier exemple svp?

Il voudrait savoir si lorsque il y des formules on veut copier la formule , la valeur, la mise en forme...
 

GuillaumA

XLDnaute Occasionnel
Re : Copier cellule sur une autre cellule de la même feuille

Je veux juste copier le texte (donc la valeur) qui s'affiche et non la formule.
Mais en y repensant... Si la formule est copiée et qu'elle s'active directement, cela reviendra au même!
(Pas besoin de recopier la mise en forme, il n'y en a pas.)
 

GuillaumA

XLDnaute Occasionnel
Re : Copier cellule sur une autre cellule de la même feuille

Çà marche nickel !
J'étais sur que c'était tout simple :D
Sinon saurais-tu comment faire pour, si on re-clique sur le bouton (rattaché à la macro), faire disparaître le texte de C1 ?

Merci à toi tbft. Encore une fois...


Cordialement,
Guillaume A.
 

tbft

XLDnaute Accro
Re : Copier cellule sur une autre cellule de la même feuille

peut être avec

if worksheets("Feuill1").range("C1").value=worksheets ("Feuill1").range("A1").value then
worksheets("Feuill1").range("C1").value=""
else
worksheets("Feuill1").range("C1").value=worksheets ("Feuill1").range("A1").value
endif

??????
 

GuillaumA

XLDnaute Occasionnel
Re : Copier cellule sur une autre cellule de la même feuille

Çà marche nickel BIS !

Dis moi, recherches-tu un emploi ? ;)

Guillaume A.

PS: Et une macro générale précisant que ce qui se trouve dans la colonne A et qui est sur la même ligne que le bouton doit être copié dans la colonne C une ligne au dessus. C'est possible :p ? (car je viens de me rendre compte que je dois appliquer cette macro pour 90 cellules !!
 
Dernière édition:

GuillaumA

XLDnaute Occasionnel
Re : Copier cellule sur une autre cellule de la même feuille

Re-bonjour a toi tbft et bon réveil!

Ci-joint le fichier exemple remodelé et expliqué clairement et parfaitement!

Normalement, l'explication est béton cette fois ci!!!

Merci de ton suivie et bonne journée .

Cordialement,
Guillaume A.
 

Pièces jointes

  • ExempleCopierV2.xls
    34.5 KB · Affichages: 92
  • ExempleCopierV2.xls
    34.5 KB · Affichages: 91
  • ExempleCopierV2.xls
    34.5 KB · Affichages: 91

tbft

XLDnaute Accro
Re : Copier cellule sur une autre cellule de la même feuille

Bonjour

voici une version qui utilise l'événement beforedoubleclic pour faire la copie...

Dis moi ce que tu en penses....
 

Pièces jointes

  • ExempleCopierV2.xls
    42 KB · Affichages: 72
  • ExempleCopierV2.xls
    42 KB · Affichages: 77
  • ExempleCopierV2.xls
    42 KB · Affichages: 76

GuillaumA

XLDnaute Occasionnel
Re : Copier cellule sur une autre cellule de la même feuille

Je m'étais trompé dans ce que j'ai mis dans la feuille excel (pas la bonne macro d'exemple a suivre).
Je re-joint un fichier updaté
 

Pièces jointes

  • ExempleCopierV3.xls
    38 KB · Affichages: 74

Discussions similaires

Statistiques des forums

Discussions
312 236
Messages
2 086 477
Membres
103 230
dernier inscrit
herve42000