Macro VBA copié/collé de données

Version imprimable

Bonjour,

Je commence à codé en VBA et j'ai un petit code à faire mais je n'y arrive pas. J'ai donc besoin de votre aide svp :)

J'ai un classeur excel avec 2 feuilles. Je souhaite créer une feuille excel à partir de ces deux feuilles et copié/collée quelques données des deux feuilles.

1ère feuille

Définition de projet Désignation Société

B09X.030010 SNECMA - Batiment 12 - Banc 46ER B09X

2ème feuille

Ordre Désignation Société

B09X40013000 SAN VAL MAUBIE B09X

Dans la troisième feuille, il faudrait que ce soit dans ce genre :

Libellé Opération Type d'opération Code société Libellé mission

concaténation de l'ordre/la définition de projet avec la désignation Si ça vient de la 1ère feuille : travaux ou Si ça vient de la 2ème feuille : commercial Ici le code société (ici B09X) si c'est travaux alors on a cinq lignes (GPA/Conformité/Contentieux TRAVAUX/Prêt de Personnel/GPA–Passation Technique) ou si c'est commercial alors on a trois lignes (D.O./Décennale/Contentieux SAV)

Si vous pouvez m'aider svp :) Et si ce n'est pas claire je peux vous apporter des infos.

28/05/2015, 11h15
Quentin77170

Salut à toi, quand tu dis que tu n'y arrives pas, peux-tu nous dire ce qui te bloque ? Montre-nous ton code, que l'on puisse te guider :)

PS : fais attention à ce que les informations que tu écris ne soient pas confidentielles ! Je les trouve un peu trop détaillées :whistle2:

Quentin
28/05/2015, 11h28
tomnacer

Les infos ne sont pas confidentielles.

Je ne sais pas par quoi commencer. J'ai aucun code à vous montrer...
28/05/2015, 12h18
Quentin77170
Resalut,

Tu as plein de tutos sur ce site (et sur le net) :)

- Pour te donner quelques outils, sur l'éditeur VBA (ALT-F11), insère un module (insertion/module). Et dedans tu peux écrire tes macros.
-En ce qui concerne les macros
-Pour la commencer écrire : Sub Le_Nom_De_La_Macro()
-Pour la finir, écrire : End Sub

Ex :
Code:

1 2 3 4 5 6 Sub PremièreMacro() 'Ton code doit 'être écrit ici End Sub
Chaque ligne commençant par ' ou chaque fin de ligne à partir d'un ' n'est pas lue par VBA, il s'agit de commentaires uniquement utiles au développeur

Enfin, ce qui va te servir le plus : gérer les cellules Excel (Range, en VBA)

Donc en ce qui concerne les plages de cellules Excel :
- Pour les écrire dans le code :
-A1 = Range("A1")
-A2:$C4 = Range("A2:$C")
- Pour utiliser leurs propriétés, fonctions, méthodes, etc... juste marquer un point (.) à la fin de Range(...) :
- Pour sélectionner H7 : Range("H7").Select
- Pour passer sa police en gras : Range("H7").Font.Bold = True
- Pour copier H7 et la coller en G3 : Range("H7").Copy Destination:=Range("G3") (Tu peux également faire juste Range("H7").Copy et ensuite Range("G3").PasteSpecial)
etc

En ce qui concerne les pages, c'est pareil avec Sheets :
- Sélectionner la première page par son nom : Sheets("Feuil1").Select
- Renommer la 4ème page par son index : Sheets(4).Name = "Nouveau nom"
- Copier la range("A2:C4") de la deuxième feuille et la coller dans la 3ème feuille en A1 : Sheets(2).Range("A2:C4").Copy Destination:=Sheets(3).Range("A1")
- Pour ajouter une feuille en dernière position : Sheets.Add After:=Sheets(Sheets.Count)
Je pense que ça te fait déjà pas mal d'outils pour commencer !

Essaye et dis-nous ce qui ne va pas :)

Quentin

PS : pour lire le code, soit tu lis tout d'un coup avec F5 (ou le bouton lecture), soit en pas à pas avec F8 (une fois par ligne)

1 pièce(s) jointe(s)

J'ai un peu bossé sur cette macro.
J'ai un premier résultat qui n'est pas celui attendu.

J'arrive à copier des colonnes, les concaténer mais j'ai besoin de multiplier chaque lignes de ma nouvelles feuille Recap par 5 et affecter à chacune des lignes copiées une donnée (une ligne GPA, une ligne conformité....)
voir photo : Pièce jointe 179147
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 Sub Bouton1_Cliquer() Dim iTrav As Integer Dim iRecap As Integer Dim Trav As Worksheet Dim Recap As Worksheet Set Trav = Worksheets("Travaux") Set Recap = Worksheets("Recap") iRecap = 2 For iTrav = 2 To 150 Recap.Range("A" & iTrav) = Trav.Range("A" & iTrav) & "-" & Trav.Range("B" & iTrav) Recap.Range("B" & iTrav) = "2-Travaux" Recap.Range("C" & iTrav) = "B09X" Recap.Range("E" & iTrav) = "HAS-SAV" Next End Sub

Définition de projet	Désignation	Société
B09X.030010	SNECMA - Batiment 12 - Banc 46ER	B09X

Libellé Opération	Type d'opération	Code société	Libellé mission
concaténation de l'ordre/la définition de projet avec la désignation	Si ça vient de la 1ère feuille : travaux ou Si ça vient de la 2ème feuille : commercial	Ici le code société (ici B09X)	si c'est travaux alors on a cinq lignes (GPA/Conformité/Contentieux TRAVAUX/Prêt de Personnel/GPA–Passation Technique) ou si c'est commercial alors on a trois lignes (D.O./Décennale/Contentieux SAV)