Select case mal utilisé

Version imprimable

Bonjour à tous,
J'ai un bout de code qui fonctionne comme je veux mis à part la "sécurité" que je voudrais mettre en place...
Je copie des données d'un classeur j'ai utilisé select case je ne suis pas sûr de mon coup ... ce qui est sûr c'est que le message box qui suis et le exit sub ne fonctionne pas...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Set Wbdest = ThisWorkbook Set Wbsource = Workbooks("CC2011T.xlsx") Set pilote = Workbooks("CC2011T.xlsx").Worksheets("Pilote") pilote.Activate For ligne = 4 To 10000 If IsEmpty(Cells(ligne, 1)) Then Exit For Next ligne acop = ligne - 1 Select Case ligne Case ligne = 4 MsgBox ("Il n'y a pas de nouveaux devis") Exit Sub Case ligne > 4 End Select Set selection = Range(Cells(4, 1), Cells(acop, 48)) selection.Select selection.Cut
Le but est de ne pas couper les titres s'il n'y a pas de données à copier... à cause de

Code:

acop = ligne - 1

Du coup je voudrais sortir de la procédure avec une message box si ligne = 4 mais là c'est mal écrit manifestement.
Si quelqu'un a une idée, je suis preneur merci d'avance.

Bonjour,

Citation:

e qui est sûr c'est que le message box qui suis et le exit sub ne fonctionne pas...

Pourquoi?

Ce serait plus simple de tester si le tableau contient une ligne en début de traitement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Set Wbdest = ThisWorkbook
Set Wbsource = Workbooks("CC2011T.xlsx")
Set pilote = Workbooks("CC2011T.xlsx").Worksheets("Pilote")
pilote.Activate
 
if Pilote.Range("A4").Value = "" then
 MsgBox ("Il n'y a pas de nouveaux devis")
 Exit Sub
end if
 
    For ligne = 4 To 10000
    If IsEmpty(Cells(ligne, 1)) Then Exit For
    Next ligne
 
acop = ligne - 1
 
Set selection = Range(Cells(4, 1), Cells(acop, 48))
selection.Select
selection.Cut

09/01/2012, 16h34
tompom3108

C'est si compliqué de faire simple...
merci jfontaine