[VB / EXCEL] Copier une serie de cellule

Résolu/Fermé

Barsky Messages postés 45 Date d'inscription jeudi 20 novembre 2008 Statut Membre Dernière intervention 2 mars 2010 - 4 déc. 2008 à 19:00
Barsky Messages postés 45 Date d'inscription jeudi 20 novembre 2008 Statut Membre Dernière intervention 2 mars 2010 - 5 déc. 2008 à 16:11

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:

[VB / EXCEL] Copier une serie de cellule
Liste déroulante excel - Guide
Aller à la ligne dans une cellule excel - Guide
Verrouiller cellule excel - Guide
Copier une vidéo youtube - Guide
Excel cellule couleur si condition texte - Guide

5 réponses

Réponse 1 / 5

Barsky Messages postés 45 Date d'inscription jeudi 20 novembre 2008 Statut Membre Dernière intervention 2 mars 2010 11
4 déc. 2008 à 19:58

Réponse 2 / 5

Barsky Messages postés 45 Date d'inscription jeudi 20 novembre 2008 Statut Membre Dernière intervention 2 mars 2010 11
5 déc. 2008 à 07:24

Réponse 3 / 5

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
5 déc. 2008 à 09:45

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

Barsky Messages postés 45 Date d'inscription jeudi 20 novembre 2008 Statut Membre Dernière intervention 2 mars 2010 11
5 déc. 2008 à 13:32

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

Réponse 4 / 5

Barsky Messages postés 45 Date d'inscription jeudi 20 novembre 2008 Statut Membre Dernière intervention 2 mars 2010 11
5 déc. 2008 à 15:16

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 jeudi 20 novembre 2008 Statut Membre Dernière intervention 2 mars 2010 11
5 déc. 2008 à 15:55

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

@++

Barsky Messages postés 45 Date d'inscription jeudi 20 novembre 2008 Statut Membre Dernière intervention 2 mars 2010 11
5 déc. 2008 à 16: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

Discussions similaires

Dessiner avec son clavier et avec des lettres

Formule Excel : "SI" une cellule contient un mot, alors ?

Excel si cellule contient texte alors...

Discussions similaires

Newsletters