Transfert 1cellule d'une feuille a l'autre
Résolu
glucoe
Messages postés
8
Date d'inscription
Statut
Membre
Dernière intervention
-
glucoe Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
glucoe Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
Bonjour, à tous les EXCELlents (pas trop lents j'espère)solutioneurs!
Je veux copier une ou plusieurs cellules d'une feuille à une autre sans passer par "copier/coller" dans le même workbook!
Grand merci à tous.
Je veux copier une ou plusieurs cellules d'une feuille à une autre sans passer par "copier/coller" dans le même workbook!
Grand merci à tous.
A voir également:
- Transfert 1cellule d'une feuille a l'autre
- Bruler une feuille de laurier - Guide
- Comment supprimer une feuille sur word - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Comment imprimer en a5 sur une feuille a4 - Guide
- Whatsapp transfert discussion - Accueil - WhatsApp
6 réponses
Bonjour
essaye ce code :
Private Sub CommandButton1_Click() -> tu crée un bouton pour envoyer tes données
On Error GoTo fin
Range(Cells(3, 3), Cells(8, 3)).Copy _
Destination:=Worksheets(CStr(Cells(1, 2))).Cells(3, 4)
'Ce qui veut dire en clair :
'Si tu rencontres une erreur và à la balise fin:
'copie de la cellule ligne 3, colonne 4 (D3) à la cellule ligne 8, colonne 4 (D8) de la feuille 1
'vers l 'onglet dont le nom se trouve en ligne 1 colonne 2 (B1="feuille") et dans cet onglet à partir de la cellule ligne 3, colonne 4 (D3) de la feuille 2.
Moi dans b1 j'ai mis une liste déroulante avec le nom de toutes mes feuilles
si tu a un problème tu me le dis
essaye ce code :
Private Sub CommandButton1_Click() -> tu crée un bouton pour envoyer tes données
On Error GoTo fin
Range(Cells(3, 3), Cells(8, 3)).Copy _
Destination:=Worksheets(CStr(Cells(1, 2))).Cells(3, 4)
'Ce qui veut dire en clair :
'Si tu rencontres une erreur và à la balise fin:
'copie de la cellule ligne 3, colonne 4 (D3) à la cellule ligne 8, colonne 4 (D8) de la feuille 1
'vers l 'onglet dont le nom se trouve en ligne 1 colonne 2 (B1="feuille") et dans cet onglet à partir de la cellule ligne 3, colonne 4 (D3) de la feuille 2.
Moi dans b1 j'ai mis une liste déroulante avec le nom de toutes mes feuilles
si tu a un problème tu me le dis
Merci dudu134.Ton exemple me semble ne pas tout a fait correspondre a mon probleme. J'ai programmé sur excel il y a 10ans, depuis plus rien.J'ai pas mal oubié le langage vba.Toute feuille commence par une sub()...end,est-ce obligé?Si maintenant ma variable à déplacer est dans cette sub, puis-je encore l'extraire?.Il y a un ordre privat sub(),si je me souviens.Ne dois-je pas déclarer la variable avant privat sub()??? Un peu dans le brouillard! Je n'ai plus autant de neurones qu'avant, cqfd.Merci à toi de me donner encore un petit coup de main.
Bonne soirée.
Bonne soirée.
Bonsoir
ou sinon de façon plus courte :
Sub Copier()
Worksheets("Feuil1").[A1] = Worksheets("Feuil2").[B3]
End Sub
La cellule A1 de la feuille 1 prend la valeur de la cellule B3 de la feuille 2.
Ca te copie la valeur, si c'est une formule en B3 ça te copiera le résultat
Le sub et le end sub sont obligés oui, ça marque le début et la fin de la procédure.
Pour saisir une macro faire un clic-froit sur le nom de l'onglet de ta feuille et coller le code dans la fenetre de droite.
On peut aussi créer des macro dans un module (parfois c'est même nécessaire). On ajoute un module par le menu 'insertion / module'
eric
ou sinon de façon plus courte :
Sub Copier()
Worksheets("Feuil1").[A1] = Worksheets("Feuil2").[B3]
End Sub
La cellule A1 de la feuille 1 prend la valeur de la cellule B3 de la feuille 2.
Ca te copie la valeur, si c'est une formule en B3 ça te copiera le résultat
Le sub et le end sub sont obligés oui, ça marque le début et la fin de la procédure.
Pour saisir une macro faire un clic-froit sur le nom de l'onglet de ta feuille et coller le code dans la fenetre de droite.
On peut aussi créer des macro dans un module (parfois c'est même nécessaire). On ajoute un module par le menu 'insertion / module'
eric
merci ERIC, ta solution fonctionne mais est-il possible d'utiliser cell(col,ligne), ça m'arrangerait
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question