Bojour à tous
J'ai un code réalisé avec la contribution du forum qui fonctionne très bien. Cependant, ce code qui extrait des données et les classe dans une feuille "effectif" fait sa recherche dans l'ensemble de la base de donnée ("BD"). Je veux pouvoir mettre une condition en amont pour qu'il ne me prenne pas les personnes dont j'aurai renseigné un critère dans une colonne de la base de données. Je ne vois pas très bien ou et comment mettre cette condition.
Merci d'avance pour votre aide.
Gérard
Ci-joint une partie du code. Il y a plusieurs cherche comme celle-ci.
For Each X In Sheets("BD").Range(Sheets("BD").Range("bs2"), Sheets("BD").Range("cg65536").End(xlUp))
With Sheets("effectif")
Select Case X
Case [g61]
.Range("j5").Offset(0, 0) = X.Offset(0, 0)
.Range("j25").End(xlUp).Offset(1, 1) = X.Offset(0, 14)
.Range("j25").End(xlUp).Offset(1, 0) = X.Offset(0, -69) & " " & X.Offset(0, -68)
Case [g62]
.Range("j26").Offset(0, 0) = X.Offset(0, 0)
.Range("j43").End(xlUp).Offset(1, 1) = X.Offset(0, 14)
.Range("j43").End(xlUp).Offset(1, 0) = X.Offset(0, -69) & " " & X.Offset(0, -68)
Case [g63]
.Range("j44").Offset(0, 0) = X.Offset(0, 0)
.Range("j59").End(xlUp).Offset(1, 1) = X.Offset(0, 14)
.Range("j59").End(xlUp).Offset(1, 0) = X.Offset(0, -69) & " " & X.Offset(0, -68)
End Select
End With
Next
J'ai un code réalisé avec la contribution du forum qui fonctionne très bien. Cependant, ce code qui extrait des données et les classe dans une feuille "effectif" fait sa recherche dans l'ensemble de la base de donnée ("BD"). Je veux pouvoir mettre une condition en amont pour qu'il ne me prenne pas les personnes dont j'aurai renseigné un critère dans une colonne de la base de données. Je ne vois pas très bien ou et comment mettre cette condition.
Merci d'avance pour votre aide.
Gérard
Ci-joint une partie du code. Il y a plusieurs cherche comme celle-ci.
For Each X In Sheets("BD").Range(Sheets("BD").Range("bs2"), Sheets("BD").Range("cg65536").End(xlUp))
With Sheets("effectif")
Select Case X
Case [g61]
.Range("j5").Offset(0, 0) = X.Offset(0, 0)
.Range("j25").End(xlUp).Offset(1, 1) = X.Offset(0, 14)
.Range("j25").End(xlUp).Offset(1, 0) = X.Offset(0, -69) & " " & X.Offset(0, -68)
Case [g62]
.Range("j26").Offset(0, 0) = X.Offset(0, 0)
.Range("j43").End(xlUp).Offset(1, 1) = X.Offset(0, 14)
.Range("j43").End(xlUp).Offset(1, 0) = X.Offset(0, -69) & " " & X.Offset(0, -68)
Case [g63]
.Range("j44").Offset(0, 0) = X.Offset(0, 0)
.Range("j59").End(xlUp).Offset(1, 1) = X.Offset(0, 14)
.Range("j59").End(xlUp).Offset(1, 0) = X.Offset(0, -69) & " " & X.Offset(0, -68)
End Select
End With
Next