transfert de données + alerte visuelle

tactic6 à dit:

Bonsoir le forum
j'essaie mais en vain de créer un code qui me permette de recopier des données en fonction du code article (CONTRAT1 , CONTRAT2)
Dans ma feuille "SAISIE" je voudrais en cliquant sur un bouton, transférer des informations sur une autre feuille si un des deux code article nommé ci-dessus ont été saisit et y ajouter un indicateur visuel
Je vous joint un petit fichier qui j'espère vous expliquera mieux que moi le résultat espéré

Merci

Cliquez pour agrandir...

Private Sub CommandButton1_Click()
    Sheets("Contrat").Select
    derl = Sheets("Contrat").Range("a65536").End(xlUp).Row + 1
    With Sheets("Contrat")
        .Cells(derl, 1).Value = "Contrat :" & Sheets("Saisie").[c12].Value
        .Cells(derl, 2).Value = Sheets("Saisie").[h5].Value
        .Cells(derl, 3).Value = Sheets("Saisie").[I6].Value
        .Cells(derl, 4).Value = Sheets("Saisie").[G10].Value
        'MsgBox Sheets("Contrat").Cells(derl, 2).Value
        .Cells(derl, 5).Value = DateSerial(Year(Sheets("Contrat").Cells(derl, 2)), Month(Sheets("Contrat").Cells(derl, 2)) + 6, Day(Sheets("Contrat").Cells(derl, 2)))
    End With
End Sub

tactic6 à dit:

Re
de retour pour dire que ça ne marche pas
il faudrait que la macro détecte si il y a écrit "CONTRAT1" ou "contrat2" dans la plage "B15:B39" et si oui recopier les valeurs souhaitées dans la feuille "contrat"
Désolé de ne pas avoir été clair dans mon 1er post
Merci

Cliquez pour agrandir...

gilbert_RGI à dit:

faire un if pour vérification

Cliquez pour agrandir...

tactic6 à dit:

C'est pas que je veuille du travail mâché mais
Désolé mais je ne sais vraiment pas faire

Cliquez pour agrandir...