Marcro à adapter

[DPX]

Bonjour
Voici un code sur lequel je voudrais adapter le scan.
With Feuil7
For Each cel In .Range("G2:G" & .Range("G65000").End(xlUp).Row)
If cel <> "" Then
Set c = Feuil5.Range("A2:K50").Find(cel)
If Not c Is Nothing Then
cel.Offset(, 3) = Feuil5.Cells(1, c.Column)
Else
cel.Offset(, 3) = "Absent"
End If
End If
Next

Comment faire pour le faire rechercher toutes les cellules annotées des colonnes car elles ont toutes un nombre variable de cellule.

 

[mth]

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

 

[JNP]

Re : Marcro à adapter

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

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

 

[DPX]

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.

 

[DPX]

Re : Marcro à adapter

Bonjour JNP

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

 

[pierrejean]

Re : Marcro à adapter

Bonjour DPX

Salut JNP
Bises Mireille

A tester dans le module de la feuille Resultat:

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

 

[DPX]

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

 

[DPX]

Re : Marcro à adapter

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