Mise à jour liste

[papoow]

Bonjour le forum,

Un grand merci et bravo pour l'aide que vous m'apporter.
Je consulte réguliérement "les archives" et trouve souvent la solution rechercher.

Pour cette fois, je n'ai pas trouvé.

Je voudrais mettre à jour une base de donnée de 2 colonnes sur un onglet Source. La colonne A contient la référence, la colonne B contient la valeur à modifier.
je souhaite modifier la valeur (colonne B) associée a une référence à partir de l'onglet Travail.

 

[papoow]

C'est parti trop vite !

Bien entendu, Merci beaucoup pour votre aide

Cordialement Papoow

 

[Hervé]

bonjour papoow

essaye ceci :

Option Explicit
Public Sub papoow()
Dim plage As Range
Dim cel As Range
Set plage = Sheets("source").Range("a2:a16")
For Each cel In plage
If cel.Value = Sheets("travail").Range("a13") Then
cel.Offset(0, 1) = Sheets("travail").Range("d13")
End If
Next cel

End Sub

salut
Hervé

 

[Robert]

Salut Papoow, Hervé, le forum,

Sans grand intérêt puisque pratiquement à l'identique d'Hervé si ce n'est que j'ai placé la macro dans l'événement "Change" de l'onglet travail.

À plus,

Robert

 

[CHti160]

salut"papoow"
bonsoir aux participants
Bonsoir le "FORUM"
un petit fichier joint qui reprend le code de Hervé modifié
A voir
A+++
Jean Marie

 

[papoow]

Bonjour le forum,

Merci, à Hervé pour sa rapidité, la macro proposée fonctionne sur l'exemple, je le mets en place sur mon fichier "travail" et vous tiens informé.

Merci, à Robert et Jean Marie, pour le complément!
Je regarde cela et vous donne mes commentaires (Je vais en réunion...).

Cette fonction, "mise à jour de liste" va me servir sur plusieurs fichiers.

Un grand merci pour votre aide, j'apprends chaque jour à mieux utiliser Excel.

A bientôt

 

[papoow]

Bonjour le forum,

Robert, Jean Marie,

Ok, j'ai regardé vos propositions, approches différentes et/ou compléments aux codes d'Hervé !

Nickel, Merci,
Je n'hésiterai pas, à faire de nouveau appel à vous.

Bonne Soirée,

A bientôt sur ce super forum.

Papoow