stephane.quinquis
XLDnaute Junior
Bonjour le forum,
Encore un autre post.
J'ai deux feuilles: inventaire production et mise en carton. L'opérateur est amené à transférer des données de l'inventaire production vers la mise en carton.
Je voudrais faire une gestion des erreurs de façon à ce que la macro fonctionne seulement si l'opérateur sélectionne une ligne entière( en gros que si par mégarde il ne sélectionne rien et sur une cellule cette cellule ne se copie pas).
Merci d'avance.
Inventaire production
Cijoint.fr - Service gratuit de dépôt de fichiers
Code:
Encore un autre post.
J'ai deux feuilles: inventaire production et mise en carton. L'opérateur est amené à transférer des données de l'inventaire production vers la mise en carton.
Je voudrais faire une gestion des erreurs de façon à ce que la macro fonctionne seulement si l'opérateur sélectionne une ligne entière( en gros que si par mégarde il ne sélectionne rien et sur une cellule cette cellule ne se copie pas).
Merci d'avance.
Inventaire production
Cijoint.fr - Service gratuit de dépôt de fichiers
Code:
Code:
Sub allerversmiseencarton()
'
' allerversmiseencarton Macro
' Macro enregistrée le 11/06/2010 par quinquis
'
ActiveSheet.Unprotect "293"
Sheets("Mise en carton").Unprotect "293"
With Selection
.Copy Destination:=Feuil2.Range("C65536").End(xlUp).Offset(1, 0)
.Delete
End With
Range("G7:G200").Select
Selection.Locked = False
ActiveSheet.Protect "293"
Sheets("Mise en carton").Protect "293"
End Sub