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 : 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
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.