Explications de code VBA (Esthétique !!!)
Le
DT
Bonsoir à tous
Afin de revoir mon projet sur les conseils de deux fervents bénévoles qui se
reconnaitrons !!
J'aimerais des explications, ligne à ligne d'une partie d'un code et ceci
afin de savoir avec exactitude ou en est l'execution de celui ci.
Private Sub ChargementListe(param)
Dim l As Integer
Dim Plage As String
'Définition de la plage de cellules à filtrer
l = Feuil2.Range("A65536").End(xlUp).Row
Plage = Feuil2.Range("A2:J" & l).Address
Set plage1 = Feuil2.[_filterdatabase].Offset(1)
On Error Resume Next
If param = "debut" Then
Set plage1 = Feuil2.Range("A2:A" & l)
Else
Set plage1 = plage1.Resize(plage1.Rows.Count - 1,
1).SpecialCells(xlCellTypeVisible)
End If
If Err.Number <> 0 Then
Err.Clear
If param = "fin" Then
MsgBox "Aucun enregistrement sélectionné"
CmbNouvelle_Click
Range("A1:J1").Select
Selection.AutoFilter
Range("A1").Select
Exit Sub
End If
End If
On Error GoTo 0
Merci de votre coopération.
David
PS aux fervents bénévoles !
Grace à F8, j'ai déjà supprimé beaucoup de boucle qui ne servaient à rien du
tout !
et quand j'aurais compris avec exactitude le code présent, j'attaquerais les
changement prévu
Afin de revoir mon projet sur les conseils de deux fervents bénévoles qui se
reconnaitrons !!
J'aimerais des explications, ligne à ligne d'une partie d'un code et ceci
afin de savoir avec exactitude ou en est l'execution de celui ci.
Private Sub ChargementListe(param)
Dim l As Integer
Dim Plage As String
'Définition de la plage de cellules à filtrer
l = Feuil2.Range("A65536").End(xlUp).Row
Plage = Feuil2.Range("A2:J" & l).Address
Set plage1 = Feuil2.[_filterdatabase].Offset(1)
On Error Resume Next
If param = "debut" Then
Set plage1 = Feuil2.Range("A2:A" & l)
Else
Set plage1 = plage1.Resize(plage1.Rows.Count - 1,
1).SpecialCells(xlCellTypeVisible)
End If
If Err.Number <> 0 Then
Err.Clear
If param = "fin" Then
MsgBox "Aucun enregistrement sélectionné"
CmbNouvelle_Click
Range("A1:J1").Select
Selection.AutoFilter
Range("A1").Select
Exit Sub
End If
End If
On Error GoTo 0
Merci de votre coopération.
David
PS aux fervents bénévoles !
Grace à F8, j'ai déjà supprimé beaucoup de boucle qui ne servaient à rien du
tout !
et quand j'aurais compris avec exactitude le code présent, j'attaquerais les
changement prévu
Poser une question
Voici un exemple avec de quoi t'amuser : http://cjoint.com/?ccdV3gU8LD
"DT"
Bonsoir à tous
Afin de revoir mon projet sur les conseils de deux fervents bénévoles qui se
reconnaitrons !!
J'aimerais des explications, ligne à ligne d'une partie d'un code et ceci
afin de savoir avec exactitude ou en est l'execution de celui ci.
Private Sub ChargementListe(param)
Dim l As Integer
Dim Plage As String
'Définition de la plage de cellules à filtrer
l = Feuil2.Range("A65536").End(xlUp).Row
Plage = Feuil2.Range("A2:J" & l).Address
Set plage1 = Feuil2.[_filterdatabase].Offset(1)
On Error Resume Next
If param = "debut" Then
Set plage1 = Feuil2.Range("A2:A" & l)
Else
Set plage1 = plage1.Resize(plage1.Rows.Count - 1,
1).SpecialCells(xlCellTypeVisible)
End If
If Err.Number <> 0 Then
Err.Clear
If param = "fin" Then
MsgBox "Aucun enregistrement sélectionné"
CmbNouvelle_Click
Range("A1:J1").Select
Selection.AutoFilter
Range("A1").Select
Exit Sub
End If
End If
On Error GoTo 0
Merci de votre coopération.
David
PS aux fervents bénévoles !
Grace à F8, j'ai déjà supprimé beaucoup de boucle qui ne servaient à rien du
tout !
et quand j'aurais compris avec exactitude le code présent, j'attaquerais les
changement prévu
Merci beaucoup. Très bon exercice.
Juste une petite correction :
Heu plusieurs jours.....!
Bonne journée
Je suis toujours sur mon document "technique" devant permettre à une tierce
personne de maintenir une appli comprenant :
- 9623 lignes de code et commentaires,
- 24 userforms avec leur code inclus,
- 4 modules standard,
- 6 feuilles cachées avec des données,
- et évidemment le ThisWorkbook
Ceci étant précisé, en fonction de ce que tu as tenté d'expliciter à DT,
crois-tu qu'il faille que je fasse une demande de report
de ma date de départ en inactivité ( 1er Août 2010 ) ou bien alors je
propose simplement l'article 22 (1) ?
A priori, je serais pour la 2ème solution
Pounet95
(1) chacun se dém....... comme il peut ;o)))))
"michdenis" discussion :
| crois-tu qu'il faille que je fasse une demande de report
| de ma date de départ en inactivité ( 1er Août 2010 )
| ou bien alors je propose simplement l'article 22 (1) ?
Je ne suis pas Européen, je n'ai aucune idée du contenu de
l'article 22... Ce que tu demandes semble relever d'une
décision personnelle quant à ta carrière professionnelle
que d'un problème d'Excel.
Si ma perception de ta question est bonne, je m'abstiendrai
de te faire le moindre commentaire. Il y a sûrement dans
ton environnement immédiat des gens en meilleure mesure
pour te conseiller que moi.
cela dépend surtout de ta qualification et de ton contrat de travail...
sachant que déontologiquement analyser et programmer est un domaine de métier qui suppose
une minimum de connaissance de l'état de l'art et savoir faire dans le dit "domaine"...
selon le cas la non-observance de ces préconisations peuvent alors ou non t'etre reprochées
et même subséquement imputées à ta hierarchie dans le cas d'inadéquation activité/contrat de travail
;o)) aprés reste le contrat moral, mais les prudhommes sont incompétents dans ce cas.
ayant été moi-même dans ce cas,
j'ai assumé une assistance à distance pendant 6 mois
;o))
Bon courage, une retraite ça se prépare !!!