Discussion :

[tompom3108]

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.

[jfontaine]

Bonjour,

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 :

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
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

[tompom3108]

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