Listage

Bonjour à toutes et tous

Pourriez vous me dire comment réaliser une macro (boucle)

suivant la requête suivante :

Lire les lignes d'un tableau en page XXXX et reporter en page xWxWxW les gens dont c'est l'anniversaire

Voir le fichier ci-joint

Merci beaucoup de votre aide

Bonjour,

Voici une solution :

Sub HappyBD()
Dim a(), b(), i, ii, iC, j, Y
i = Worksheets(1).UsedRange.Rows.Count
a = Worksheets(1).Range("A1:F" & i).Value
Worksheets(2).Range("A6:F" & 11).ClearContents
b = Worksheets(2).Range("A6:F" & 11).Value
j = 1
For ii = 2 To i
   If IsBD(a(ii, 4)) Then
      For iC = 1 To 6
         b(j, iC) = a(ii, iC)
      Next
      Y = True
   End If
   If Y Then
   j = j + 1
   Y = False
   End If
Next
Worksheets(2).Range("A6:F" & 11) = b
End Sub

Function IsBD(D)
IsBD = Day(D) = Day(Date) And Month(D) = Month(Date)
End Function

Code à coller dans Module1

A+

bonjour a tous

galopin01 ta macro est sublime

bonne journée a tous le forum

Merci pour cette belle et efficace macro

Bonne journée

Galopin01, Vous êtes "Excelent" !!!!!!!!!