Discussion :

[zeralium]

Bonjour,

Je souhaiterai ameliorer la petite macro ci dessous:

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
Dim a As Integer
            a = 2
            Windows("Reference.xls").Activate
            Sheets("Liste IO").Select
            While Not Cells(a, 7) = ""
                  If Cells(a, 7) = "U015" Then
                  Sheets("Liste IO").Range(Sheets("Liste IO").Cells(a, 1), Sheets("Liste IO").Cells(a, 12)).Copy
                  Windows("Test gestion IO.xls").Activate
                  Sheets("U015").Select
                  Sheets("U015").Range("A2").Insert Shift:=xlDown
                  End If
                  a = a + 1
                  Windows("Reference.xls").Activate
                  Sheets("Liste IO").Select
            Wend

Je souhaiterai que la valeur "U015" rechercher à la ligne 6 de la macro soit remplacer par la valeur d'une cellule.

Par avance, merci.

[tomy7]

Bonsoir,

Code :

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

1
2
3
If Range("A1") = "U015" Then
                  Sheet1.Range("A1").Value = Sheet1.Range("C1").Value ' par exemple , adapte a ton code.
                  End If

cdt
tom

[fring]

Bonjour,

Un truc du style ?

Code :

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

If Cells(a, 7) = Cells(x, y) Then

ou

Code :

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

If Cells(a, 7) = Range(MaCellule) Then

[zeralium]

Merci pour vos reponses, mais je me suis peut etre mal expliqué.
En fait je souhaiterai mettre la valeur de cellule, en l'occurence "U015", dans une constante [par exemple B = Cells(1, 3)] pour pouvoir l'utiliser par la suite dans ma macro aux lignes 6, 9 et 10.

[Jean-Pierre49]

Ben

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
Dim a As Integer
Dim B As String
B = Cells(1, 3)
 
            a = 2
            Windows("Reference.xls").Activate
            Sheets("Liste IO").Select
            While Not Cells(a, 7) = ""
                  If Cells(a, 7) = B Then
                  Sheets("Liste IO").Range(Sheets("Liste IO").Cells(a, 1), Sheets("Liste IO").Cells(a, 12)).Copy
                  Windows("Test gestion IO.xls").Activate
                  Sheets(B).Select
                  Sheets(B).Range("A2").Insert Shift:=xlDown
                  End If
                  a = a + 1
                  Windows("Reference.xls").Activate
                  Sheets("Liste IO").Select
            Wend

[zeralium]

Merci Jean Pierre,

Mais ca bug aux lignes:

Code :

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

1
2
Sheets(B).Select
          Sheets(B).Range("A2").Insert Shift:=xlDown

[Jean-Pierre49]

Tu a bien une feuille qui s'appelle U015??