Discussion :

[lele79]

Bonjour ou bonsoir a tous,

je suis nouveau dans le forum et je me permets de solliciter votre aide, merci d'avance.

Je ne suis pas famillier avec les langages de programmation, encore moins avec VB mais la je suis dans l'obligation de comprendre VB et de l'utiliser dans le cadre de mon travail.
Tous ce que je sais faire de VB c'est de faire des macros avec l'enregistreur macros.

Dans mon projet, je dois copier des elements contenus dans une colonne, apporter quelques changements et le coller dans une feuille d'un autre classeur.
voici-ci joints un exemple de ce que je veux faire:
- Je copier tous ce qui est dans la colonne A de la feuille 1, classeur 1, et je rajoute un "_x" (x represente en faite un mot qui sera la meme pour tous) et ensuite je les colles dans la feuille 1 du classeur 2. Et lors que je colle sur ce dernier il faut que les lignes se suivent l'un derriere l'autre.

voila, je ne sais si tous est clair mais n'hesiter a me solliciter pour plus d'info.

merci.

Lele79

[delphine35]

Je ne sais pas si c'est ce que tu veux (j'ai peut etre pas tout compris) :

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Sub lance()
 
Dim val1  As Integer
 
 
Set w1 = Worksheets(1)
Set w2 = Worksheets(2)
 
DerniereLigneRenseigné = w1.Cells(65000, 7).End(xlUp).Row
 
j = 1
 
For i = 2 To DerniereLigneRenseigné
 
    Set C1 = w1.Cells(i, 1)
 
    If C1.Value > "" Then
 
' Suite du traitement de la ligne précente de la feuille 2
 
        If j > 1 Then
            w2.Cells(j, 4).Value = w2.Cells(j, 4).Value & C1.Offset(-1, 6)
        End If
 
' Traitement de la nouvelle ligne de la feuille 2
 
        j = j + 1
 
        w2.Cells(j, 1).Value = C1 & "_x"
        w2.Cells(j, 2).Value = C1.Offset(0, 1)
        w2.Cells(j, 3).Value = C1.Offset(0, 5)
        w2.Cells(j, 4).Value = C1 & ":"
        val1 = C1.Offset(0, 2).Value - C1.Offset(0, 3).Value
        w2.Cells(j, 5).Value = val1
        w2.Cells(j, 6).Value = val1 / 2
 
    End If
 
Next i
 
'Derniere ligne
w2.Cells(j, 4).Value = w2.Cells(j, 4).Value & w1.Cells(i - 1, 7)
 
End Sub

[lele79]

Merci beaucoup Delphine!

c'est exactement ca que je veux faire!. Par contre je voudrai faire l'echange sur deux classeur differente.
copier colonnes et modif de la Feuille1, classeur1 => coller sur la feuille1 classeur 2 , en meme temps pourrais-je avoir une explication rapide sur chaque ligne de code, SVP!.

en vous remerciant ainsi que ce forum.

Cordialement,

Lele79

[lele79]

Bonjour delphine, j'ai change ca pour avoir ce que j'esperais.

Code :

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

1
2
Set w1 = Workbooks(1).Sheets(1)
Set w2 = Workbooks(2).Sheets(1)

Egalement, a chaque fois que je lance la macro, j'ai un message:

"Run-Time error'13'

qu'es ce que cela veux dire?

Cordialement,

Lele79