Sinon passer 6 lignes en VBA sur excel 2016

Version imprimable

Bonjour, bonjour,

Alors voici une partie de mon programme:
Code:

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:

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

Merci d'avance pour votre aide

05/07/2017, 16h21
Menhir

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

Code:

If bn Is Nothing Then Set bn = bb.Cells(16, 1)
05/07/2017, 16h26
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 ...
05/07/2017, 16h34
scuti

Citation:

Envoyé par 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 ...

Oui c'est ça
05/07/2017, 16h36
scuti

Citation:

Envoyé par Menhir

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

Code:

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

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

Code:

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:

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

Perso, je conseille d'éviter les GoTo.

Code:

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"

06/07/2017, 10h06
scuti

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