381 résultats trouvés

par fronck
1 août 2019, 20:03
Forum : Excel - VBA
Sujet : Réponses différentes meme demande
Réponses : 2
Vues : 109

Réponses différentes meme demande

Bonjour le forum, J'ai un souci avec mon code erreur. Si je mets que la 1ere condition, il l'éxécute cette demande: Sans titre.png avec ce code: cpt1 = 0 For q = debSalarie To finsalarie 'If ((CDate(TextBox2.Value) = Sheets("cascade").Range("D" & q)) _ 'Or Month(CDate(TextBox2.Value)) = Month(Sheets...
par fronck
31 juillet 2019, 10:18
Forum : Excel - VBA
Sujet : Boucles jours féries tombant le week end
Réponses : 5
Vues : 67

Re: Boucles jours féries tombant le week end

Bonjour,
ah génial. 8[]
mais pourrais tu m'expliquer la variable as Double et ",2" dans la formule weekday.
merci :ppg:
fronck
par fronck
31 juillet 2019, 09:03
Forum : Excel - VBA
Sujet : Boucles jours féries tombant le week end
Réponses : 5
Vues : 67

Re: Boucles jours féries tombant le week end

bonjour BrunoM45, Cà tombe un dimanche (1), et si tu simplifies à: 'boucle jours feries ne tombant pas le we feuille data Dim féries As Integer If Weekday(Sheets("data").Range("H2") <> "1") Then feries = 1 MsgBox "feries " & feries End If il m'affiche toujours 1 ::o :beurk: fronck
par fronck
31 juillet 2019, 02:05
Forum : Excel - VBA
Sujet : Boucles jours féries tombant le week end
Réponses : 5
Vues : 67

Boucles jours féries tombant le week end

Bonjour le forum, Je vous expose mon probléme, le 14/07 tombant un dimanche, et on s'en rappelle encore, je comprends pas pourquoi ma double boucle le prend en fériés quand c'est pour compter les jours hebdo, avec ce code: 'boucle jours feries ne tombant pas le we feuille data Dim féries As Variant ...
par fronck
30 juillet 2019, 02:52
Forum : Excel - VBA
Sujet : Supression de bordures
Réponses : 2
Vues : 34

Re: Supression de bordures

bonjour,
ok merci :wink:
fronck
par fronck
29 juillet 2019, 22:59
Forum : Excel - VBA
Sujet : Supression de bordures
Réponses : 2
Vues : 34

Supression de bordures

Bonjour,

j'aimerais savoir quel code me permettrait ne ne plus avoir les bordures du mois précédent en 31 jours, qui réapparaisssent en partie:
voilà ce que j'ai en code:
Application.ScreenUpdating = False
Range("A1:CV100").ClearContents
Sans titre.png
Sans titre.png (7.66 Kio) Vu 34 fois
merci :)
fronck
par fronck
27 juillet 2019, 15:56
Forum : Applications
Sujet : Calendrier autonome (sans module microsoft)
Réponses : 89
Vues : 13729

Re: Calendrier autonome (sans module microsoft)

Bonjour,
ok, je te laisse voir alors ?
fronck
par fronck
27 juillet 2019, 00:04
Forum : Excel - VBA
Sujet : Valeurs zéro à 2 variables
Réponses : 4
Vues : 50

Re: Valeurs zéro à 2 variables

bonjour, ok, j'ai fait comme çà pour le renvoyer à l'enregistrement: Dim cpt As Integer dern = Sheets("cascade").Range("A65000").End(xlUp).Row cpt = 0 For i = 2 To dern If Sheets("cascade").Range("C" & i) = ComboBox_salarie.Value Then debSalarie = i cpt = cpt + 1 'recherche autres enreg For p = debS...
par fronck
26 juillet 2019, 23:21
Forum : Excel - VBA
Sujet : Valeurs zéro à 2 variables
Réponses : 4
Vues : 50

Re: Valeurs zéro à 2 variables

Bonjour ric
heureusement que tu me suis partout :wink:
beh non c'est pour çà
Sans titre.png
Sans titre.png (9.66 Kio) Vu 34 fois
Sans titre2.png
Sans titre2.png (2.91 Kio) Vu 34 fois
merci :ko:
fronck
par fronck
26 juillet 2019, 21:57
Forum : Applications
Sujet : Calendrier autonome (sans module microsoft)
Réponses : 89
Vues : 13729

Re: Calendrier autonome (sans module microsoft)

Bonjour,
çà fonctionne sur le 2eme bouton avec l'UF absences2 pour modifier, j'ai vu que tu as reéactivé le lien dans calendar.
mais plus pour le 2eme bouton avec l'UF absences pour enregistrer, ou le lien est actif.
donc apparemment il faut choisir, dommage. :bof:
fronck