Discussion :

[Dubbleu]

Bonjour à tous

Je travaille actuellement sur un EXCEL et je suis confronté à un petit soucis.
Sur une première feuille j'ai des produits avec plusieurs informations (sur chaque ligne) et sur une deuxième feuille, j'ai certains produits de la première feuille avec d'autres infos.

Je souhaiterais mettre en place une macro pour ajouter sur la deuxième feuille des infos de la première feuille.

Pour resumer
Sur ma feuille1 j'ai les noms de mes produits en colonne E
Sur ma feuille2 les noms de produit sont en colonne A.
Je voudrais, uniquement pour les produit présent sur la feuille 2, copier à chaque fois le contenu de la case Q (feuille1) dans la case C (feuille2)

Juste un petit soucis qui s'ajoute. sur ma feuille2 j'ai des cellules fusionnées (pour un produit en colonne A, j'ai plusieurs lignes en colonne B) je ne sais pas si c'est génant

Dites moi si je ne suis pas assez clair...
Merci d'avance

[Philippe Tulliez]

Bonjour,

Pour resumer
Sur ma feuille1 j'ai les noms de mes produits en colonne E
Sur ma feuille2 les noms de produit sont en colonne A.
Je voudrais, uniquement pour les produit présent sur la feuille 2, copier à chaque fois le contenu de la case Q (feuille1) dans la case C (feuille2)

Si c'est pour exporter des données suivant critères et seulement certains champs, le filtre avancé peut apporter une bonne solution.
Un tutoriel à lire sur le sujet Les filtres avancés ou élaborés dans Excel

Juste un petit soucis qui s'ajoute. sur ma feuille2 j'ai des cellules fusionnées (pour un produit en colonne A, j'ai plusieurs lignes en colonne B) je ne sais pas si c'est génant

On ne peut pas vraiment dire que c'est un petit souci et pour paraphraser les Dupond & Dupont, je dirais même plus....

[Dubbleu]

Pour les cellules fusionnées, je peux régler le problème (en copiant à chaque fois le nom du produit).

J'ai déjà bien regardé les filtre mais je n'ai pas réussi à trouver une solution... (c'est un EXCEL assez monstrueux en fait)
Je me suis dis qu'une macros serait plus simple.
En gros

si celluleX1_feuil2 = celluleY1_feuil1
alors copier celluleQ1_feuil1 dans celluleC1_feuil2

[casefayere]

c'est un EXCEL assez monstrueux en fait

C'est quoi un excel monstrueux, un fichier avec beaucoup de données ?, une version excel datant de Jésus Christ ?, il n'est pas beau ?

[Dubbleu]

Un EXCEL avec beaucoup beaucoup de données
en version 2010 (et c'est vrai qu'il est moche mais ca c'est pas grave)

[casefayere]

Si tu règles le problème des cellules fusionnées et ensuite tu envoies un fichier exemple raccourci, bien sur, j'aurai peut-être le temps d'y regarder ce soir, qui dit beaucoup de données nécessite souvent de passer par des variables tableau

[Dubbleu]

Voila pour te donner une idée. c'est bon pour les cellules fusionnées de mon coté du coup les reférence apparaissent plusieurs fois sur la page deux (ce n'est pas génant si le texte est reporté plusieurs fois)

NB les chiffres a reporter sont issus d'une fonction

[Philippe Tulliez]

Bonjour,
Si le but de la fusion est de na pas visualiser les cellules doubles, il suffit de faire une mise en forme conditionnelle sur la plage A2:Ax avec comme formule =A1=A2 et choisir la police avec couleur blanche

[casefayere]

En attendant, brut de brut, essayes ce code que tu prendras le soin d'améliorer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub exemple()
Dim tbl1, tbl2, x As Long, Dl As Long, y As Long
With Sheets("Feuil1")
  Dl = .Range("E" & .Rows.Count).End(xlUp).Row
  tbl1 = .Range("E2:Q" & Dl)
End With
With Sheets("Feuil2")
  Dl = .Range("A" & .Rows.Count).End(xlUp).Row
  tbl2 = .Range("A2:C" & Dl)
  For x = 1 To UBound(tbl1)
    For y = 1 To UBound(tbl2)
      If tbl1(x, 1) = tbl2(y, 1) Then
        tbl2(y, 3) = tbl1(x, 13)
      End If
    Next y
  Next x
  .Range("A2:C" & Dl).ClearContents
  .Range("A2").Resize(UBound(tbl2), 3) = tbl2
End With
End Sub

[Dubbleu]

impeccable, j'ai réussi à integrer ce petit bout dans mon code global et ca marche !!

merci beaucoup