Transfert 1cellule d'une feuille a l'autre
Résolu/Fermé
glucoe
Messages postés
8
Date d'inscription
vendredi 8 février 2008
Statut
Membre
Dernière intervention
5 avril 2008
-
8 févr. 2008 à 11:58
glucoe Messages postés 8 Date d'inscription vendredi 8 février 2008 Statut Membre Dernière intervention 5 avril 2008 - 9 févr. 2008 à 13:44
glucoe Messages postés 8 Date d'inscription vendredi 8 février 2008 Statut Membre Dernière intervention 5 avril 2008 - 9 févr. 2008 à 13:44
A voir également:
- Transfert 1cellule d'une feuille a l'autre
- We transfert - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Supprimer une feuille word - Guide
- Web transfert - Télécharger - Téléchargement & Transfert
- Feuille a5 - Guide
6 réponses
dudu134
Messages postés
2828
Date d'inscription
samedi 18 novembre 2006
Statut
Membre
Dernière intervention
24 janvier 2009
608
8 févr. 2008 à 14:30
8 févr. 2008 à 14:30
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
glucoe
Messages postés
8
Date d'inscription
vendredi 8 février 2008
Statut
Membre
Dernière intervention
5 avril 2008
8 févr. 2008 à 21:46
8 févr. 2008 à 21:46
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.
eriiic
Messages postés
24571
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
19 mai 2024
7 217
8 févr. 2008 à 22:34
8 févr. 2008 à 22:34
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
glucoe
Messages postés
8
Date d'inscription
vendredi 8 février 2008
Statut
Membre
Dernière intervention
5 avril 2008
9 févr. 2008 à 09:56
9 févr. 2008 à 09:56
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
eriiic
Messages postés
24571
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
19 mai 2024
7 217
9 févr. 2008 à 10:13
9 févr. 2008 à 10:13
Oui bien sûr, sauf que c'est cells(ligne,colonne)
Worksheets("Feuil1").cells(1,1) = Worksheets("Feuil2").cells(3,2)
ligne et colonne peuvent être des variables
eric
Worksheets("Feuil1").cells(1,1) = Worksheets("Feuil2").cells(3,2)
ligne et colonne peuvent être des variables
eric
glucoe
Messages postés
8
Date d'inscription
vendredi 8 février 2008
Statut
Membre
Dernière intervention
5 avril 2008
9 févr. 2008 à 13:44
9 févr. 2008 à 13:44
Merci de ton aide, mais en codant de ta façon, le message "L'indice n'appartient pas à la sélection" QUESAKO?
jpaul
jpaul
