Sujet Précédent Sujet Suivant

Transférer données Excel d'une Feuille à une autre

Résolu/Fermé
miathan Messages postés 8 Date d'inscription jeudi 16 mai 2013 Statut Membre Dernière intervention 18 mai 2013 - 16 mai 2013 à 16:04
scinarf Messages postés 1119 Date d'inscription samedi 18 novembre 2006 Statut Membre Dernière intervention 25 septembre 2014 - 23 mai 2013 à 16:41
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
A voir également:

1 réponse

Réponse 1 / 1
scinarf Messages postés 1119 Date d'inscription samedi 18 novembre 2006 Statut Membre Dernière intervention 25 septembre 2014 252
23 mai 2013 à 16:41
"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.
0