Code vba avec recherche

[Rubis57]

Bonjour tout le monde,

dans mon fichier ci-joint, sur l’onglet « LIV », je souhaiterai , en cliquant sur le bouton « VALIDER LIVRAISON », qu’il copie la date se trouvant dans « E2 » de cet onglet ,et la place dans l’onglet « CDE » en colonne « D » sur la ligne correspondante au N° de CDE qui se trouve en cellule « B3 » de l’onglet « LIV ».

Je vous Remercie d’avance.

Amicalement, Rubis
FICHIER RUBIS E1 2023.xlsx (12,6 Ko)

[FFO]

Bonjour

Ton fichier ci-joint adapté

Testes et dis moi

FICHIER RUBIS E1 2023.xlsm (19,5 Ko)

[Rubis57]

Bonjour FFO
Je regarde cela ce soir et je tiendrai informe.
Je suis sur la route.
A+ et Merci

[Jacquinot_WILL-FREAD]

Bonjour,
Voici ce que j’ai trouvé :

Sub valider()
'la recherche est basé sur le numéro cde
Dim num As Range
Dim livraison As Date
Dim num_cde As Variant
num_cde = Range("b2").Offset(1, 0).Value
livraison = Range("b2").Offset(0, 3).Value
Sheets("CDE").Select
For Each num In Range(Range("b2"), Range("b2").End(xlDown))
If num = num_cde Then
num.Offset(0, 2) = livraison
End If
Next
Sheets("liv").Select
End Sub

FICHIER RUBIS E1 2023.xlsm (22,8 Ko)

Cordialement
Will-Fread

[Rubis57]

Bonsoir FFO,

testé, fonctionne comme voulu et placé dans mon fichier.
Merci pour ton aide sur ce sujet.

A bientôt.

Amicalement Rubis

[FFO]

Merci pour ce retour
Ravi de t avoir aidé et satisfait
Au plaisir une prochaine fois

[Rubis57]

Bonsoir WILL-FREAD

Merci pour ta proposition, je la garderai sous le coude.

A bientôt
Amicalement Rubis