Macro

benou -  
gbinforme Messages postés 15481 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
Je dois gerer plusieurs piece pour plusieurs moteurs differents sur une meme feuille excel
J'ai un tableau, avec plusieurs colonnes a renseigner
J'aimerai que losqu'un opérateur renseigne toute une ligne, cela crée automatiquement une nouvelle ligne juste en dessous de la précédente pour pouvoir saisir une nouvelle pièce pou le même moteur.

Moteur type numero piece manquant
456 7 32221 ecrou 1
234 4 456 joint 1

Voici le tableau
Pour etre plus clair quand l'opérateur à renseigné le moteur, son numéro, son type, et son manquant et qu'il valide sa saisie ( entrer ou changer de case )
La macro insére une nouvelle ligne avec le même moteur, le même numéro, le même type, mais que les cases piece et manquants restent a saisir.

J'espere que j'ai été assez clair

Merci d'avance
A voir également:

1 réponse

gbinforme Messages postés 15481 Date d'inscription   Statut Contributeur Dernière intervention   4 730
 
bonjour

Avec une macro événementielle cela devrait fonctionner :
Private Sub Worksheet_Change(ByVal sel As Range)
If sel.Column = 5 And sel.Count = 1 Then
    Cells(sel.Row, 1).Resize(1, 3).Copy Destination:=Cells(sel.Row + 1, 1)
    Cells(sel.Row + 1, 4).Select
End If
End Sub

Pour changer de moteur faudra effacer ?
0