Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Copie sur une autre feuille

Copie sur une autre feuille

2 réponses
Avatar
BubbleYum
Bonjour =E0 tous,

On m'a dit que vous pourriez m'aider =E0 trouver une=20
solution...

Voici mon probl=E8me:
Dans la feuille1
j'ai dans la cellule A1 le texte: oui
dans la cellule c1 le chiffre: 9
et dans les cellules a5:d3 des nombres de 10 =E0 99.

j'aimerais cr=E9er un bouton sur la feuille1 qui=20
s'intitulerais "Ajouter" et qui me copierais le r=E9sultat=20
dans la feuille2

J'aimerais dans le feuille2 obtenir le r=E9sultat suivant:
En A1: oui
En B1: 9
En c1 et les suivantes: les nombres de a5:d3 de la feuille1


Merci de votre aide,

BublleYum
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
isabelle
bonjour BublleYum,

Sub Macro1()
Sheets("Feuil2").Cells(1, 1) = Sheets("Feuil1").[A1]
Sheets("Feuil2").Cells(1, 2) = Sheets("Feuil1").[C1]
For Each c In Sheets("Feuil1").Range("A3:D5")
x = x + 1
Sheets("Feuil2").Cells(1, x + 2) = c
Next
End Sub

isabelle


Bonjour à tous,

On m'a dit que vous pourriez m'aider à trouver une
solution...

Voici mon problème:
Dans la feuille1
j'ai dans la cellule A1 le texte: oui
dans la cellule c1 le chiffre: 9
et dans les cellules a5:d3 des nombres de 10 à 99.

j'aimerais créer un bouton sur la feuille1 qui
s'intitulerais "Ajouter" et qui me copierais le résultat
dans la feuille2

J'aimerais dans le feuille2 obtenir le résultat suivant:
En A1: oui
En B1: 9
En c1 et les suivantes: les nombres de a5:d3 de la feuille1

Merci de votre aide,

BublleYum


Avatar
BubbleYum
Merci Isabelle,

c'est SUPER!!!!


BubbleYum
-----Message d'origine-----
bonjour BublleYum,

Sub Macro1()
Sheets("Feuil2").Cells(1, 1) = Sheets("Feuil1").[A1]
Sheets("Feuil2").Cells(1, 2) = Sheets("Feuil1").[C1]
For Each c In Sheets("Feuil1").Range("A3:D5")
x = x + 1
Sheets("Feuil2").Cells(1, x + 2) = c
Next
End Sub

isabelle


Bonjour à tous,

On m'a dit que vous pourriez m'aider à trouver une
solution...

Voici mon problème:
Dans la feuille1
j'ai dans la cellule A1 le texte: oui
dans la cellule c1 le chiffre: 9
et dans les cellules a5:d3 des nombres de 10 à 99.

j'aimerais créer un bouton sur la feuille1 qui
s'intitulerais "Ajouter" et qui me copierais le résultat
dans la feuille2

J'aimerais dans le feuille2 obtenir le résultat suivant:
En A1: oui
En B1: 9
En c1 et les suivantes: les nombres de a5:d3 de la
feuille1



Merci de votre aide,

BublleYum
.