Recherche chronologique d'information de doublons

mintri

XLDnaute Occasionnel

• 6 Mars 2012

• #2

Re : Recherche chronologique d'information de doublons

Hello Squoltahthx94 (pas facile à écrire )

Essaye avec la macro suivante :


Sub recup()

Dim i As Long
Dim x As Long

Dim last As Long
last = Sheets("HD").Range("b15000").End(xlUp).Row + 1

Dim lastReporting As Long
lastReporting = Sheets("Reporting des interventions 120").Range("f15000").End(xlUp).Row + 1


For i = 1 To last

For x = lastReporting To 2 Step -1

If Sheets("Reporting des interventions 120").Cells(x, 6).Value = Sheets("HD").Cells(i, 2).Value Then
Sheets("HD").Cells(i, 13).Value = Sheets("reporting des interventions 120").Cells(x, 20).Value
Sheets("HD").Cells(i, 14).Value = Sheets("reporting des interventions 120").Cells(x, 21).Value

Exit For
End If

Next

Next



End Sub

 

Vote positif 0 Vote négatif

S

Squoltahthx94

XLDnaute Occasionnel

• 6 Mars 2012

• #3

Re : Recherche chronologique d'information de doublons

Ok je vais essayer

 

Vote positif 0 Vote négatif

mintri

XLDnaute Occasionnel

• 6 Mars 2012

• #4

Re : Recherche chronologique d'information de doublons

Petite note : remplacer 15 000 par la dernière ligne du classeur (1 048 576), j'avais mis 15 000 pour tester

 

Vote positif 0 Vote négatif

S

Squoltahthx94

XLDnaute Occasionnel

• 6 Mars 2012

• #5

Re : Recherche chronologique d'information de doublons

ça ne fonctionne pas j'essaye de l'intégrer à un bouton mais il n'y a aucun classement qui ce fait.. c'est bien une macro à déclencher ou bien je l'intègre sur le click d'un bouton??

 

Vote positif 0 Vote négatif

mintri

XLDnaute Occasionnel

• 6 Mars 2012

• #6

Re : Recherche chronologique d'information de doublons

Effectivement, il faut créer un bouton et affecter la macro en question à ce bouton avant d'appuyer dessus (ou faire Alt + F8 et sélectionner directement la macro). Est-ce que tu as passé cette étape ?

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 6 Mars 2012

• #7

Re : Recherche chronologique d'information de doublons

bonjour
avec index equiv nb.si

 

Pièces jointes

• classeurSquoltahth.xlsx

  222.7 KB · Affichages: 120

Vote positif 0 Vote négatif

mintri

XLDnaute Occasionnel

• 6 Mars 2012

• #8

Re : Recherche chronologique d'information de doublons

Je te joins ici le fichier que j'ai chez moi, la macro fonctionne bien, tu peux essayer de supprimer les colonnes M et N et de relancer la macro pour voir

 

Pièces jointes

• Classeur12.xlsm

  226.5 KB · Affichages: 58
• Classeur12.xlsm

  226.5 KB · Affichages: 65
• Classeur12.xlsm

  226.5 KB · Affichages: 76

Vote positif 0 Vote négatif

S

Squoltahthx94

XLDnaute Occasionnel

• 7 Mars 2012

• #9

Re : Recherche chronologique d'information de doublons

Bonjour,

Désolé mais je ne vous ai pas remercier pour hier mais c'est super sympa à vous 2; une derniere demande dans la colonne BT de l'onglet HD je souhaiterais faire apparaitre non pas l'heure ou la date mais le n° de BT de la colonne H de l'onglet 'reporting des intervention 120' correpondant au dernier chronologiquement de l'inter Car se trouvant dans l'onglet HD.

J'espère être assez clair.

Merci d'avance

 

Vote positif 0 Vote négatif

mintri

XLDnaute Occasionnel

• 7 Mars 2012

• #10

Re : Recherche chronologique d'information de doublons

Hello,

Si tu as utilisé ma macro, il faudra juste changer cette ligne :

Sheets("HD").Cells(i, 13).Value = Sheets("reporting des interventions 120").Cells(x, 20).Value

Pour cette ligne :

Sheets("HD").Cells(i, 13).Value = Sheets("reporting des interventions 120").Cells(x, 8).Value

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 7 Mars 2012

• #11

Re : Recherche chronologique d'information de doublons

bonjour
mis date et heure ensemble

 

Pièces jointes

• CSquoltatth.xlsx

  224.9 KB · Affichages: 159

Vote positif 0 Vote négatif