Discussion :

[scuti]

Bonjour, bonjour,

Alors voici une partie de mon programme:

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
 <div style="margin-left:40px">   
    Dim bb As Worksheet
    Dim bn As Range
    Dim baa As Integer
    Sheets("ProductionParameters").Select
    Set bb = Worksheets("ProductionParameters")
    Set bn = bb.Rows(1).Find("Lampe N°2 (Mesure) - 1002", , xlValues, xlWhole)
    If bn Is Nothing Then Exit Sub
    baa = bn.Column
    Columns(baa).Select
    Selection.Copy
    Sheets("paramètres").Select
    Columns("AC:AC").Select
    ActiveSheet.Paste
 
    Sheets.Add After:=ActiveSheet
    Sheets("Feuil2").Select
    Sheets("Feuil2").Name = "x"
    Sheets("x").Select</div>

La ligne suivante me pose problème, je voudrais qu'au lieu de sortir du sub le code saute quelque ligne afin d'arriver ici à la ligne 16 afin de continuer le programme:

Code :

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

<div style="margin-left:40px">    If bn Is Nothing Then Exit Sub</div>

Merci d'avance pour votre aide

[Menhir]

Ta demande n'est pas claire mais je pense que ceci devrait faire ce que tu souhaites :

Code :

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

    If bn Is Nothing Then Set bn = bb.Cells(16, 1)

[jerome.vaussenat]

Salut Menhir,

je pense que scuti veux dire passe à la ligne 16 de son code VBA. ET non à la ligne 16 de sa feuille de calcul.

Mais je peux avoir mal compris ...

[scuti]

Salut Menhir,

je pense que scuti veux dire passe à la ligne 16 de son code VBA. ET non à la ligne 16 de sa feuille de calcul.

Mais je peux avoir mal compris ...

Oui c'est ça

[scuti]

Ta demande n'est pas claire mais je pense que ceci devrait faire ce que tu souhaites :

Code :

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

    If bn Is Nothing Then Set bn = bb.Cells(16, 1)

Bonjour menhir,

Comme l'as dit Jérôme je voudrais passer à la ligne 16 de mon code VBA

[Jean-Philippe André]

Dans ce cas, il faut utiliser la methode Goto
avant :

Code :

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

1
2
3
4
5
6
7
8
9
If bn Is Nothing Then Exit Sub
    baa = bn.Column
    Columns(baa).Select
    Selection.Copy
    Sheets("paramètres").Select
    Columns("AC:AC").Select
    ActiveSheet.Paste
 
    Sheets.Add After:=ActiveSheet

apres

Code :

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

1
2
3
4
5
6
7
8
9
If bn Is Nothing Then Goto SuiteForcee
    baa = bn.Column
    Columns(baa).Select
    Selection.Copy
    Sheets("paramètres").Select
    Columns("AC:AC").Select
    ActiveSheet.Paste
 SuiteForcee:
    Sheets.Add After:=ActiveSheet

[Menhir]

Perso, je conseille d'éviter les GoTo.

Code :

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

1
2
3
4
5
6
7
8
9
10
    Dim bb As Worksheet
    Dim bn As Range
    Set bb = Worksheets("ProductionParameters")
    Set bn = bb.Rows(1).Find("Lampe N°2 (Mesure) - 1002", , xlValues, xlWhole)
 
    If Not bn Is Nothing Then bn.Column.Copy Sheets("paramètres").Columns("AC:AC")
 
    Sheets.Add After:=ActiveSheet
    Sheets("Feuil2").Select
    Sheets("Feuil2").Name = "x"

[scuti]

Merci pour ta réponse Jean Philippe André cela fonctionne