[VB / EXCEL] Copier une serie de cellule

Résolu

Barsky Messages postés 48 Statut Membre -
Barsky Messages postés 48 Statut Membre - 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

Configuration: Windows XP
Firefox 3.0.4

Afficher la suite

5 réponses

Réponse 1 / 5
Barsky Messages postés 48 Statut Membre 11

up
0
Réponse 2 / 5
Barsky Messages postés 48 Statut Membre 11

up
0
Réponse 3 / 5
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention 3 320

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
1. Barsky Messages postés 48 Statut Membre 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 48 Statut Membre 11

up
0
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question

Barsky Messages postés 48 Statut Membre 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

@++

Barsky Messages postés 48 Statut Membre 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

[VB / EXCEL] Copier une serie de cellule

5 réponses

Discussions similaires

Newsletters