Marcro à adapter

mth

XLDnaute Barbatruc

• 25 Septembre 2011

• #2

Re : Marcro à adapter

Bonjour DPX,

Ca vient peut-être de moi, mais le rapport entre la question et le fichier joint me semble si peu évident que je me demande si tu ne t'es pas trompé de fichier ?

@ +

mth

Edit: Bises JN 🙂

 

Dernière édition: 25 Septembre 2011

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 25 Septembre 2011

• #3

Re : Marcro à adapter

Bonjour Dpx, bises Mireille 🙂,
Pas sûr non plus d'avoir compris 🙄

Code:

Dim Cel As Range, c As Range, I As Integer
With Feuil7
For I = 1 To 4
For Each Cel In .Range(Cells(2, I), Cells(.Cells(6500, I).End(xlUp).Row))
If Cel <> "" Then
Set c = Feuil5.Range("A2:K50").Find(Cel)
If Not c Is Nothing Then
Cel.Offset(, 4) = Feuil5.Cells(1, c.Column)
Else
Cel.Offset(, 4) = "Absent"
End If
End If
Next Cel
Next I
End With

Bonne fin de dimanche 😎

 

Vote positif 0 Vote négatif

D

DPX

Guest

• 25 Septembre 2011

• #4

Re : Marcro à adapter

Mes excuses
Je rajoute le fichier complété.
But: Remplir la colonne site de la feuille2 en allant trouvant le contrat dans la feuille1 et remplir dans la colonne d'à côté le numéro du site.

 

Pièces jointes

• DDX.xls

  16 KB · Affichages: 81
• DDX.xls

  16 KB · Affichages: 88
• DDX.xls

  16 KB · Affichages: 87

Vote positif 0 Vote négatif

D

DPX

Guest

• 25 Septembre 2011

• #5

Re : Marcro à adapter

Bonjour JNP

Ton code remplit uniquement la ligne 1 et 2...

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 25 Septembre 2011

• #6

Re : Marcro à adapter

Bonjour DPX

Salut JNP 🙂
Bises Mireille 🙂

A tester dans le module de la feuille Resultat:

Code:

Private Sub Worksheet_Activate()
For Each cel In Range("D2:D" & Range("D65536").End(xlUp).Row)
  Set c = Sheets("Feuil1").Cells.Find(cel.Value, LookIn:=xlValues, lookat:=xlWhole)
  If Not c Is Nothing Then
   cel.Offset(0, 1) = Sheets("Feuil1").Cells(1, c.Column)
  End If
Next
End Sub

 

Vote positif 0 Vote négatif

D

DPX

Guest

• 25 Septembre 2011

• #7

Re : Marcro à adapter

Merci.
Seulement je n'arrive pas à l'adapter au vrai fichier. Manque toujours l'annotation "absent" en cas de non correspondance entre les deux feuilles

 

Vote positif 0 Vote négatif

D

DPX

Guest

• 25 Septembre 2011

• #8

Re : Marcro à adapter

Super j'y arrive!!
Merci le forum!!!!!

 

Vote positif 0 Vote négatif