Code pour me générer un numéro

Bonjour...Je cherche macro ou code pour me générer automatiquement (ou avec bouton) le numéro de la matricule qui se trouve dans la cellule B4 de la feuille "utilisateur" vers la colonne B de la feuille "Data"...et ce une fois qu'il y a les données de la colonne D à K de la même feuille (Data).

Voir pièce jointe (je ne veux pas mettre la fonction If )
Merci beaucoup

Bonjour,
Pourriez-vous envoyer le code sur lequel vous avez commencé à travailler ?


Mickamax

Bonjour,

Citation:

---

Envoyé par anareda

la cellule B4 de la feuille "utilisateur" vers la colonne B de la feuille "Data"...et ce une fois qu'il y a les données de la colonne D à K de la même feuille (Data).

---

Il doit manquer des informations qui ne sont que dans ta tête car sur quelle ligne et en fonction de quelles infos tu implémentes ton matricule ?

Citation:

---

Envoyé par anasecu

Bonjour,

Il doit manquer des informations qui ne sont que dans ta tête car sur quelle ligne et en fonction de quelles infos tu implémentes ton matricule ?

---

Bonjour
Une fois que la colonne D de la feuille Data contient des données


Mickamax

je n'ai rien commencé :)

Bonjour,

Citation:

---

Envoyé par anareda

Une fois que la colonne D de la feuille Data contient des données

---

Dans la feuille "Data" tu mets ce code

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Intersect(Target, [$D:$D]) Is Nothing Then Target.Offset(0, -2).Value = Sheets("Utilisateur").[B4].Value End If End Sub

---

attention au nom de la feuille car tu as une faute dans ton exemple "Utilsateur"

merci...oui j'ai corrigé le nom de la feuille
le code fonctionne uniquement si on remplie la cellule de la colonne D une par une...si on tape dans la cellule on tire vers le bas pour copier ça fonctionne pas...même chose si on fait un copier/coller des données vers le tableau

Citation:

---

Envoyé par anareda

le code fonctionne uniquement si on remplie la cellule de la colonne D une par une..

---

C'était voulu ainsi car c'est curieux que tous tes contrats aient le même numéro ? ;-)
.

Citation:

---

Envoyé par anareda

si on tape dans la cellule on tire vers le bas pour copier ça fonctionne pas...même chose si on fait un copier/coller des données vers le tableau

---

Pour cela tu modifies ainsi le code et cela fonctionne dans les 3 cas.

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_Change(ByVal Target As Range) Dim cel As Range If Not Intersect(Target, [$D:$D]) Is Nothing Then For Each cel In Target cel.Offset(0, -2).Value = Sheets("Utilisateur").[B4].Value Next End If End Sub

---