Copier coller en fonction de la valeur d'une colonnes

Bonjour Mes Monsieur

je viens encore vous rendre vite suite a mon problème

Chaque code site correspond un a département exemple

le code site F5 correspond au département 62

le code site F4 au département 59

le code site F3 au département 59/62

le code site A1 au département 80

le code site C1 au département 50/08/01

j'aimerais que lorsque je sélectionne les 5 codes site qu'il puisse apparaître les départements automatiquement

Il faut savoir que je dois traité plus de 300 codes site / jour

F5 62

F4 59

F3 59

A1 80

C1 50

Sub Formule()
    Dim nbLignes As Long

    nbLignes = Cells(Rows.Count, "A").End(xlUp).Row
    Range("D2:D" & nbLignes).Formula = "=RIGHT(B2, 2)"
End Sub

Merci encore de votre aide

Bonjour toutes et tous,

1/ on clic gauche sur le bouton GO

2/ avec l'aide de l'inputbox on sélectionne les cellules de la colonne A de la feuil1 (voir image 001)

3/ on valide par Ok

le code fait le reste automatiquement:

place dans la colonne C les choix sélectionnés et dans la colonne de droite fait référence aux départements

à remodeler car pas très propre mon code

Note : ne fonctionne que que pour 5 choix

crdlt,

André

Bonjour

Merci beaucoup pour la réponse et merci pour ce fichier

cela correspond a mes besoin

vraiment cool

Re

Je reviens vers toi car je me suis rendu compte

Que les départements doit être écrits dans les cellules a coté des codes sites pour que cela puisse fonctionnés

Le problème et que j'aimerais que cela ce fasse directement sans que les départements soit écrit dans les cellules

Merci encore de ton aide

Bonjour,

peux tu me dire ce que tu souhaites exactement (exemple en image si possible et/ou un exemple sur le classeur)

crdlt,

André

Re

Bien sur j'ai un classeur avec lequel je travaille justement

j’explique le principe quand tu clic sur le bouton zone il ajoute les codes sites dans les cellules zone

Moi ce que je veux une fois les codes sites écrit dans la zone c'est que les départements apparaissent dans les cellules dpt a coté automatique

merci infiniment

Bonjour toutes et tous

j'ai inversé 2 colonnes Dpt et zone

note: ne pas supprimer colonne K et L

ci-joint

crdlt,

André

Bonjour

Merci pour ton aide

j'ai bien fait le test

Lorsque je clic sur le bouton zone elles apparaisse bien dans les cellules

Mais lorsque je clic sur le bouton go ce qui apparaît dans la zone disparaît

1/ clic sur le bouton zone tout apparaît correctement

2/ ensuite clic sur le bouton go tout disparaît

Merci

je reste à votre disposition pour toute autre demande

Re,

bouton Go rectifié dans l'onglet test également

je n'arrive qu'à cela car formule me gêne dans colonne D pour ne prendre que les 2 derniers caractères de la Zone

ci-joint

Bonjour

Pense tu qu'une autre personne peut nous venir en aide ??

Encore Merci

Re,

djemol a écrit :

Bonjour

Pense tu qu'une autre personne peut nous venir en aide ??

Encore Merci

oui je pense que oui, car, je n'arrive pas à scinder la formule pour pouvoir récupérer la valeur de droite des terminaisons (zone) en D

car la colonne E :

=RECHERCHEV(D2;A2:B65000;2;FAUX)

macro:

 ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],RC[-4]:R[64998]C[-3],2,FALSE)"

inclure:

=RIGHT(E2; 2)

ne prendre que 2 caractères à droite : A1

re

vers qui je peux me tourner tu a une idée

merci

Re, bonjour toutes et tous,

après une bonne nuit reposante,

j'ai trouvé pour supprimer les caractères pour la zone

   ActiveCell = Right(ActiveCell, Len(ActiveCell) - 8)  ' ajouter

(fonctionnel pour les onglets test et En tête

ci-joint

crdlt,

André

Bonjour

Je te remercie d'avoir pris le temps pour trouver une solution

Mais hélas cela ne fonctionne toujours pas une erreur s'affiche dans les cellules zone le symbole #N/A

sur En Tête / test

merci

Re,

il faut cliquer sur le bouton go

1/ clic bouton go (le message demande de sélectionner 5 cellules)

2/ choisir dans la colonne A (Site)

exemple : choix sélectif de 3 sites

ce qui donne dans la zone de texte de l'inputbox ceci:

$A$6:$A$9

3/ on clic sur ok

et le code va placer automatiquement dans les colonnes : Dpt et site.

NOTE: après je ne sais pas si tu souhaites que le contenu des deux colonnes ' Dp't et 'Site' doivent s'ajouter ou s'effacer lorsqu'on clic sur le bouton go ?

crdlt,

André

Bonsoir André

le contenue dpt doit reste afficher une fois que l'on clic sur le bouton go

dans les dpt on devrais avoir les départements le problème et que cela fait un copier coller des codes site dans les cellules dpt

Merci