Transférer données Excel d'une Feuille à une autre
Résolu
miathan
Messages postés
8
Date d'inscription
Statut
Membre
Dernière intervention
-
scinarf Messages postés 1119 Date d'inscription Statut Membre Dernière intervention -
scinarf Messages postés 1119 Date d'inscription Statut Membre Dernière intervention -
Bonjour tout le monde,
Je suis vraiment débutante en VBA mais j'ai réussi à voir des renseignements sur les forums.
Voici mon problème, dans Excel, je veux transférer des données de cellule (de la dernière ligne ou il y a une modification) de ma feuille 1 nommé Soumission (données dans colonne c, d, e, g, vers ma deuxième feuille nommé projet en cours (sur la ligne 7 colone c, d, h, k) et j'ai un bouton que je dois activer quand une soumission devient un contrat. Voici les info. que j'ai pour l'instant.
Sub Transferer_Donnees()
Feuil2.Cells(7, 3) = Feuil1.Cells(var_ligne, 3) 'Nom du projet
Feuil2.Cells(7, 4) = Feuil1.Cells(var_ligne, 4) 'type
Feuil2.Cells(7, 8) = Feuil1.Cells(var_ligne, 5) 'Montant
Feuil2.Cells(7, 11) = Feuil1.Cells(var_ligne, 7) 'Plan
End Sub
Pourriez-vous m'aider svp, ça fait longtemps que j'essaie d'y arriver.
Merci
Je suis vraiment débutante en VBA mais j'ai réussi à voir des renseignements sur les forums.
Voici mon problème, dans Excel, je veux transférer des données de cellule (de la dernière ligne ou il y a une modification) de ma feuille 1 nommé Soumission (données dans colonne c, d, e, g, vers ma deuxième feuille nommé projet en cours (sur la ligne 7 colone c, d, h, k) et j'ai un bouton que je dois activer quand une soumission devient un contrat. Voici les info. que j'ai pour l'instant.
Sub Transferer_Donnees()
Feuil2.Cells(7, 3) = Feuil1.Cells(var_ligne, 3) 'Nom du projet
Feuil2.Cells(7, 4) = Feuil1.Cells(var_ligne, 4) 'type
Feuil2.Cells(7, 8) = Feuil1.Cells(var_ligne, 5) 'Montant
Feuil2.Cells(7, 11) = Feuil1.Cells(var_ligne, 7) 'Plan
End Sub
Pourriez-vous m'aider svp, ça fait longtemps que j'essaie d'y arriver.
Merci
A voir également:
- Transférer données Excel d'une Feuille à une autre
- Déplacer une colonne excel - Guide
- Liste déroulante excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Trier des données excel - Guide
- Word et excel gratuit - Guide
1 réponse
"de la dernière ligne ou il y a une modification" -> La dernière ligne ou il y a modification est elle la dernière ligne de la feuille ? ou faut il la repérer ?
Si il s'agit de la dernière ligne non vide du classeur :
Dim i as integer
Dim ligneFin as integer
for i = 1 to 10000
if sheets(1).cells(i,1) = "" then ligneFin=i : end for 'Quitte la boucle for dès que la première ligne vide est 'trouvée
next i
Sheets(2).cells(7,3) = sheets(1).cells(i,3)
Sheets(2).cells(7,4) = sheets(1).cells(i,4)
Sheets(2).cells(7,8) = sheets(1).cells(i,5)
Sheets(2).cells(7,11) = sheets(1).cells(i,7)
Voila, je vois pas trop la ou vous bloquiez ...
PAr contre si il s'agit de trouver la dernière ligne changée la ca devient plus compliqué, donc j'attend que vous répondiez pour vous donner la marche à suivre.
Si il s'agit de la dernière ligne non vide du classeur :
Dim i as integer
Dim ligneFin as integer
for i = 1 to 10000
if sheets(1).cells(i,1) = "" then ligneFin=i : end for 'Quitte la boucle for dès que la première ligne vide est 'trouvée
next i
Sheets(2).cells(7,3) = sheets(1).cells(i,3)
Sheets(2).cells(7,4) = sheets(1).cells(i,4)
Sheets(2).cells(7,8) = sheets(1).cells(i,5)
Sheets(2).cells(7,11) = sheets(1).cells(i,7)
Voila, je vois pas trop la ou vous bloquiez ...
PAr contre si il s'agit de trouver la dernière ligne changée la ca devient plus compliqué, donc j'attend que vous répondiez pour vous donner la marche à suivre.