VBA - Macro qui copie des données d'une case dans une autre

Bonjour,

Ma version d'excel c'est :Excel 2010

Quand j'ai un soucis, je trouve d'habitude la solution à mon problème parmi les discussions déjà ouvertes, mais là je suis coincé.
Je pense que je n'arrive pas à formuler mon problème clairement, c'est pour ça que j'ouvre une discussion, pour pouvoir l'expliquer plus en détail.

Je souhaite copier les données d'une case dans une autre .... je m'explique

J'ai un fichier client avec une colonne pour le n° du devis, une pour le nom du contact, une pour l'adresse de facturation, une pour l'adresse du chantier .... et je voudrais que lorsque l'on remplisse la cellule de l'adresse de facturation, la cellule de l'adresse du chantier se remplisse automatiquement en reprenant ce que nous avons noté dans l'adresse de facturation (je voudrais que ça reprenne le texte et non pas avoir une formule qui copie l'information.
Ainsi, quand on rempli les données, si les deux adresses sont identique, quand on rempli l'adresse de facturation, ça rempli l'adresse du chantier, et si les adresses sont différentes, on saisi l'adresse de facturation et on modifie les info dans la cellule de l'adresse de chantier ....

Je sais pas si j'ai été clair ...

Je vous remercie d'avance si vous pouvez m'aider. :):):)

Bonjour, j'ai résolu ce problème avec des OnKeys, lorsque j'arrive sur la cellule concernant l'adresse du chantier, si c'est la même, je la valide vide et une macro la remplit automatiquement avec l'adresse du client et passe à la cellule suivante sinon, je remplis l'adresse du chantier et la macro me passe à la cellule d'après en laissant le texte saisie manuellement. Je ne sais si j'ai été très clair?
ci dessous exemple:

Code:

---

1 2 3 4 5 6 7 8

Sub test() If ActiveCell.Value = "" Then ActiveCell.Value = ActiveCell.Offset(0, -5).Value ' (0, -5) est donné pour exemple et dépend du nombre de cellule séparant les données recherchées. ActiveCell.Offset(0, 1).Select Else ActiveCell.Offset(0, 1).Select End If End Sub

---

Cordialement 8-)

Bonjour,

Je te remercie pour ta réponse, mais je n'arrive pas à faire fonctionner ta macro.
Si j'ai tout bien compris: je note une info en A1, quand je valide F1 sans rien y noter, la macro devrait noter les infos de A1 dans F1.

Mais rien ne se passe ....

j'ai trouvé ce code sur le forum qui Affiche la date en colonne 3 lorsque la colonne 2 est modifiée

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Change(ByVal Target As Range)   If Target.Column = 2 Then Cells(Target.Row, 3).Value = Now End If   End Sub

---

mais j'arrive pas à le modifier pour qu'au lieu de noter la date, il note les infos d'une autre colonne

Bonjour,

Transitoire,
Evite les Select et autres ActiveCell

maxitaz,
Borne tout code reporté par les balises #.
Il n'en sera que plus lisible

Personnellement, pour une meilleure lecture du code, je teste une condition contraire pour sortir de suite de la procédure

Code:

---

If Target.Column <> 2 Then Exit Sub

---

Pour répondre à ta question.
Procède d'abord à une formulation sur le tableur.
Essaie ensuite de l'adapter dans la procédure VBA
- soit en utilisant les fonctions natives d'Excel

Code:

---

Application.WorksheetFunction.VLookup

---

- soit en effectuant la formulation, elle-même suivie d'un collage de valeurs

Code:

---

1 2 3 4

With Worksheets("larange") .Formula = "...." .Value = .Value End With

---

Je me répète. C'est d'abord le tableur qui doit retourner le résultat. VBA interviendra en aval.

Bonjour
@Maxitaz, ma macro ne comprend pas l'automatisme, c'était juste pour faire comprendre le principe. il faudra faire ensuite l'automatisme soit par on keys soit par modification de la feuille, qui appellera la macro. Donc pour essayer, vous sélectionnez F1 et éxécutez la macro Test et vous comprendrez.
@MarcelG. Compte tenu du peu d'indications de l'arrivée des entrées de données etc etc, j'ai utilisé un morceau d'un vieux programme existant qui ma rendu de fier service durant une dizaine d'années, afin de faire comprendre le principe de ce que je tentais d'expliquer. ;)

Cordialement 8-)

Je vous remercie pour l'aide apportée

j'ai repris le code et je l'ai modifié

voilà ce que ça donne

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Change(ByVal Target As Range)   If Target.Column = 6 Then Cells(Target.Row, 8).Value = Cells(Target.Row, 6).Value End If   End Sub

---

Donc maintenant, quand je tape une valeur dans la colonne 6, ça reporte cette valeur dans la colonne 8

Merci,

Salut,

De rien.

2 petites remarques.
Un bloc

Code:

---

With Target

---

serait le bienvenu pour une meilleure lisibilité
En d'autres circonstances, je t'aurais conseillé d'attacher les objets Range (Cells) à la feuille parent.
Ici cette précaution n'est pas nécessaire du fait de la nature de l'évènement.

Bonjour,

Un petite remarque :
Target est la plage de cellules modifiées, donc pas toujours une cellule unique.
Par exemple dans le cas d'un copier/coller de C2:F6 vers C7, il y a 5 valeurs à mettre à jour et Target.column n'est pas égal à 6
J'aurais écrit :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range Dim r As Range Set r = Intersect(Target, Me.Columns("F")) If r Is Nothing Then Exit Sub Application.EnableEvents = False For Each c In r.Cells c.Offset(0, 2).Value = c.Value Next c Application.EnableEvents = True End Sub

---