Rebonjour les gens !
J'utilise la macro suivant qui :
- Efface les données de A1:S500 la feuille "Base J-1"
- Copie les données de J16:AB500 de la feuille "Saisie" vers la "Base J-1"
- Efface les données de J16:AB500 de la feuille "Saisie".
Je souhaiterais que si la cellule J16 de la feuille "Saisie" est vide, alors la macro ne s'effectue pas (enfin les effacements de données et copies), et un message apparait : "L'extraction ARPSON n'a pas été importée".
J'ai cherché et j'ai essayé en rajoutant ce code avant ma macro mais cela ne fonctionne pas car la macro se lance quand même :
Merci d'avance pour votre aide.
Cordialement,
Etn
J'utilise la macro suivant qui :
- Efface les données de A1:S500 la feuille "Base J-1"
- Copie les données de J16:AB500 de la feuille "Saisie" vers la "Base J-1"
- Efface les données de J16:AB500 de la feuille "Saisie".
Je souhaiterais que si la cellule J16 de la feuille "Saisie" est vide, alors la macro ne s'effectue pas (enfin les effacements de données et copies), et un message apparait : "L'extraction ARPSON n'a pas été importée".
Code:
Sub Dupliquer()
Sheets("Base J-1").Range("A1:S" & Sheets("Base J-1").Range("A500").End(xlUp).Row).ClearContents
Sheets("Saisie").Range("J16:AB" & Sheets("Saisie").Range("AB500").End(xlUp).Row).Copy Destination:=Sheets("Base J-1").Range("A1")
Sheets("Saisie").Range("J16:AB" & Sheets("Saisie").Range("AB500").End(xlUp).Row).ClearContents
End Sub
J'ai cherché et j'ai essayé en rajoutant ce code avant ma macro mais cela ne fonctionne pas car la macro se lance quand même :
Code:
If [J16] = "" Then
MsgBox "L'extraction ARPSON n'a pas été importée"
Cancel = True
End If
Merci d'avance pour votre aide.
Cordialement,
Etn
Dernière modification par un modérateur: