Discussion :

[tomnacer]

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.

[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

Quentin

[tomnacer]

Les infos ne sont pas confidentielles.

Je ne sais pas par quoi commencer. J'ai aucun code à vous montrer...

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[tomnacer]

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 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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