[VB / EXCEL] Copier une serie de cellule

Résolu
Barsky Messages postés 45 Date d'inscription   Statut Membre Dernière intervention   -  
Barsky Messages postés 45 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour à tous,

Sur une meme feuille Je cherche a copier une série de cellule en fonction de la valeur d'une autre cellule

j'explique un peu

en case C4 j'ai une liste (déroulante) d'agence (une 10ene)

en case B3 C3 D3 E3 F3 j'ai mis des noms générique assistante responsable commercial ETC.... (Feuille modele)

pour chacune des agences il y a des PC avec des noms différent que j ai mis dans d'autres cases et c est ces nom la que je voudrais voir apparaitre dans mes cases B3 C3 D3 ... 

If Range("C4").Value <> "Brest" Then

    Range("K2:M2").Select
    Selection.Copy
    Range("B7:D7").Select
    Range("D7").Activate
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("E11").Select
    End If


J'ai tenté ce code mais pour le moment il ne prend pas en compte mon IF car même avec le mot "sélectionner" (que j'ai par defaut dans cette cellule) à la place de Brest dans la case la macro me colle "K2:M2"

po cool

un petit coup de main ? merci d'avance
A voir également:

5 réponses

Réponse 1 / 5
Barsky Messages postés 45 Date d'inscription   Statut Membre Dernière intervention   11
 
up
0
Réponse 2 / 5
Barsky Messages postés 45 Date d'inscription   Statut Membre Dernière intervention   11
 
up
0
Réponse 3 / 5
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
bonjour,

ta demande est loin d'^tre claire, ce qui explique le silence...

Au besoin, mets un extrait de ton classeur sur
https://www.cjoint.com/
et colles le lien proposé dans ta réponse

quelqu'un alors pourra certainement t'aider.

Dans l'attente
0
Barsky Messages postés 45 Date d'inscription   Statut Membre Dernière intervention   11
 
je l'avoue j'ai un peu de mal a expliquer clairement :s

ici le lien du fichier que je souhaite modifier https://www.cjoint.com/?mfnAXYHGD8

En fait en fonction du nom de l'agence (ville), placé en cellule C4 dans une liste déroulante, je voudrais voir apparaitre les noms des P.C. cellule K2:M2 pour l agence X K3:M3 pour l'agence suivante ect... dans les cellule B7:G7

ça aidera peut être a mieux comprendre je l'espère.

Merci d'avance
0
Réponse 4 / 5
Barsky Messages postés 45 Date d'inscription   Statut Membre Dernière intervention   11
 
up
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
Barsky Messages postés 45 Date d'inscription   Statut Membre Dernière intervention   11
 
Je pense avoir trouvé un début de solution que je dois tester sur toutes les possibilités de ma liste

l'erreur viens de <> que j'ai mis alors que = semble mieux fonctionner

d'ou ma nouvelle ligne 

If Range("C4").Value = "Brest" Then 
    Range("K2:M2").Select
    Selection.Copy
    Range("B7:D7").Select
    Range("D7").Activate
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("E11").Select
    End If


Je finis mon test et viens confirmer ou non la solution

@++
0
Barsky Messages postés 45 Date d'inscription   Statut Membre Dernière intervention   11
  
Range("C4").Select
If Range("C4").Value = "BREST" Then
    Range("K2:M2").Select
    Selection.Copy
    Range("B7:D7").Select
    Range("D7").Activate
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
end if


Voila j'ai trouvé avec mon precedant post ca ne fonctionnait toujours pas j ai donc ajouté la 1ère commande 
Range("C4").Select


et la ça fonctionne
0

Discussions similaires

Retrouver le n° de série d'IDM.
gichu1951 -
bazfile -

9 réponses
Excel formule : savoir si une cellule contient partie texte
plunderer007 -
francois -

14 réponses