récuperation de données

M12

XLDnaute Accro

• 18 Janvier 2017

• #2

Bonjour
A Tester si j'ai bien compris

 

Pièces jointes

• test (20).xlsx

  16.5 KB · Affichages: 31

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 18 Janvier 2017

• #3

Bonjour,

et que devrait on trouver ? tu pouvais mettre les chiffres manuellement ça aiderait
P.

 

Vote positif 0 Vote négatif

P

philmaure

XLDnaute Impliqué

• 19 Janvier 2017

• #4

Bonjour à tous

Merci à M12 pour la solution concernant le second tableau.

Pour le 1er tableau j'ai colorié les données attendu et les ai copié dans la seconde feuille

Merci pour votre aide
Cdlt
Philmaure

 

Pièces jointes

• test.xlsx

  16.5 KB · Affichages: 24

Vote positif 0 Vote négatif

M12

XLDnaute Accro

• 19 Janvier 2017

• #5

Bonjour,

Avec l'autre tableau (les cellules de la feuille 1 ont été défusionnées pour le calcul)
en espèrant que la recherche se fasse toujours sur la colonne G de la feuille 1
sinon il faudrit une entête sur les colonnes pour savoir où chercher

 

Pièces jointes

• test.xlsx

  17 KB · Affichages: 27

Vote positif 0 Vote négatif

P

philmaure

XLDnaute Impliqué

• 19 Janvier 2017

• #6

re,

super. Un grand merci pour la solution
Bonne journée
Cdlt
Philmaure

 

Vote positif 0 Vote négatif

P

philmaure

XLDnaute Impliqué

• 20 Janvier 2017

• #7

Bonjour,

Je reviens ce jour avec le meme pb car je ne parviens pas à l'adapter à la vrai situation.

sur le fichier joint j'obtiens bien la première donnée de chaque pavé mai pas les suivantes et je ne trouve pas d'où provient le pb.

Merci pour votre aide

Cdlt
Philmaure

 

Pièces jointes

• TEST2.xls

  45.5 KB · Affichages: 21

Vote positif 0 Vote négatif

M12

XLDnaute Accro

• 20 Janvier 2017

• #8

Bonjour,
C'est normal, tu as des fusions de cellule

 

Pièces jointes

• TEST2.xls

  46 KB · Affichages: 22

Vote positif 0 Vote négatif

P

philmaure

XLDnaute Impliqué

• 20 Janvier 2017

• #9

bonjour M12

Un grand merci. Je cherche depuis hier soir !!

Bonne journée
Cdlt
Philmaure

 

Vote positif 0 Vote négatif

P

philmaure

XLDnaute Impliqué

• 20 Janvier 2017

• #10

re,

aurais tu une solution qui me permettrait de defusionner et de copie les valeur dans chaque cellule comme dans mon fichier joint ?

Merci
Cdlt
Philippe

 

Pièces jointes

• test3.xlsx

  8.5 KB · Affichages: 18

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 20 Janvier 2017

• #11

Bonjour,
avec ceci (à adapter un peu)

VB:

Sub defusion()
For Each zaza In ActiveSheet.UsedRange 'toute la feuille
  If zaza.MergeCells Then
  zaza.Interior.ColorIndex = 3 ' facultatif
  zaza.MergeCells = False
  End If
Next
End Sub

 

Vote positif 0 Vote négatif

P

philmaure

XLDnaute Impliqué

• 20 Janvier 2017

• #12

Bonjour Gosselien

Un grand merci. tout est ok avec ton code que j'ai adapté.

Bonne journée
Cdlt
Philmaure

 

Vote positif 0 Vote négatif

P

philmaure

XLDnaute Impliqué

• 20 Janvier 2017

• #13

Re bonjour,

sur le fichier joint pour lequel j'utilise la solution j'ai une erreur mais je ne parviens pas à trouver la solution

Merci pour votre aide
Cdlt
Philmaure

 

Pièces jointes

• TEST.xls

  45 KB · Affichages: 17

Vote positif 0 Vote négatif

P

philmaure

XLDnaute Impliqué

• 20 Janvier 2017

• #14

Re,

j'ai trouve. Le pb provient que je sélectionne des cellules qui contiennent des #DIV/0!

Cdlt
Philmaure

 

Vote positif 0 Vote négatif