rechercher valeures cellules fusionnées

S

Softmama

XLDnaute Accro

• 11 Avril 2013

• #2

Re : rechercher valeures cellules fusionnées

Bonjour,

Pas très pratique cette histoire de cellules fusionnées. Du coup, compliqué de trouver une formule adaptée.
J'ai réglé ton souci (voir déjà si je l'ai bien compris...) à l'aide d'une macro. Vois si cela peut t'aider :

VB:

Private Sub Worksheet_Activate()
Dim c As Range, d As Range
Set c = Range("A5")
Do While c <> ""
  Set d = Feuil1.Cells.Find(what:=c, LookIn:=xlValues, lookat:=xlWhole)
  Set e = d.Offset(, -1)
  Do While e = "": Set e = e.Offset(-1): Loop
  c.Offset(, 1) = e
  Set d = d.Offset(1)
  Do While d = ""
    Set d = d.Offset(1)
    If d.Row > Application.Max(Feuil1.Range("A10000").End(xlUp).Row, Feuil1.Range("B10000").End(xlUp).Row) Then Exit Do
  Loop
  Set e = d.Offset(IIf(d.Offset(-1) = "", -1, 0), -1)
  Do While e = "": Set e = e.Offset(-1): Loop
  c.Offset(, 2) = e
  Set c = c.Offset(1)
Loop
End Sub

cf. fichier joint

 

Pièces jointes

• plan1.xls

  959 KB · Affichages: 40
• plan1.xls

  959 KB · Affichages: 48
• plan1.xls

  959 KB · Affichages: 44

Vote positif 0 Vote négatif

O

olivier70160

Guest

• 11 Avril 2013

• #3

Re : rechercher valeures cellules fusionnées

Tout d'abord un grand merci ,
petite question : je ne pratique pas les macros, comment la récupérer
afin de la coller dans mon ancien tableau?

 

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 11 Avril 2013

• #4

Re : rechercher valeures cellules fusionnées

bonjour,

tu la trouveras dans l'éditeur de macros : alt + F11, cliquer sur l'objet Feuil2 : 2013.

 

Vote positif 0 Vote négatif

O

olivier70160

Guest

• 12 Avril 2013

• #5

Re : rechercher valeures cellules fusionnées

Bonjour
j'ai essayé hier soir jusqu'à minuit sans
succès en plus je dois travailler sur 2 fichiers

serait il possible d'ajouter les 3 carrés grisés après les carrés vert ?

Merci pour votre aide

 

Pièces jointes

• VERIF PROD PRESSE 2013.xls

  93 KB · Affichages: 25
• prod2013.xls

  309 KB · Affichages: 29
• VERIF PROD PRESSE 2013.xls

  93 KB · Affichages: 26
• prod2013.xls

  309 KB · Affichages: 31
• VERIF PROD PRESSE 2013.xls

  93 KB · Affichages: 21
• prod2013.xls

  309 KB · Affichages: 27

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 12 Avril 2013

• #6

Re : rechercher valeures cellules fusionnées

Bonjour,

en effet, ça devient nettement plus compliqué. Ton fichier source n'est pas structuré de façon logique : sur plusieurs colonnes, avec la colonne Date qui ne se trouve pas au même décalage par rapport à la colonne BT... C'est un beau bazar pour s'y retrouver et la macro devient vite une usine à gaz.

J'ai néanmoins pu je pense répondre à ta demande, vois les 2 fichiers joints : j'ai ajouté 2 colonnes de début et fin de période que j'utilise dans la mise en forme conditionnelle du diagramme après. La macro se lance automatiquement dès l'ouverture du fichier Prod 2013 : elle ouvre l'autre fichier, pompe les infos dedans et le referme. Il faut impérativement que les 2 fichiers se trouvent dans le même répertoire pour qu'elle fonctionne correctement.

 

Pièces jointes

• prod2013.xls

  322 KB · Affichages: 23
• VERIF PROD PRESSE 2013.xls

  93 KB · Affichages: 26
• prod2013.xls

  322 KB · Affichages: 33
• VERIF PROD PRESSE 2013.xls

  93 KB · Affichages: 31
• prod2013.xls

  322 KB · Affichages: 33
• VERIF PROD PRESSE 2013.xls

  93 KB · Affichages: 30

Vote positif 0 Vote négatif

O

olivier70160

Guest

• 16 Avril 2013

• #7

Re : rechercher valeures cellules fusionnées

Encore merci
ca marche nickel ,tu m'as donné envie de me mettre au vba
est-il possible de préciser la feuille concernée (avril13) dans l'éditeur de macro car je dois créer une feuille par mois
dans le dossier "verif prod presse 2013"
Merci

 

Vote positif 0 Vote négatif