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 aide pour ma formule

aide pour ma formule

7 réponses
Avatar
Gerard
bonjour

merci pour votre aide

Sheets("Congés").Range(PlaceConge & "65536").End(xlUp).Offset(1, 0) =
Format(TxtDebut.Value, "dd/mm/yyyy")
Sheets("Congés").Range(PlaceConge & "65536").End(xlUp).Offset(0, 1) =
Format(TxtFin.Value, "dd/mm/yyyy")

Sheets("Congés").Range(PlaceConge & "65536").End(xlUp).Offset(0, 2).Select
With Selection
.Formula = =NB.JOURS.OUVRES(Range(cells(0, -2);cells(0, -1);'Param
Identification'!F12:F22)

End With

ca ne marche pas
je voudrais dans ma formule que la date de depart soit celle 2 colonne a
gauche et celle de fin 1 colonne a gauche
merci encore
Signaler un problème avec ce contenu

7 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
michdenis
Bonjour Gérard,


Dim Rg As Range
With sheets ("Congés")
Set Rg = .Range(PlaceConge & "65536").End(xlUp).Offset(0, 2).
End With

With Rg
.FormulaLocal = "=NB.JOURS.OUVRES(" & Rg.Offset(, -2).Address & ";" & Rg.Offset(, -1).Address & ";'Feuil2'!F12:F22)"
End With


Salutations!




"Gerard" a écrit dans le message de news: 43d3a2b0$0$19674$
bonjour

merci pour votre aide

Sheets("Congés").Range(PlaceConge & "65536").End(xlUp).Offset(1, 0) Format(TxtDebut.Value, "dd/mm/yyyy")
Sheets("Congés").Range(PlaceConge & "65536").End(xlUp).Offset(0, 1) Format(TxtFin.Value, "dd/mm/yyyy")

Sheets("Congés").Range(PlaceConge & "65536").End(xlUp).Offset(0, 2).Select
With Selection
.Formula = =NB.JOURS.OUVRES(Range(cells(0, -2);cells(0, -1);'Param
Identification'!F12:F22)

End With

ca ne marche pas
je voudrais dans ma formule que la date de depart soit celle 2 colonne a
gauche et celle de fin 1 colonne a gauche
merci encore
Avatar
JLuc
*Bonjour Gerard*,
.Formula = =NB.JOURS.OUVRES(R[0]C[-2];R[0]C[-1];'Param
Identification'!F12:F22)
Je pense que ca devrait convenir
Dis nous

bonjour

merci pour votre aide

Sheets("Congés").Range(PlaceConge & "65536").End(xlUp).Offset(1, 0) =
Format(TxtDebut.Value, "dd/mm/yyyy")
Sheets("Congés").Range(PlaceConge & "65536").End(xlUp).Offset(0, 1) =
Format(TxtFin.Value, "dd/mm/yyyy")

Sheets("Congés").Range(PlaceConge & "65536").End(xlUp).Offset(0, 2).Select
With Selection
.Formula = =NB.JOURS.OUVRES(Range(cells(0, -2);cells(0, -1);'Param
Identification'!F12:F22)

End With

ca ne marche pas
je voudrais dans ma formule que la date de depart soit celle 2 colonne a
gauche et celle de fin 1 colonne a gauche
merci encore



--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS

Avatar
michdenis
Dans la formule soumise,

J'ai omis de faire la substitution pour ta plage de congés fériés
Désolé ...


Salutations!



"michdenis" a écrit dans le message de news:
Bonjour Gérard,


Dim Rg As Range
With sheets ("Congés")
Set Rg = .Range(PlaceConge & "65536").End(xlUp).Offset(0, 2).
End With

With Rg
.FormulaLocal = "=NB.JOURS.OUVRES(" & Rg.Offset(, -2).Address & ";" & Rg.Offset(, -1).Address & ";'Feuil2'!F12:F22)"
End With


Salutations!




"Gerard" a écrit dans le message de news: 43d3a2b0$0$19674$
bonjour

merci pour votre aide

Sheets("Congés").Range(PlaceConge & "65536").End(xlUp).Offset(1, 0) Format(TxtDebut.Value, "dd/mm/yyyy")
Sheets("Congés").Range(PlaceConge & "65536").End(xlUp).Offset(0, 1) Format(TxtFin.Value, "dd/mm/yyyy")

Sheets("Congés").Range(PlaceConge & "65536").End(xlUp).Offset(0, 2).Select
With Selection
.Formula = =NB.JOURS.OUVRES(Range(cells(0, -2);cells(0, -1);'Param
Identification'!F12:F22)

End With

ca ne marche pas
je voudrais dans ma formule que la date de depart soit celle 2 colonne a
gauche et celle de fin 1 colonne a gauche
merci encore
Avatar
Gerard
bonsoir
hélas ca ne marche pas
merci
"JLuc" a écrit dans le message de news:

*Bonjour Gerard*,
.Formula = =NB.JOURS.OUVRES(R[0]C[-2];R[0]C[-1];'Param
Identification'!F12:F22)
Je pense que ca devrait convenir
Dis nous

bonjour

merci pour votre aide

Sheets("Congés").Range(PlaceConge & "65536").End(xlUp).Offset(1, 0) =
Format(TxtDebut.Value, "dd/mm/yyyy")
Sheets("Congés").Range(PlaceConge & "65536").End(xlUp).Offset(0, 1) =
Format(TxtFin.Value, "dd/mm/yyyy")

Sheets("Congés").Range(PlaceConge & "65536").End(xlUp).Offset(0,
2).Select
With Selection
.Formula = =NB.JOURS.OUVRES(Range(cells(0, -2);cells(0, -1);'Param
Identification'!F12:F22)

End With

ca ne marche pas
je voudrais dans ma formule que la date de depart soit celle 2 colonne a
gauche et celle de fin 1 colonne a gauche
merci encore



--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et
astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS





Avatar
Gerard
bonjour
la formule passe bien mais elle me met les dates en mm/dd/yyy
et donc tout est faussé
merci pour votre aide
"michdenis" a écrit dans le message de news:

Bonjour Gérard,


Dim Rg As Range
With sheets ("Congés")
Set Rg = .Range(PlaceConge & "65536").End(xlUp).Offset(0, 2).
End With

With Rg
.FormulaLocal = "=NB.JOURS.OUVRES(" & Rg.Offset(, -2).Address & ";" &
Rg.Offset(, -1).Address & ";'Feuil2'!F12:F22)"
End With


Salutations!




"Gerard" a écrit dans le message de news:
43d3a2b0$0$19674$
bonjour

merci pour votre aide

Sheets("Congés").Range(PlaceConge & "65536").End(xlUp).Offset(1, 0) > Format(TxtDebut.Value, "dd/mm/yyyy")
Sheets("Congés").Range(PlaceConge & "65536").End(xlUp).Offset(0, 1) > Format(TxtFin.Value, "dd/mm/yyyy")

Sheets("Congés").Range(PlaceConge & "65536").End(xlUp).Offset(0, 2).Select
With Selection
.Formula = =NB.JOURS.OUVRES(Range(cells(0, -2);cells(0, -1);'Param
Identification'!F12:F22)

End With

ca ne marche pas
je voudrais dans ma formule que la date de depart soit celle 2 colonne a
gauche et celle de fin 1 colonne a gauche
merci encore





Avatar
Gerard
salut
non j'ai bien mis le nom de la feuille ou se trouve les jours feries,
si j'utilise la formule mes dates sont transcrite system americain et non
francais

"michdenis" a écrit dans le message de news:
%
Dans la formule soumise,

J'ai omis de faire la substitution pour ta plage de congés fériés
Désolé ...


Salutations!



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

Bonjour Gérard,


Dim Rg As Range
With sheets ("Congés")
Set Rg = .Range(PlaceConge & "65536").End(xlUp).Offset(0, 2).
End With

With Rg
.FormulaLocal = "=NB.JOURS.OUVRES(" & Rg.Offset(, -2).Address & ";" &
Rg.Offset(, -1).Address & ";'Feuil2'!F12:F22)"
End With


Salutations!




"Gerard" a écrit dans le message de news:
43d3a2b0$0$19674$
bonjour

merci pour votre aide

Sheets("Congés").Range(PlaceConge & "65536").End(xlUp).Offset(1, 0) > Format(TxtDebut.Value, "dd/mm/yyyy")
Sheets("Congés").Range(PlaceConge & "65536").End(xlUp).Offset(0, 1) > Format(TxtFin.Value, "dd/mm/yyyy")

Sheets("Congés").Range(PlaceConge & "65536").End(xlUp).Offset(0, 2).Select
With Selection
.Formula = =NB.JOURS.OUVRES(Range(cells(0, -2);cells(0, -1);'Param
Identification'!F12:F22)

End With

ca ne marche pas
je voudrais dans ma formule que la date de depart soit celle 2 colonne a
gauche et celle de fin 1 colonne a gauche
merci encore






Avatar
Gerard
Bonsoir michdenis
milles excuses ta solution fonctionne tres bien, j'avais simplement laisse
trainer un format( "dd/mm/yyyy")
dailleurs qui ne servait a rien ,
vraiment supper
encores toutes mes escuses pour avoir douté
Bonsoir
gerard
"michdenis" a écrit dans le message de news:

Bonjour Gérard,


Dim Rg As Range
With sheets ("Congés")
Set Rg = .Range(PlaceConge & "65536").End(xlUp).Offset(0, 2).
End With

With Rg
.FormulaLocal = "=NB.JOURS.OUVRES(" & Rg.Offset(, -2).Address & ";" &
Rg.Offset(, -1).Address & ";'Feuil2'!F12:F22)"
End With


Salutations!




"Gerard" a écrit dans le message de news:
43d3a2b0$0$19674$
bonjour

merci pour votre aide

Sheets("Congés").Range(PlaceConge & "65536").End(xlUp).Offset(1, 0) > Format(TxtDebut.Value, "dd/mm/yyyy")
Sheets("Congés").Range(PlaceConge & "65536").End(xlUp).Offset(0, 1) > Format(TxtFin.Value, "dd/mm/yyyy")

Sheets("Congés").Range(PlaceConge & "65536").End(xlUp).Offset(0, 2).Select
With Selection
.Formula = =NB.JOURS.OUVRES(Range(cells(0, -2);cells(0, -1);'Param
Identification'!F12:F22)

End With

ca ne marche pas
je voudrais dans ma formule que la date de depart soit celle 2 colonne a
gauche et celle de fin 1 colonne a gauche
merci encore