Remplacement d'une valeur fixe par la valeur d'une cellule

Version imprimable

Bonjour,

Je souhaiterai ameliorer la petite macro ci dessous:

Code:

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.

Bonsoir,

Code:

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

14/04/2008, 16h35
fring

Bonjour,

Un truc du style ?

Code:

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

ou

Code:

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

:question:
14/04/2008, 16h45
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.

Ben

Code:

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

14/04/2008, 17h21
zeralium
Merci Jean Pierre,

Mais ca bug aux lignes:
Code:

1 2 Sheets(B).Select Sheets(B).Range("A2").Insert Shift:=xlDown
14/04/2008, 17h25
Jean-Pierre49

Tu a bien une feuille qui s'appelle U015??
14/04/2008, 17h26
zeralium

Oui j'ai une feuille qui s'appelle U015.

Chez moi pas de problème

test

Code:

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
                  Range(Cells(a, 1), Cells(a, 12)).Copy
                  Windows("Test gestion IO.xls").Activate
                  Sheets(B).Range("A2").Insert Shift:=xlDown
                  Application.CutCopyMode = False
                  End If
                  a = a + 1
                  Windows("Reference.xls").Activate
                  Sheets("Liste IO").Select
            Wend

15/04/2008, 09h20
zeralium

Salut Jean Pierre,

Ca marche aussi, desolé pour hier apres midi.

Merci pour ton aide.