Discussion :

[anareda]

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

[Mickamax]

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


Mickamax

[anasecu]

Bonjour,

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 ?

[anareda]

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é

[anasecu]

Bonjour,

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

Dans la feuille "Data" tu mets ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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"

[anareda]

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

[anasecu]

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 ? ;-)
.

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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