Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

VBA - Pour remonter à la ligne 1

10 réponses
Avatar
Aiwa
Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne à D5, mais
j'aimerais aussi remonter à la ligne 1.

Merci à l'avance

Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistrée le 2004-05-14

Set Plg =
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub

10 réponses

Avatar
isabelle
bonjour Aiwa,

Set Plg = _
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Application.GoTo Reference:=[A1], Scroll:=True
Range("D5").Select

isabelle


Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne à D5, mais
j'aimerais aussi remonter à la ligne 1.

Merci à l'avance

Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistrée le 2004-05-14

Set Plg > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub


Avatar
Aiwa
Merci Beaucoup isabelle


bonjour Aiwa,

Set Plg = _
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Application.GoTo Reference:=[A1], Scroll:=True
Range("D5").Select

isabelle


Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne à D5, mais
j'aimerais aussi remonter à la ligne 1.

Merci à l'avance

Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistrée le 2004-05-14

Set Plg > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub





Avatar
Aiwa
J'ai essayer ta macro elle marche bien mais dans celle-ci ca marche pas
pourquoi ? Merci encore

Sub Bouton25_QuandClic()
'
' Bouton25_QuandClic Macro

Dim Retour As Integer
Retour = MsgBox("êtes-vous sûr de vouloir effacer le contenu", vbYesNo +
vbCritical, "Formulaire Guichet Unique")
If Retour = vbYes The
Range("I8,M8,D10:G10,L10,D26,D28:M28,D29:M29,D30:M30,D34:G34,D36,G36,I36,L36,F16,J16,F20,J20,F22,J22,F24,J24,F26").ClearContents
Application.Goto Reference:=[A1], Scroll:=True
Range("i8").Select
End If
End Sub



Merci Beaucoup isabelle


bonjour Aiwa,

Set Plg = _
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Application.GoTo Reference:=[A1], Scroll:=True
Range("D5").Select

isabelle


Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne à D5, mais
j'aimerais aussi remonter à la ligne 1.

Merci à l'avance

Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistrée le 2004-05-14

Set Plg > > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub







Avatar
isabelle
bonjour Aiwa,

essaie en remplacant,
Application.Goto Reference:=[A1], Scroll:=True

par,
Application.Goto Reference:=Range("A1"), Scroll:=True

isabelle



J'ai essayer ta macro elle marche bien mais dans celle-ci ca marche pas
pourquoi ? Merci encore

Sub Bouton25_QuandClic()
'
' Bouton25_QuandClic Macro

Dim Retour As Integer
Retour = MsgBox("êtes-vous sûr de vouloir effacer le contenu", vbYesNo +
vbCritical, "Formulaire Guichet Unique")
If Retour = vbYes Then
Range("I8,M8,D10:G10,L10,D26,D28:M28,D29:M29,D30:M30,D34:G34,D36,G36,I36,L36,F16,J16,F20,J20,F22,J22,F24,J24,F26").ClearContents
Application.Goto Reference:=[A1], Scroll:=True
Range("i8").Select
End If
End Sub


Merci Beaucoup isabelle


bonjour Aiwa,

Set Plg = _
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Application.GoTo Reference:=[A1], Scroll:=True
Range("D5").Select

isabelle


Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne à D5, mais
j'aimerais aussi remonter à la ligne 1.

Merci à l'avance

Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistrée le 2004-05-14

Set Plg > > > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub









Avatar
Aiwa
Malheureusement ca marche pas ca laisse comme erreur de boggage
Erreur d'exécution '1004'
La méthode 'Goto' de l'objet'_Application a échoué
J'ai des cellule vérouiller ca peut tu faire de quoi ?




bonjour Aiwa,

essaie en remplacant,
Application.Goto Reference:=[A1], Scroll:=True

par,
Application.Goto Reference:=Range("A1"), Scroll:=True

isabelle



J'ai essayer ta macro elle marche bien mais dans celle-ci ca marche pas
pourquoi ? Merci encore

Sub Bouton25_QuandClic()
'
' Bouton25_QuandClic Macro

Dim Retour As Integer
Retour = MsgBox("êtes-vous sûr de vouloir effacer le contenu", vbYesNo +
vbCritical, "Formulaire Guichet Unique")
If Retour = vbYes Then
Range("I8,M8,D10:G10,L10,D26,D28:M28,D29:M29,D30:M30,D34:G34,D36,G36,I36,L36,F16,J16,F20,J20,F22,J22,F24,J24,F26").ClearContents
Application.Goto Reference:=[A1], Scroll:=True
Range("i8").Select
End If
End Sub


Merci Beaucoup isabelle


bonjour Aiwa,

Set Plg = _
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Application.GoTo Reference:=[A1], Scroll:=True
Range("D5").Select

isabelle


Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne à D5, mais
j'aimerais aussi remonter à la ligne 1.

Merci à l'avance

Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistrée le 2004-05-14

Set Plg > > > > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub












Avatar
isabelle
lorsque tu exécutais seulement :

Set Plg =
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select

il n'y avait pas d'erreur à la ligne: Range("D5").Select ?

isabelle


Malheureusement ca marche pas ca laisse comme erreur de boggage
Erreur d'exécution '1004'
La méthode 'Goto' de l'objet'_Application a échoué
J'ai des cellule vérouiller ca peut tu faire de quoi ?


bonjour Aiwa,

essaie en remplacant,
Application.Goto Reference:=[A1], Scroll:=True

par,
Application.Goto Reference:=Range("A1"), Scroll:=True

isabelle



J'ai essayer ta macro elle marche bien mais dans celle-ci ca marche pas
pourquoi ? Merci encore

Sub Bouton25_QuandClic()
'
' Bouton25_QuandClic Macro

Dim Retour As Integer
Retour = MsgBox("êtes-vous sûr de vouloir effacer le contenu", vbYesNo +
vbCritical, "Formulaire Guichet Unique")
If Retour = vbYes Then
Range("I8,M8,D10:G10,L10,D26,D28:M28,D29:M29,D30:M30,D34:G34,D36,G36,I36,L36,F16,J16,F20,J20,F22,J22,F24,J24,F26").ClearContents
Application.Goto Reference:=[A1], Scroll:=True
Range("i8").Select
End If
End Sub


Merci Beaucoup isabelle


bonjour Aiwa,

Set Plg = _
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Application.GoTo Reference:=[A1], Scroll:=True
Range("D5").Select

isabelle


Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne à D5, mais
j'aimerais aussi remonter à la ligne 1.

Merci à l'avance

Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistrée le 2004-05-14

Set Plg > > > > > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub














Avatar
Aiwa
Non aucune erreur ca fonctionnais bien


lorsque tu exécutais seulement :

Set Plg =
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select

il n'y avait pas d'erreur à la ligne: Range("D5").Select ?

isabelle


Malheureusement ca marche pas ca laisse comme erreur de boggage
Erreur d'exécution '1004'
La méthode 'Goto' de l'objet'_Application a échoué
J'ai des cellule vérouiller ca peut tu faire de quoi ?


bonjour Aiwa,

essaie en remplacant,
Application.Goto Reference:=[A1], Scroll:=True

par,
Application.Goto Reference:=Range("A1"), Scroll:=True

isabelle



J'ai essayer ta macro elle marche bien mais dans celle-ci ca marche pas
pourquoi ? Merci encore

Sub Bouton25_QuandClic()
'
' Bouton25_QuandClic Macro

Dim Retour As Integer
Retour = MsgBox("êtes-vous sûr de vouloir effacer le contenu", vbYesNo +
vbCritical, "Formulaire Guichet Unique")
If Retour = vbYes Then
Range("I8,M8,D10:G10,L10,D26,D28:M28,D29:M29,D30:M30,D34:G34,D36,G36,I36,L36,F16,J16,F20,J20,F22,J22,F24,J24,F26").ClearContents
Application.Goto Reference:=[A1], Scroll:=True
Range("i8").Select
End If
End Sub


Merci Beaucoup isabelle


bonjour Aiwa,

Set Plg = _
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Application.GoTo Reference:=[A1], Scroll:=True
Range("D5").Select

isabelle


Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne à D5, mais
j'aimerais aussi remonter à la ligne 1.

Merci à l'avance

Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistrée le 2004-05-14

Set Plg > > > > > > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub

















Avatar
isabelle
je n'arrive pas à reproduire ton problème même en verrouillant la cellule A1 et en protégeant la feuille.
si tu veut bien tenter un autre essaie avec :

Set Plg =
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("A1").Select
Range("D5").Select

isabelle


Non aucune erreur ca fonctionnais bien


lorsque tu exécutais seulement :

Set Plg > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select

il n'y avait pas d'erreur à la ligne: Range("D5").Select ?

isabelle


Malheureusement ca marche pas ca laisse comme erreur de boggage
Erreur d'exécution '1004'
La méthode 'Goto' de l'objet'_Application a échoué
J'ai des cellule vérouiller ca peut tu faire de quoi ?


bonjour Aiwa,

essaie en remplacant,
Application.Goto Reference:=[A1], Scroll:=True

par,
Application.Goto Reference:=Range("A1"), Scroll:=True

isabelle



J'ai essayer ta macro elle marche bien mais dans celle-ci ca marche pas
pourquoi ? Merci encore

Sub Bouton25_QuandClic()
'
' Bouton25_QuandClic Macro

Dim Retour As Integer
Retour = MsgBox("êtes-vous sûr de vouloir effacer le contenu", vbYesNo +
vbCritical, "Formulaire Guichet Unique")
If Retour = vbYes Then
Range("I8,M8,D10:G10,L10,D26,D28:M28,D29:M29,D30:M30,D34:G34,D36,G36,I36,L36,F16,J16,F20,J20,F22,J22,F24,J24,F26").ClearContents
Application.Goto Reference:=[A1], Scroll:=True
Range("i8").Select
End If
End Sub


Merci Beaucoup isabelle


bonjour Aiwa,

Set Plg = _
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Application.GoTo Reference:=[A1], Scroll:=True
Range("D5").Select

isabelle


Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne à D5, mais
j'aimerais aussi remonter à la ligne 1.

Merci à l'avance

Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistrée le 2004-05-14

Set Plg > > > > > > > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub



















Avatar
Aiwa
Ca marche Isabelle merci beaucoup de ta patience.

Si tu aurais juste un site a me donner pour l'initiation et pour de bonne
exemple
Laquelle me conseillerais-tu


je n'arrive pas à reproduire ton problème même en verrouillant la cellule A1 et en protégeant la feuille.
si tu veut bien tenter un autre essaie avec :

Set Plg =
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("A1").Select
Range("D5").Select

isabelle


Non aucune erreur ca fonctionnais bien


lorsque tu exécutais seulement :

Set Plg > > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select

il n'y avait pas d'erreur à la ligne: Range("D5").Select ?

isabelle


Malheureusement ca marche pas ca laisse comme erreur de boggage
Erreur d'exécution '1004'
La méthode 'Goto' de l'objet'_Application a échoué
J'ai des cellule vérouiller ca peut tu faire de quoi ?


bonjour Aiwa,

essaie en remplacant,
Application.Goto Reference:=[A1], Scroll:=True

par,
Application.Goto Reference:=Range("A1"), Scroll:=True

isabelle



J'ai essayer ta macro elle marche bien mais dans celle-ci ca marche pas
pourquoi ? Merci encore

Sub Bouton25_QuandClic()
'
' Bouton25_QuandClic Macro

Dim Retour As Integer
Retour = MsgBox("êtes-vous sûr de vouloir effacer le contenu", vbYesNo +
vbCritical, "Formulaire Guichet Unique")
If Retour = vbYes Then
Range("I8,M8,D10:G10,L10,D26,D28:M28,D29:M29,D30:M30,D34:G34,D36,G36,I36,L36,F16,J16,F20,J20,F22,J22,F24,J24,F26").ClearContents
Application.Goto Reference:=[A1], Scroll:=True
Range("i8").Select
End If
End Sub


Merci Beaucoup isabelle


bonjour Aiwa,

Set Plg = _
Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Application.GoTo Reference:=[A1], Scroll:=True
Range("D5").Select

isabelle


Bonjour j'aimerais savoir quel ligne je peut ajouter a ma macro / Dans ma
macro quand je clique sur le bouton, ca effacer et ce positionne à D5, mais
j'aimerais aussi remonter à la ligne 1.

Merci à l'avance

Sub Fax_effacer()
'
' Fax_effacer Macro
' Macro enregistrée le 2004-05-14

Set Plg > > > > > > > > > Range("D5,B8:G8,b9:G9,B10:G10,B28:K28,B29:K29,B30:K30,B31:K31,B32:K32,B33:K33,B34:K34,J8:K8,J9:K9")
Plg.ClearContents
Range("D5").Select
End Sub






















Avatar
isabelle
ce fut avec plaisir Aiwa ,
et je répondrais pour sur le site du mpfe, http://www.excelabo.net/structure.php
tu y retrouvera également plein de lien vers d'autre site traitant d'excel.
si Monique était ici, elle t'aurais sûrement envoyé le message de bienvenue suivant :
_________________________________________________________________
Bonjour Aiwa,
bienvenue sur mpfe :-)

Sur les sites proposés dans ce message d'accueil, tu découvriras des
cours (avec ou sans VBA), des classeurs d'exemples à télécharger, des
macros, des trucs et astuces... et sans doute une solution à ton
problème sur cette page
http://www.excelabo.net/xl/fichiers.php

Pour connaître les habitudes de mpfe (et les erreurs à éviter, comme les
fichiers joints...), tu peux lire ces messages publiés régulièrement
ici, avec l'un de ces intitulés
- FAQ MPFE http://dj.joss.free.fr/netiquet.htm (nétiquette, conseils...)
- [Charte] du forum MPFE http://minilien.com/?AVJMd7Sp4o
et consulter cette page
http://www.excelabo.net/mpfe/connection.htm
(connexion,conseils...), à consulter absolument si tu suis le forum
depuis un site web (la solution la moins efficace et la moins
confortable) ou avec le serveur de Wanadoo (très peu performant quant au
délai d'affichage et au nombre de messages publiés).
Le serveur à utiliser : news.microsoft.com - ou cliquer directement sur
news:microsoft.public.fr.excel

Pour les débutants, voilà 5 bons trucs pour apprendre vite :
- utiliser souvent l'enregistreur de macro et analyser le code obtenu
- utiliser la touche F1 pour appeler l'aide (à propos du mot-clef, en
VBA, sur lequel se trouve le curseur)
- tester et essayer de comprendre des réponses faites à d'autres
- consulter souvent les sites renseignés
- ne jamais hésiter à poser des questions sur le forum

Voici la liste des sites dédiés à Excel, réalisés par des mpfie(ne)s et
que nous devons tous avoir dans nos favoris.
Débutant ou utilisateur confirmé, tu y trouveras de quoi apprendre,
progresser et résoudre bien des problèmes.
(la date d'une mise à jour est signalée par ** ** )
http://dj.joss.free.fr/faq.htm ** 05/11/03 **
la FAQ du forum, mise en oeuvre par Daniel et à lire absolument par tout
nouveau sur mpfe : la bonne manière de participer au forum (charte,
souriettes, abréviations...), liens, bibliographie, les réponses aux
questions le plus souvent posées, des trucs et astuces, un moteur de
recherche interne et externe (Yahoo), une page débutants
http://www.excelabo.net/index.php ** 21/12/03 **
le site humoro-ludique de Misange : une importante rubrique "Trucs et
astuces", des classeurs à télécharger, un glossaire, une page débutants,
des jeux en VBA... et un méta-moteur de recherche sur 6 sites de cette
liste...
mais aussi tout ce qui fait "l'esprit mpfe", les perles, les gifs...
et,sur http://fotoflo.free.fr/ les photos des soupers/dîners de mpfe
http://longre.free.fr/ ** 27/03/03 **
le site de Laurent, notre Grand Chef à Quatre Plumes : de très nombreux
liens commentés, les macros pointues de Laurent... (techniques de
programmation, calculs de dates et d'heures, Api...)
http://jacxl.free.fr/mpfe/ ** 01/03/03 **
le site de : les graphiques, la bourse, le Web, un cours VBA, un
moteur de recherche à la page Aide... et le trombinoscope des mpfien(ne)s
http://ericrenaud.free.fr/index.html ** 06/12/03 **
le site d'Eric : particulièrement destiné aux débutants (UserForm...)
http://perso.wanadoo.fr/frederic.sigonneau ** 06/05/03**
le site de Frédéric : gestions de temps, VBA pour Excel... une mine d'or
de macros
http://xlbysteph.free.fr/aideinformatique/mainexcel.html ** 24/04/03 **
le site de Stéphane : cours VBA, Excel 4 (ou 5) et Excel 97/2000...
http://perso.club-internet.fr/bdafonse/excel_1.htm
le site de Bruno : formules, classeurs à télécharger...
http://cherbe.free.fr/ ** 14/03/03 **
le site de Christian : initiation à Excel, initiation à VBA, Excel
avancé sans VBA... (cours à télécharger)
http://www.ilyapa.net/excel/ ** 22/05/02 **
le site de Pascal : procédures VBA, composants par
l'exemple,calendriers, jeux
http://intendant.free.fr/ ** 13/03/02 **
le site de Thierry : cours VBA (début et perfectionnement), graphique,
Excel en bureautique...
http://www.polykromy.com/ ** 29/06/03 **
le site de Gaëtan : cours sur Excel sans VBA, les couleurs, des astuces
animées...
http://www.gaboly.com ** 05/02/03 **
le site de Michel, cours Excel et VBA (avec un Mac)...
http://www.excel-downloads.com ** 26/07/03 **
le site de David, des programmes Excel à télécharger
http://mapage.noos.fr/pnoss/excel.html ** 23/08/02 **
le site de Philippe, trucs et astuces, Exoutils (barre d'outils pour
Excel à télécharger)...
http://www.champey.com/
le site de Patrice : les langages de programmation (VB, VBS et VBA)
http://www.anthony-penel.fr.st
le site d'Anthony : des macros appliquées à la finance
http://www.fundp.ac.be/~jmlamber/
le site de Jean-Marie : initiation VBA, TCD, listes, solveur...
http://www.ibelgique.com/OfficeAssistant
le site de Bureauticien : nombreux exemples résolus par VBA,fonctions...
http://www.cathyastuce.com/index.htm
le site de Cathy : cours Excel avec ou sans VBA...
http://perso.wanadoo.fr/jean.duprat
le site de Papy Jean : fiches Excel pour débutants...
http://www.ifrance.com/fleguen/excel.html
le site de Konga : des classeurs d'exercices (fonctions, macros)


Pour une collection très fouillée d'adresses (avec commentaires) :
le classeur de Clément M, à télécharger sur disciplus
Favoris.xls
Et un lien à y ajouter, la liste des constantes intrinsèques de VBA avec
leur valeur numérique (par versions d'Excel) :
http://support.microsoft.com/support/kb/articles/Q112/6/71.ASP
(télécharger: wc0993.exe)

Pour le passage de Excel 4 à Excel 97, un lien proposé par Geo
http://www.microsoft.com/FRANCE/officedev/infotech/info.asp?mar=/FRANCE/officedev/infotech/MacroXLtoVBA.html
(le lien tient sur plusieurs lignes, il se termine par html)
ou http://minilien.com/?5vyhNUG62R

Enfin, pour retrouver d'anciens messages, tu peux aller sur
http://groups.google.com/advanced_group_search
avec les conseils de Clément M pour obtenir les meilleurs résultats :
--- Là, il y a un écran "bilingue" qui permet de faire une recherche
plus ou moins pointue, selon les informations dont l'on dispose.
Une fois que l'on a repéré un message, il est possible de récupérer
l'ensemble de la ficelle, en cliquant sur "Voyez Fil de Discussion (x
articles)".
Je me suis aperçu que Google fonctionnait très mal quand on fait une
recherche avec un nom qui contient des accents. Il semble donc
préférable d'utiliser l'adresse électronique comme nom d'auteur.
Auteur => 3.450 messages
Auteur Clément Marcotte => 1 message
Auteur Clément_Marcotte => 0 message ---

Bonne lecture et à bientôt sur mpfe.
_________________________________________________________________

isabelle