Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel formule excel

formule excel

4 réponses
Avatar
sasha
Bonjour,
mon probleme est un classeur excel avec :
1) -1 feuilleoù la colonne A comprend les jours du mois (format date)
2) - 1 feuille comprenant une liste de noms

je souhaite coller cette liste dans la colonne B de ma 1ère feuille, mais je
voudrai mon "collage" ignore les WE et pourquoi pas les FERIES-

merci de vos idées
--
sasha
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
AV
Il va falloir préciser un peu plus (un éventuel exemple)....

AV
Avatar
Daniel
Bonjour.
Sans plus de détails de ta part, j'ai écrit la macro qui suit en considérant
que :
- les noms sont en colonne A de Feuil2;
- la plage des jours fériés est en F1:F3 de Feuil1.

Sub Test()
Dim Ligne As Integer
Ligne = 0
Sheets("Feuil2").Activate
[B2].Select
Sheets("Feuil1").Activate
[B1].Select
' Boucle générale
Do While Not IsEmpty(ActiveCell.Offset(0, -1))
' Elimination des jours fériés
Do While IsNumeric(Application.Match(ActiveCell.Offset(0, -1),
Range("F1:F3"), 0))
ActiveCell.Offset(1, 0).Select
Loop
' Elimination des week-ends
Do While Weekday(ActiveCell.Offset(0, -1)) = 1 Or
Weekday(ActiveCell.Offset(0, -1)) = 7
ActiveCell.Offset(1, 0).Select
If IsEmpty(ActiveCell.Offset(0, -1)) Then Exit Sub
Loop
Ligne = Ligne + 1
ActiveCell.Value = Sheets("Feuil2").Range("A" & Ligne)
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Cordialement.
Daniel

"sasha" a écrit dans le message de news:

Bonjour,
mon probleme est un classeur excel avec :
1) -1 feuilleoù la colonne A comprend les jours du mois (format date)
2) - 1 feuille comprenant une liste de noms

je souhaite coller cette liste dans la colonne B de ma 1ère feuille, mais
je
voudrai mon "collage" ignore les WE et pourquoi pas les FERIES-

merci de vos idées
--
sasha


Avatar
sasha
Merci pour ta reponse si rapide, j'avais essayé de trouver une formule, car
j'ai beau faire beaucoup d'efforts, je resterai toujours nulle en VBA-
Quoi qu'il en soit, j'ai recopié ta macro, mais lorsque je colle la liste de
noms de la feuil2, dans la colonne B du feuillet 1 (la colonne A comporte les
jours du mois), la liste de noms se colle, mais n'ignore pas les WE, ais je
fais une étourderie quelque part ??

sasha
"Daniel" wrote:

Bonjour.
Sans plus de détails de ta part, j'ai écrit la macro qui suit en considérant
que :
- les noms sont en colonne A de Feuil2;
- la plage des jours fériés est en F1:F3 de Feuil1.

Sub Test()
Dim Ligne As Integer
Ligne = 0
Sheets("Feuil2").Activate
[B2].Select
Sheets("Feuil1").Activate
[B1].Select
' Boucle générale
Do While Not IsEmpty(ActiveCell.Offset(0, -1))
' Elimination des jours fériés
Do While IsNumeric(Application.Match(ActiveCell.Offset(0, -1),
Range("F1:F3"), 0))
ActiveCell.Offset(1, 0).Select
Loop
' Elimination des week-ends
Do While Weekday(ActiveCell.Offset(0, -1)) = 1 Or
Weekday(ActiveCell.Offset(0, -1)) = 7
ActiveCell.Offset(1, 0).Select
If IsEmpty(ActiveCell.Offset(0, -1)) Then Exit Sub
Loop
Ligne = Ligne + 1
ActiveCell.Value = Sheets("Feuil2").Range("A" & Ligne)
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Cordialement.
Daniel

"sasha" a écrit dans le message de news:

Bonjour,
mon probleme est un classeur excel avec :
1) -1 feuilleoù la colonne A comprend les jours du mois (format date)
2) - 1 feuille comprenant une liste de noms

je souhaite coller cette liste dans la colonne B de ma 1ère feuille, mais
je
voudrai mon "collage" ignore les WE et pourquoi pas les FERIES-

merci de vos idées
--
sasha







Avatar
Daniel
Bonjour.
Tu ne dois pas coller la liste des noms. Tout ce que tu as à faire est de
lancer la macro :
Outils / Macro /Macros
Une boîte de dialogue s'ouvre alors avec la liste des macros disponibles.
Choisis le nom de la macro et clique sur "Exécuter".
N'hésite pas à revenir en cas de problème.
D'autre part, fais attention que le post insère des retours ligne, ce qui
peut entraîner des erreurs. Recopie plutôt le code suivant :

Sub Test()
Dim Ligne As Integer
Ligne = 0
Sheets("Feuil2").Activate
[B2].Select
Sheets("Feuil1").Activate
[B1].Select
' Boucle générale
Do While Not IsEmpty(ActiveCell.Offset(0, -1))
' Elimination des jours fériés
Do While IsNumeric(Application.Match(ActiveCell.Offset(0, -1), _
Range("F1:F3"), 0))
ActiveCell.Offset(1, 0).Select
Loop
' Elimination des week-ends
Do While Weekday(ActiveCell.Offset(0, -1)) = 1 Or _
Weekday(ActiveCell.Offset(0, -1)) = 7
ActiveCell.Offset(1, 0).Select
If IsEmpty(ActiveCell.Offset(0, -1)) Then Exit Sub
Loop
Ligne = Ligne + 1
ActiveCell.Value = Sheets("Feuil2").Range("A" & Ligne)
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Cordialement.
Daniel
"sasha" a écrit dans le message de news:

Merci pour ta reponse si rapide, j'avais essayé de trouver une formule,
car
j'ai beau faire beaucoup d'efforts, je resterai toujours nulle en VBA-
Quoi qu'il en soit, j'ai recopié ta macro, mais lorsque je colle la liste
de
noms de la feuil2, dans la colonne B du feuillet 1 (la colonne A comporte
les
jours du mois), la liste de noms se colle, mais n'ignore pas les WE, ais
je
fais une étourderie quelque part ??

sasha
"Daniel" wrote:

Bonjour.
Sans plus de détails de ta part, j'ai écrit la macro qui suit en
considérant
que :
- les noms sont en colonne A de Feuil2;
- la plage des jours fériés est en F1:F3 de Feuil1.

Sub Test()
Dim Ligne As Integer
Ligne = 0
Sheets("Feuil2").Activate
[B2].Select
Sheets("Feuil1").Activate
[B1].Select
' Boucle générale
Do While Not IsEmpty(ActiveCell.Offset(0, -1))
' Elimination des jours fériés
Do While IsNumeric(Application.Match(ActiveCell.Offset(0, -1),
Range("F1:F3"), 0))
ActiveCell.Offset(1, 0).Select
Loop
' Elimination des week-ends
Do While Weekday(ActiveCell.Offset(0, -1)) = 1 Or
Weekday(ActiveCell.Offset(0, -1)) = 7
ActiveCell.Offset(1, 0).Select
If IsEmpty(ActiveCell.Offset(0, -1)) Then Exit Sub
Loop
Ligne = Ligne + 1
ActiveCell.Value = Sheets("Feuil2").Range("A" & Ligne)
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Cordialement.
Daniel

"sasha" a écrit dans le message de
news:

Bonjour,
mon probleme est un classeur excel avec :
1) -1 feuilleoù la colonne A comprend les jours du mois (format date)
2) - 1 feuille comprenant une liste de noms

je souhaite coller cette liste dans la colonne B de ma 1ère feuille,
mais
je
voudrai mon "collage" ignore les WE et pourquoi pas les FERIES-

merci de vos idées
--
sasha