transfert de données + alerte visuelle

[tactic6]

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

 

[gilbert_RGI]

Re : transfert de données + alerte visuelle

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

Bonjour;

un truc dans le genre

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

pour l'indicateur visuel faire une MEFC
😉

 

[tactic6]

Re : transfert de données + alerte visuelle

Merci pour ton aide j'adapte
Bonne soirée à tous

 

[tactic6]

Re : transfert de données + alerte visuelle

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

 

[gilbert_RGI]

Re : transfert de données + alerte visuelle

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

faire un if pour vérification

😉

j'ai mis une PJ plus haut qui n'englobe pas le if evidement

 

[tactic6]

Re : transfert de données + alerte visuelle

faire un if pour vérification

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

 

[gilbert_RGI]

Re : transfert de données + alerte visuelle

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

voilà

espérant que ce soit ça 😀

 

[tactic6]

Re : transfert de données + alerte visuelle

Merci c'est exactement ça
je vais voir comment tu as fait et essayer de comprendre

Cordialement