Macro pour faire copier coller

  • Initiateur de la discussion Initiateur de la discussion katial
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

katial

XLDnaute Nouveau
Bonjour,
Tout d'abords je remercie toute personne qui prendra la peine de lire ce message.
Je tien à préciser que ej ne suis pas du tout douée en macro 🙁
voila je présente mon problème:

J'ai fait un début de macro:

'je sélectionne la case b2 puis je la copie

Range("b2").Select
Application.CutCopyMode = False
Selection.Copy
'je change de feuille ou la je la colle
'un calcul sur cette feuille se fait automatiquement

Windows("Etude mutation.xls").Activate
Range("$P$10").Select
ActiveSheet.Paste
'je copie sur cette même feuille l'ensemble des résultats
Range("$J$20:$J$60").Select
Application.CutCopyMode = False
Selection.Copy
'je retourne dans ma feuille d'origine ou je copie les résultats a partir de la cellule b3
Windows("transfo sous chargés.xls").Activate
Range("b3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

le problème est que je veux que ces calcul se fasse pour c2, d2,e2... jusqu'à la cellule ?2 soit vide
et que les résultats se colle respectivement en c3,d3,e3,... .


Je vous remercie par avance
 
Re : Macro pour faire copier coller

Bonjour Katial et bienvenue sur Excel Download

Il serait sympa de mettre un fichier exemple avec les macros ci dessus...
Pour connaitre la dernière cellule vide:
derlig=range("a65536").end(xlup).row
dercol = Range("iv1").End(xlToLeft).Column

donc une boucle for lig=1 to derlig ou for col=1 to dercol...
pour une boucle il est plus facile d'utiliser cells(ligne,colonne) qui fait la même chose que range...
A+ François
 
Re : Macro pour faire copier coller

Bonjour



Si tu essayes comme cela,il se passe quoi ?
Code:
Sub test()
[COLOR=lime]'je change de feuille ou la je la colle
'un calcul sur cette feuille se fait automatiquement[/COLOR]
Range("b2").Copy WorkBooks("Etude mutation.xls").Range("$P$10")
[COLOR=lime]'je copie sur cette même feuille l'ensemble des résultats[/COLOR]
 WorkBooks("Etude mutation.xls").Range("$J$20:$J$60").Copy
[COLOR=Lime]'je retourne dans ma feuille d'origine ou je copie les résultats a partir de la cellule b3[/COLOR]
Workbooks("transfo sous chargés.xls").Activate
    Range("b3").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
End Sub
 
Dernière édition:
Re : Macro pour faire copier coller

merci françois de m'avoir répondu aussi vite,

0,00% 1,00% 2,00%
0
1
2
3
4
...
En fait mon tableau se présente comme ça en quelque sorte
je copie le pourcentage que j'exporte un calcul se fait et je récupère les données qui vont remplir à la colonne 0,00% les lignes 0,1,2,3,4,...
ensuite il faut que ej fasse la même chose pour 1,00%. et ainsi de suite jusqu'à 100%.
j'espère que c'est un peu plus explicite.
 
Re : Macro pour faire copier coller

Re


Code:
Sub test()
Workbooks("[COLOR=Blue][B]NOMClasseurACTIF.xls[/B][/COLOR]").Sheets("[B][COLOR=Blue]Feuil1[/COLOR][/B]").Range("b2").Copy _
Workbooks("Etude mutation.xls").Sheets("[COLOR=Blue][B]Feuil2"[/B][/COLOR]).Range("$P$10")
End Sub

En remplaçant les mots en bleu par les valeurs adéquates, cela doit fonctionner

(J'ai testé )
 
Re : Macro pour faire copier coller

je vien de cahnger les données comme tu me l'as indiqué
donc ça n'affiche plus de message d'erreur mais çe ne fait rien de ce que ej veux à l'origine
je ne vois pas de valeur copiées et collées
je dois mal m'y prendre ...
 
Re : Macro pour faire copier coller

RE



Comme l'indiquait précédemment fanfan38, joins deux fichiers exemples
(sans données confidentielles) , zippes*-les, puis poste les ici.

* clic-droit sur fichier Excel -> Envoyer vers--> Dossiers compressés

(Options avancées/Gérer les pièces jointes)
 
Re : Macro pour faire copier coller

A partir de ton message j'ai pu refaire en beaucoup plus court le message que j'avais à l'origine.Merci

voici ma macro:

Sub test()
Workbooks("transfo sous chargés.xls").Sheets("Feuil1").Range("b2").Copy _
Workbooks("Etude mutation.xls").Sheets("Etude de mutation de transfo").Range("$P$10")

Workbooks("Etude mutation.xls").Sheets("Etude de mutation de transfo").Range("$j$20:$j$60").Copy _
Workbooks("transfo sous chargés.xls").Sheets("Feuil1").Range("b3")

End Sub

mais comment je peux faire pour que ça réalise la même action sur toutes les colonnes?
 
Re : Macro pour faire copier coller

Re




Le café est bu


Voici une proposition (testée)
Code:
Sub katmacro_staple1600()
Application.ScreenUpdating = False
Dim i As Long
For i = 0 To 100

With Workbooks("ex- Etude mutation.xls").Sheets("Etude de mutation de transfo")
[COLOR=Blue]     .Range("$P$10").Value = i /100[/COLOR] '[B] modifée en edition[/B]
    .Calculate
    .Range("$J$20:$J$60").Copy
End With
Workbooks("ex- transfo sous chargés.xls").Sheets("Feuil1").Cells(3, i + 2).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Next i
Application.ScreenUpdating = True
End Sub
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
455
Réponses
17
Affichages
867
Réponses
3
Affichages
431
Retour