Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel [VBA] Problèmes en tout genres (format heure, report saisie...)

[VBA] Problèmes en tout genres (format heure, report saisie...)

19 réponses
Avatar
Amalric Parré
Bonjour à vous,

Plutôt qu'un grand discours où j'aurais du mal à me faire comprendre, je
préfère vous laisser un fichier joint à ce message pour que vous compreniez
mes soucis actuel avec mon USF !

J'espère que vous m'aiderez à sortir de ce "guêpier".

D'avance, merci pour vos efforts.

Cdt

Amalric

http://cjoint.com/?cyoW3UXwtL
Signaler un problème avec ce contenu

10 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
1 2
Avatar
Misange

Plutôt qu'un grand discours où j'aurais du mal à me faire comprendre, je
préfère vous laisser un fichier joint
et donc c'est aux répondeurs bénévoles, non seulement de trouver la

réponse, de te la mettre en forme mais en plus de formuler tes questions ?
Faut peut être pas charrier quand même. En tous cas moi ce genre de
message, désolée mais c'est non.
Ton classeur aura disparu dans 3 semaines et ne sera plus consultable
depuis les archives de google.
Merci de poser des questions très précises appellant des réponses
précises qui peuvent servir à d'autres contributeurs d'un FORUM, pas
d'une hotline gratuite.
Bon dimanche à toi aussi..
--
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

Avatar
Amalric Parré
Quelle arogance !
Vous êtes la responsable de ce forum ?
Non ? Alors veuillez passer votre chemin, il ya sûrement d'autres bénévoles
plus respectueux que vous et qui ont peut-être envie de répondre ne
serait-ce qau'à un de mes problèmes.
Je ne demande pas à ce que le travail soit du "tout fait", j'essaye
seulement de me former à VBA et à demander conseils à des personnes
expérimentées !
De plus je remarque vous êtes coutumière de ce genre de réaction ! Vous vous
croyez qui et où ?

Et pas de "Tu" avec moi, nous n'avons élevé des vaches ensemble que je sache
!!!

Bon Dimanche...

Almaric



"Misange" a écrit dans le message de news:
%

Plutôt qu'un grand discours où j'aurais du mal à me faire comprendre, je
préfère vous laisser un fichier joint
et donc c'est aux répondeurs bénévoles, non seulement de trouver la

réponse, de te la mettre en forme mais en plus de formuler tes questions ?
Faut peut être pas charrier quand même. En tous cas moi ce genre de
message, désolée mais c'est non.
Ton classeur aura disparu dans 3 semaines et ne sera plus consultable
depuis les archives de google.
Merci de poser des questions très précises appellant des réponses précises
qui peuvent servir à d'autres contributeurs d'un FORUM, pas d'une hotline
gratuite.
Bon dimanche à toi aussi..
--
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net



Avatar
Patrick BASTARD
Bonjour, *Amalric Parré*

Vous vous croyez qui et où ?

http://xlwiki.free.fr/wiki
http://www.excelabo.net



No comment...

P. BASTARD


Avatar
JB
Bonjour,

Dim Txt(1 To 4) As New ClasseSaisie
Dim Txt2(1 To 4) As New ClasseSaisie2

Private Sub UserForm_Initialize()
For i = 1 To 4
Me("txtAct" & i).MaxLength = 2
Me("TxtNPers" & i).MaxLength = 1
Set Txt(i).GrSaisie = Me("txtAct" & i)
Set Txt2(i).GrSaisie2 = Me("TxtTotACT" & i)
Next i
End Sub

Private Sub TxtHDeb1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If InStr(Me.TxtHDeb1, ":") = 0 And IsNumeric(Me.TxtHDeb1) Then
Me.TxtHDeb1 = Format(Me.TxtHDeb1 / 24, "hh:mm")
End If
If Not IsDate(Me.TxtHDeb1) Then Cancel = True
End Sub

Private Sub TxtHfin1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If InStr(Me.TxtHfin1, ":") = 0 And IsNumeric(Me.TxtHfin1) Then
Me.TxtHfin1 = Format(Me.TxtHfin1 / 24, "hh:mm")
End If
If Not IsDate(Me.TxtHfin1) Then Cancel = True
End Sub

Private Sub B_valid_Click()
ligne = Sheets(1).[A65000].End(xlUp).Row
For i = 1 To 4
If Me("txtAct" & i) <> "" Then
Sheets(1).Cells(ligne + i, 1) = Me("txtAct" & i)
Sheets(1).Cells(ligne + i, 2) = CDate(Me("txtHDeb" & i))
Sheets(1).Cells(ligne + i, 3) = CDate(Me("txtHfin" & i))
Sheets(1).Cells(ligne + i, 4) = Me("TxtNPers" & i)
End If
Next i
End Sub

Modules de classe:

Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_change()
For i = 1 To 4
UserForm1("txtAct" & i) = UCase(UserForm1("txtAct" & i))
Next
End Sub

Public WithEvents GrSaisie2 As MSForms.TextBox
Private Sub GrSaisie2_change()
For i = 1 To 4
If IsNumeric(UserForm1("TxtTotACT" & i)) Then
t = t + CDbl(UserForm1("TxtTotACT" & i))
End If
Next i
UserForm1.TextBox351 = t
End Sub

http://cjoint.com/?cyq7WQuyT8

JB


On 24 fév, 14:52, "Amalric Parré" wrote:
Bonjour à vous,

Plutôt qu'un grand discours où j'aurais du mal à me faire comprendre , je
préfère vous laisser un fichier joint à ce message pour que vous com preniez
mes soucis actuel avec mon USF !

J'espère que vous m'aiderez à sortir de ce "guêpier".

D'avance, merci pour vos efforts.

Cdt

Amalric

http://cjoint.com/?cyoW3UXwtL


Avatar
Amalric Parré
Bonjour et merci JB !

Je vais tester ce code.

A+

Almaric


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

Bonjour,

Dim Txt(1 To 4) As New ClasseSaisie
Dim Txt2(1 To 4) As New ClasseSaisie2

Private Sub UserForm_Initialize()
For i = 1 To 4
Me("txtAct" & i).MaxLength = 2
Me("TxtNPers" & i).MaxLength = 1
Set Txt(i).GrSaisie = Me("txtAct" & i)
Set Txt2(i).GrSaisie2 = Me("TxtTotACT" & i)
Next i
End Sub

Private Sub TxtHDeb1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If InStr(Me.TxtHDeb1, ":") = 0 And IsNumeric(Me.TxtHDeb1) Then
Me.TxtHDeb1 = Format(Me.TxtHDeb1 / 24, "hh:mm")
End If
If Not IsDate(Me.TxtHDeb1) Then Cancel = True
End Sub

Private Sub TxtHfin1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If InStr(Me.TxtHfin1, ":") = 0 And IsNumeric(Me.TxtHfin1) Then
Me.TxtHfin1 = Format(Me.TxtHfin1 / 24, "hh:mm")
End If
If Not IsDate(Me.TxtHfin1) Then Cancel = True
End Sub

Private Sub B_valid_Click()
ligne = Sheets(1).[A65000].End(xlUp).Row
For i = 1 To 4
If Me("txtAct" & i) <> "" Then
Sheets(1).Cells(ligne + i, 1) = Me("txtAct" & i)
Sheets(1).Cells(ligne + i, 2) = CDate(Me("txtHDeb" & i))
Sheets(1).Cells(ligne + i, 3) = CDate(Me("txtHfin" & i))
Sheets(1).Cells(ligne + i, 4) = Me("TxtNPers" & i)
End If
Next i
End Sub

Modules de classe:

Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_change()
For i = 1 To 4
UserForm1("txtAct" & i) = UCase(UserForm1("txtAct" & i))
Next
End Sub

Public WithEvents GrSaisie2 As MSForms.TextBox
Private Sub GrSaisie2_change()
For i = 1 To 4
If IsNumeric(UserForm1("TxtTotACT" & i)) Then
t = t + CDbl(UserForm1("TxtTotACT" & i))
End If
Next i
UserForm1.TextBox351 = t
End Sub

http://cjoint.com/?cyq7WQuyT8

JB


On 24 fév, 14:52, "Amalric Parré" wrote:
Bonjour à vous,

Plutôt qu'un grand discours où j'aurais du mal à me faire comprendre, je
préfère vous laisser un fichier joint à ce message pour que vous
compreniez
mes soucis actuel avec mon USF !

J'espère que vous m'aiderez à sortir de ce "guêpier".

D'avance, merci pour vos efforts.

Cdt

Amalric

http://cjoint.com/?cyoW3UXwtL


Avatar
JB
Qq remarques:

-Les libellés sont réalisés avec des TextBox. Les labels (A) seraient
préférables.
-La saisie des activités pourrait se faire avec des ComboBox

JB
On 24 fév, 17:08, "Amalric Parré" wrote:
Bonjour et merci JB !

Je vais tester ce code.

A+

Almaric

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

Bonjour,

Dim Txt(1 To 4) As New ClasseSaisie
Dim Txt2(1 To 4) As New ClasseSaisie2

Private Sub UserForm_Initialize()
  For i = 1 To 4
    Me("txtAct" & i).MaxLength = 2
    Me("TxtNPers" & i).MaxLength = 1
    Set Txt(i).GrSaisie = Me("txtAct" & i)
    Set Txt2(i).GrSaisie2 = Me("TxtTotACT" & i)
  Next i
End Sub

Private Sub TxtHDeb1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
   If InStr(Me.TxtHDeb1, ":") = 0 And IsNumeric(Me.TxtHDeb1) Then
     Me.TxtHDeb1 = Format(Me.TxtHDeb1 / 24, "hh:mm")
   End If
   If Not IsDate(Me.TxtHDeb1) Then Cancel = True
End Sub

Private Sub TxtHfin1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
   If InStr(Me.TxtHfin1, ":") = 0 And IsNumeric(Me.TxtHfin1) Then
     Me.TxtHfin1 = Format(Me.TxtHfin1 / 24, "hh:mm")
   End If
   If Not IsDate(Me.TxtHfin1) Then Cancel = True
End Sub

Private Sub B_valid_Click()
  ligne = Sheets(1).[A65000].End(xlUp).Row
  For i = 1 To 4
    If Me("txtAct" & i) <> "" Then
       Sheets(1).Cells(ligne + i, 1) = Me("txtAct" & i)
       Sheets(1).Cells(ligne + i, 2) = CDate(Me("txtHDeb" & i))
       Sheets(1).Cells(ligne + i, 3) = CDate(Me("txtHfin" & i))
       Sheets(1).Cells(ligne + i, 4) = Me("TxtNPers" & i)
    End If
  Next i
End Sub

Modules de classe:

Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_change()
  For i = 1 To 4
    UserForm1("txtAct" & i) = UCase(UserForm1("txtAct" & i))
  Next
End Sub

Public WithEvents GrSaisie2 As MSForms.TextBox
Private Sub GrSaisie2_change()
 For i = 1 To 4
   If IsNumeric(UserForm1("TxtTotACT" & i)) Then
     t = t + CDbl(UserForm1("TxtTotACT" & i))
   End If
  Next i
  UserForm1.TextBox351 = t
End Sub

http://cjoint.com/?cyq7WQuyT8

JB

On 24 fév, 14:52, "Amalric Parré" wrote:



Bonjour à vous,

Plutôt qu'un grand discours où j'aurais du mal à me faire comprend re, je
préfère vous laisser un fichier joint à ce message pour que vous
compreniez
mes soucis actuel avec mon USF !

J'espère que vous m'aiderez à sortir de ce "guêpier".

D'avance, merci pour vos efforts.

Cdt

Amalric

http://cjoint.com/?cyoW3UXwtL- Masquer le texte des messages précéden ts -


- Afficher le texte des messages précédents -



Avatar
Amalric Parré
Re,

Il y a des bugs dans l'appli :
- quand je saisie "5,25" (centième d'heure) le résultat est "05:15"
- quand je clique sur le bouton "VALIDER", un message d'erreur apparaît

Si vous pouvez trouver d'où cela provient...

Merci

A+
Amalric


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

Qq remarques:

-Les libellés sont réalisés avec des TextBox. Les labels (A) seraient
préférables.
-La saisie des activités pourrait se faire avec des ComboBox

JB
On 24 fév, 17:08, "Amalric Parré" wrote:
Bonjour et merci JB !

Je vais tester ce code.

A+

Almaric

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

Bonjour,

Dim Txt(1 To 4) As New ClasseSaisie
Dim Txt2(1 To 4) As New ClasseSaisie2

Private Sub UserForm_Initialize()
For i = 1 To 4
Me("txtAct" & i).MaxLength = 2
Me("TxtNPers" & i).MaxLength = 1
Set Txt(i).GrSaisie = Me("txtAct" & i)
Set Txt2(i).GrSaisie2 = Me("TxtTotACT" & i)
Next i
End Sub

Private Sub TxtHDeb1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If InStr(Me.TxtHDeb1, ":") = 0 And IsNumeric(Me.TxtHDeb1) Then
Me.TxtHDeb1 = Format(Me.TxtHDeb1 / 24, "hh:mm")
End If
If Not IsDate(Me.TxtHDeb1) Then Cancel = True
End Sub

Private Sub TxtHfin1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If InStr(Me.TxtHfin1, ":") = 0 And IsNumeric(Me.TxtHfin1) Then
Me.TxtHfin1 = Format(Me.TxtHfin1 / 24, "hh:mm")
End If
If Not IsDate(Me.TxtHfin1) Then Cancel = True
End Sub

Private Sub B_valid_Click()
ligne = Sheets(1).[A65000].End(xlUp).Row
For i = 1 To 4
If Me("txtAct" & i) <> "" Then
Sheets(1).Cells(ligne + i, 1) = Me("txtAct" & i)
Sheets(1).Cells(ligne + i, 2) = CDate(Me("txtHDeb" & i))
Sheets(1).Cells(ligne + i, 3) = CDate(Me("txtHfin" & i))
Sheets(1).Cells(ligne + i, 4) = Me("TxtNPers" & i)
End If
Next i
End Sub

Modules de classe:

Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_change()
For i = 1 To 4
UserForm1("txtAct" & i) = UCase(UserForm1("txtAct" & i))
Next
End Sub

Public WithEvents GrSaisie2 As MSForms.TextBox
Private Sub GrSaisie2_change()
For i = 1 To 4
If IsNumeric(UserForm1("TxtTotACT" & i)) Then
t = t + CDbl(UserForm1("TxtTotACT" & i))
End If
Next i
UserForm1.TextBox351 = t
End Sub

http://cjoint.com/?cyq7WQuyT8

JB

On 24 fév, 14:52, "Amalric Parré" wrote:



Bonjour à vous,

Plutôt qu'un grand discours où j'aurais du mal à me faire comprendre, je
préfère vous laisser un fichier joint à ce message pour que vous
compreniez
mes soucis actuel avec mon USF !

J'espère que vous m'aiderez à sortir de ce "guêpier".

D'avance, merci pour vos efforts.

Cdt

Amalric

http://cjoint.com/?cyoW3UXwtL- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Avatar
Amalric Parré
Ci-joint le fichier modifié :
http://cjoint.com/?cysn2OwSCn

Amalric

"Amalric Parré" a écrit dans le message de news:
%
Re,

Il y a des bugs dans l'appli :
- quand je saisie "5,25" (centième d'heure) le résultat est "05:15"
- quand je clique sur le bouton "VALIDER", un message d'erreur apparaît

Si vous pouvez trouver d'où cela provient...

Merci

A+
Amalric


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

Qq remarques:

-Les libellés sont réalisés avec des TextBox. Les labels (A) seraient
préférables.
-La saisie des activités pourrait se faire avec des ComboBox

JB
On 24 fév, 17:08, "Amalric Parré" wrote:
Bonjour et merci JB !

Je vais tester ce code.

A+

Almaric

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

Bonjour,

Dim Txt(1 To 4) As New ClasseSaisie
Dim Txt2(1 To 4) As New ClasseSaisie2

Private Sub UserForm_Initialize()
For i = 1 To 4
Me("txtAct" & i).MaxLength = 2
Me("TxtNPers" & i).MaxLength = 1
Set Txt(i).GrSaisie = Me("txtAct" & i)
Set Txt2(i).GrSaisie2 = Me("TxtTotACT" & i)
Next i
End Sub

Private Sub TxtHDeb1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If InStr(Me.TxtHDeb1, ":") = 0 And IsNumeric(Me.TxtHDeb1) Then
Me.TxtHDeb1 = Format(Me.TxtHDeb1 / 24, "hh:mm")
End If
If Not IsDate(Me.TxtHDeb1) Then Cancel = True
End Sub

Private Sub TxtHfin1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If InStr(Me.TxtHfin1, ":") = 0 And IsNumeric(Me.TxtHfin1) Then
Me.TxtHfin1 = Format(Me.TxtHfin1 / 24, "hh:mm")
End If
If Not IsDate(Me.TxtHfin1) Then Cancel = True
End Sub

Private Sub B_valid_Click()
ligne = Sheets(1).[A65000].End(xlUp).Row
For i = 1 To 4
If Me("txtAct" & i) <> "" Then
Sheets(1).Cells(ligne + i, 1) = Me("txtAct" & i)
Sheets(1).Cells(ligne + i, 2) = CDate(Me("txtHDeb" & i))
Sheets(1).Cells(ligne + i, 3) = CDate(Me("txtHfin" & i))
Sheets(1).Cells(ligne + i, 4) = Me("TxtNPers" & i)
End If
Next i
End Sub

Modules de classe:

Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_change()
For i = 1 To 4
UserForm1("txtAct" & i) = UCase(UserForm1("txtAct" & i))
Next
End Sub

Public WithEvents GrSaisie2 As MSForms.TextBox
Private Sub GrSaisie2_change()
For i = 1 To 4
If IsNumeric(UserForm1("TxtTotACT" & i)) Then
t = t + CDbl(UserForm1("TxtTotACT" & i))
End If
Next i
UserForm1.TextBox351 = t
End Sub

http://cjoint.com/?cyq7WQuyT8

JB

On 24 fév, 14:52, "Amalric Parré" wrote:



Bonjour à vous,

Plutôt qu'un grand discours où j'aurais du mal à me faire comprendre,
je
préfère vous laisser un fichier joint à ce message pour que vous
compreniez
mes soucis actuel avec mon USF !

J'espère que vous m'aiderez à sortir de ce "guêpier".

D'avance, merci pour vos efforts.

Cdt

Amalric

http://cjoint.com/?cyoW3UXwtL- Masquer le texte des messages
précédents -


- Afficher le texte des messages précédents -







Avatar
JB
-Si 5,25 représente des centièmes, il est normal d'obtenir 5:15 en
minutes
-Pour convertir 5,25 en 5:25

Private Sub TxtHDeb1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
Me.TxtHDeb1 = Replace(Me.TxtHDeb1, ",", ":")
If InStr(Me.TxtHDeb1, ":") = 0 And IsNumeric(Me.TxtHDeb1) Then
Me.TxtHDeb1 = Format(Me.TxtHDeb1 / 24, "hh:mm")
End If
If Not IsDate(Me.TxtHDeb1) Then Cancel = True
End Sub

http://cjoint.com/?cysTrquynE


JB

On 24 fév, 18:07, "Amalric Parré" wrote:
Re,

Il y a des bugs dans l'appli :
- quand je saisie "5,25" (centième d'heure) le résultat est "05:15"
- quand je clique sur le bouton "VALIDER", un message d'erreur apparaît

Si vous pouvez trouver d'où cela provient...

Merci

A+
Amalric

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

Qq remarques:

-Les libellés sont réalisés avec des TextBox. Les labels (A) seraien t
préférables.
-La saisie des activités pourrait se faire avec des ComboBox

JB
On 24 fév, 17:08, "Amalric Parré" wrote:



Bonjour et merci JB !

Je vais tester ce code.

A+

Almaric

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

Bonjour,

Dim Txt(1 To 4) As New ClasseSaisie
Dim Txt2(1 To 4) As New ClasseSaisie2

Private Sub UserForm_Initialize()
For i = 1 To 4
Me("txtAct" & i).MaxLength = 2
Me("TxtNPers" & i).MaxLength = 1
Set Txt(i).GrSaisie = Me("txtAct" & i)
Set Txt2(i).GrSaisie2 = Me("TxtTotACT" & i)
Next i
End Sub

Private Sub TxtHDeb1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If InStr(Me.TxtHDeb1, ":") = 0 And IsNumeric(Me.TxtHDeb1) Then
Me.TxtHDeb1 = Format(Me.TxtHDeb1 / 24, "hh:mm")
End If
If Not IsDate(Me.TxtHDeb1) Then Cancel = True
End Sub

Private Sub TxtHfin1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If InStr(Me.TxtHfin1, ":") = 0 And IsNumeric(Me.TxtHfin1) Then
Me.TxtHfin1 = Format(Me.TxtHfin1 / 24, "hh:mm")
End If
If Not IsDate(Me.TxtHfin1) Then Cancel = True
End Sub

Private Sub B_valid_Click()
ligne = Sheets(1).[A65000].End(xlUp).Row
For i = 1 To 4
If Me("txtAct" & i) <> "" Then
Sheets(1).Cells(ligne + i, 1) = Me("txtAct" & i)
Sheets(1).Cells(ligne + i, 2) = CDate(Me("txtHDeb" & i))
Sheets(1).Cells(ligne + i, 3) = CDate(Me("txtHfin" & i))
Sheets(1).Cells(ligne + i, 4) = Me("TxtNPers" & i)
End If
Next i
End Sub

Modules de classe:

Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_change()
For i = 1 To 4
UserForm1("txtAct" & i) = UCase(UserForm1("txtAct" & i))
Next
End Sub

Public WithEvents GrSaisie2 As MSForms.TextBox
Private Sub GrSaisie2_change()
For i = 1 To 4
If IsNumeric(UserForm1("TxtTotACT" & i)) Then
t = t + CDbl(UserForm1("TxtTotACT" & i))
End If
Next i
UserForm1.TextBox351 = t
End Sub

http://cjoint.com/?cyq7WQuyT8

JB

On 24 fév, 14:52, "Amalric Parré" wrote:

Bonjour à vous,

Plutôt qu'un grand discours où j'aurais du mal à me faire compre ndre, je
préfère vous laisser un fichier joint à ce message pour que vous
compreniez
mes soucis actuel avec mon USF !

J'espère que vous m'aiderez à sortir de ce "guêpier".

D'avance, merci pour vos efforts.

Cdt

Amalric

http://cjoint.com/?cyoW3UXwtL-Masquer le texte des messages précéde nts -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -




Avatar
Misange
Quelle arogance !
Vous êtes la responsable de ce forum ?
Non ? Alors veuillez passer votre chemin, il ya sûrement d'autres bénévoles
plus respectueux que vous et qui ont peut-être envie de répondre ne
serait-ce qau'à un de mes problèmes.
Je ne demande pas à ce que le travail soit du "tout fait", j'essaye
seulement de me former à VBA et à demander conseils à des personnes
expérimentées !
De plus je remarque vous êtes coutumière de ce genre de réaction ! Vous vous
croyez qui et où ?

Et pas de "Tu" avec moi, nous n'avons élevé des vaches ensemble que je sache
!!!


1)Il est d'usage sur ce forum de tutoyer les gens, cela n'a jamais été
une marque d'irrespect ou de familiarité. C'est juste une habitude
convivale mais de fait avec des persones comme vous, je reviens au vous
sans aucun problème, je ne souhaiterais vraiment pas garder les vaches
avec vous.
2)Je n'apprécie vraiment mais vraiment pas les demandes du genre de la
votre, je le dis, le redis, c'est mon droit et encore heureux, beaucoup
de gens me suivent sur ce terrain. JB ne le fait pas, c'est tout autant
son droit mais je ne le soutiens pas dans cette démarche et il le sait.
La raison ? je m'en suis expliquée de nombreuses fois. Recommençons : ce
forum fonctionne depuis de nombreuses années avec un ensemble de
personnes qui vont des silencieux, simples lecteurs, aux contributeurs
acharnés, des grands débutants aux confirmés, des formulistes aux
VBAistes. Sur google groups, le contenu de ce NG est archivé ce qui
permet de retrouver les contributions. C'est un réel outil de formation,
encore faut-il que son contenu soit pertinent.

Une question postée dans un fichier joint est une question illisible
dans 3 semaines. La réponse "facile" à ce genre de demande c'est de
renvoyer un classeur qui lui non plus n'est plus accessible dans 3
semaines. Super... Si vous aimez l'instantané il y a d'autres outils que
les forums pour ça.

Je trouve oui que c'est prendre les répondeurs pour des chaouches comme
dirait le grand banni de leur poser un classeur en leur disant en gros
"Voilà mon classeur débrouillez vous pour trouver quels sont mes
problèmes, moi j'ai pas le courage de formuler mes questions".
L'expérience montre en prime que bien souvent dans ce cas là (je ne sais
pas si c'est le votre, je n'ai pas ouvert votre classeur) le
questionneur poste un fichier qui contient des tas de trucs sans aucun
rapport avec le problème à régler.

3) Je ne suis pas responsable de ce forum mais Microsoft (qui malgré
tout est l'hébergeur de ce NG...) a cru utile de me donner un statut
particulier pour me remercier du boulot de collecte et d'animation que
j'y fais, notamment sur excelabo. Depuis de nombreuses années que ce
forum tourne, il y a toujours eu besoin de rappeller à ceux qui
débarquent, que ce forum tournait avant eux, et bien, et qu'une de ses
spécificité c'est l'ambiance amicale qui y règne. Alors des agressions
comme la votre ont assez peu de chances de trouver un écho très large.
Ce n'est pas arrogance de ma part de le dire, c'est juste une
observation confortée à de nombreuses reprise. Le jour ou le consensus
sera pour dire faisons un chat avec des fichiers temporaires, je ne
participerai surement plus (vous avez le droit de penser bon débarras)
et je ne serai certainement pas la seule.

--
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

1 2