macro

Bonjoir Michèle,

Je n'ai pas vu l'intégralité de la procédure mais dans cette ligne de
code :

Cells(1, 12 + test).Select

Pour qu'elle puisse s'exécuter correctement, "Test" est probablement
une

aucune valeur n'a été attribué à la variable, cette dernière doit
avoir

Si tu considérait une feuille excel comme un grand tableau, l'objet
"Cells" Représente toutes les cellules d'une feuille

excel. Pour pouvoir en désigne une en particulier, l'objet "Cells"
utilise des coordonnées : Lignes et Colonnes (Cells(ligne,

Colonne)).

Dans ton exemple : Cells(1,12)
1 = Cellules de la ligne 1
12 = Cellules de la douzième colonne

Donc Cells(1,12) représente la cellule à l'intersection de la ligne 1
et

Si "Test" a une valeur définie, exemple : Test = 5

Cells(1, 12 + test) = Cells(1, 12 +5) = Cells(1, 17)


Salutations!


"Michèle" a écrit dans le message de
news:

Bonsoir,

S U P E R , ça marche !!!!!
Si je peux abuser de ta bonté, peux-tu m'expliquer ce que signifie
cette

ligne :
Cells(1, 12 + test).Select
et surtout que veux dire le 1 après cells. Pour le reste, j'ai
compris.

Une débutante en VBA reconnaissante ;-)))

Michèle

"Clément Marcotte" a écrit dans
le

message
de news: #

Bonsoir,

Pour une raison ou pour une autre, la cellule a1 ne contient pas
un

entier.
Essaie avec:

dim test as variant



"Michèle BONDIL" a écrit dans le
message de news:%

Bonsoir,

;-((((( ça marche pas.
J'ai un message : erreur d'exécution 13 Incompatibilité de
type

Le débogueur surligne la ligne test=[A1]
Une solution ?
Merci d'avance

Michèle

"Chris Michel" a écrit
dans

le

message de news: 8c6f01c3ea50$92aa8d80$
Désolé pour le Bug! De toute façon, je répondais à côté de
la plaque!

sub collage_perso()

dim test as integer

test=[A1]

range("A2:B50").copy

sheets("feuil2").select

cells(1,12+test).select

Selection.PasteSpecial Paste:=xlValues

end sub

Chris.

-----Message d'origine-----
Bonjour,

Je fais une macro automatique pour copier la zone A2:B50
de la feuil1 par

exemple, dans la feuil2, mais je souhaite changer
l'emplacement de la zone

de destination en fonction d'une valeur contenue dans la
cellule A1 : si A1

= 1 je souhaite que le collage spécial des valeurs se
fasse en M1, si A1 = 2

je souhaite que le collage spécial se fasse en N1,
etc......

Quelle ligne rajouter pour cela ?
Merci
Cordialement

Michèle


.

-----Message d'origine-----
Bonjour,

et merci à tous pour vos explications si détaillées :
j'ai bien compris.

Maintenant, si je veux recopier non pas une, mais
quatre colonnes de la

feuille 1 dans la feuille 2, il me faut décaler de 4
colonnes la

destination des cellules copiées. Pour cela, j'essaie de
faire varier la

valeur de A1 selon une progression arithmétique de raison
4, mais je n'y

arrive pas ;-(((( Hou la la, c'est loin, les maths),
sachant que A1 est

dépendant d'une cellule qui varie de 1 à 12 (les 12 mois
de l'année),

comment faire ?
J'ai cherché à faire varier A1 ou à modifier les
formules de la macro,

mais je n'y arrive pas.
Merci et bonne journée

Michèle


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

Bonjoir Michèle,

Je n'ai pas vu l'intégralité de la procédure mais
dans cette ligne de

code :

Cells(1, 12 + test).Select

Pour qu'elle puisse s'exécuter correctement, "Test"
est probablement

une
variable à laquelle on lui a attribué une valeur. Si

aucune valeur n'a été attribué à la variable, cette
dernière doit

avoir
la valeur 0

Si tu considérait une feuille excel comme un grand
tableau, l'objet

"Cells" Représente toutes les cellules d'une feuille

excel. Pour pouvoir en désigne une en particulier,
l'objet "Cells"

utilise des coordonnées : Lignes et Colonnes (Cells
(ligne,

Colonne)).

Dans ton exemple : Cells(1,12)
1 = Cellules de la ligne 1
12 = Cellules de la douzième colonne

Donc Cells(1,12) représente la cellule à
l'intersection de la ligne 1

et
de la colonne 12 .

Si "Test" a une valeur définie, exemple : Test = 5

Cells(1, 12 + test) = Cells(1, 12 +5) = Cells(1,
17)

Salutations!


"Michèle" a écrit
dans le message de

news:

Bonsoir,

S U P E R , ça marche !!!!!
Si je peux abuser de ta bonté, peux-tu
m'expliquer ce que signifie

cette

ligne :
Cells(1, 12 + test).Select
et surtout que veux dire le 1 après cells. Pour
le reste, j'ai

compris.

Une débutante en VBA reconnaissante ;-)))

Michèle

"Clément Marcotte"
a écrit dans

le

message
de news: #

Bonsoir,

Pour une raison ou pour une autre, la cellule
a1 ne contient pas

un

entier.
Essaie avec:

dim test as variant



"Michèle BONDIL"
internet.fr> a écrit dans le

message de news:%

Bonsoir,

;-((((( ça marche pas.
J'ai un message : erreur d'exécution 13
Incompatibilité de

type

Le débogueur surligne la ligne test=[A1]
Une solution ?
Merci d'avance

Michèle

"Chris Michel"
a écrit

dans

le

message de news: 8c6f01c3ea50$92aa8d80
$

Désolé pour le Bug! De toute façon, je
répondais à côté de

la plaque!

sub collage_perso()

dim test as integer

test=[A1]

range("A2:B50").copy

sheets("feuil2").select

cells(1,12+test).select

Selection.PasteSpecial Paste:=xlValues

end sub

Chris.

-----Message d'origine-----
Bonjour,

Je fais une macro automatique pour
copier la zone A2:B50

de la feuil1 par

exemple, dans la feuil2, mais je
souhaite changer

l'emplacement de la zone

de destination en fonction d'une valeur
contenue dans la

cellule A1 : si A1

= 1 je souhaite que le collage spécial
des valeurs se

fasse en M1, si A1 = 2

je souhaite que le collage spécial se
fasse en N1,

etc......

Quelle ligne rajouter pour cela ?
Merci
Cordialement

Michèle


.

.

-----Message d'origine-----
Bonjour,

et merci à tous pour vos explications si détaillées :
j'ai bien compris.

Maintenant, si je veux recopier non pas une, mais
quatre colonnes de la

feuille 1 dans la feuille 2, il me faut décaler de 4
colonnes la

destination des cellules copiées. Pour cela, j'essaie de
faire varier la

valeur de A1 selon une progression arithmétique de raison
4, mais je n'y

arrive pas ;-(((( Hou la la, c'est loin, les maths),
sachant que A1 est

dépendant d'une cellule qui varie de 1 à 12 (les 12 mois
de l'année),

comment faire ?
J'ai cherché à faire varier A1 ou à modifier les
formules de la macro,

mais je n'y arrive pas.
Merci et bonne journée

Michèle


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

Bonjoir Michèle,

Je n'ai pas vu l'intégralité de la procédure mais
dans cette ligne de

code :

Cells(1, 12 + test).Select

Pour qu'elle puisse s'exécuter correctement, "Test"
est probablement

une
variable à laquelle on lui a attribué une valeur. Si

aucune valeur n'a été attribué à la variable, cette
dernière doit

avoir
la valeur 0

Si tu considérait une feuille excel comme un grand
tableau, l'objet

"Cells" Représente toutes les cellules d'une feuille

excel. Pour pouvoir en désigne une en particulier,
l'objet "Cells"

utilise des coordonnées : Lignes et Colonnes (Cells
(ligne,

Colonne)).

Dans ton exemple : Cells(1,12)
1 = Cellules de la ligne 1
12 = Cellules de la douzième colonne

Donc Cells(1,12) représente la cellule à
l'intersection de la ligne 1

et
de la colonne 12 .

Si "Test" a une valeur définie, exemple : Test = 5

Cells(1, 12 + test) = Cells(1, 12 +5) = Cells(1,
17)

Salutations!


"Michèle" a écrit
dans le message de

news:

Bonsoir,

S U P E R , ça marche !!!!!
Si je peux abuser de ta bonté, peux-tu
m'expliquer ce que signifie

cette

ligne :
Cells(1, 12 + test).Select
et surtout que veux dire le 1 après cells. Pour
le reste, j'ai

compris.

Une débutante en VBA reconnaissante ;-)))

Michèle

"Clément Marcotte"
a écrit dans

le

message
de news: #

Bonsoir,

Pour une raison ou pour une autre, la cellule
a1 ne contient pas

un

entier.
Essaie avec:

dim test as variant



"Michèle BONDIL"
internet.fr> a écrit dans le

message de news:%

Bonsoir,

;-((((( ça marche pas.
J'ai un message : erreur d'exécution 13
Incompatibilité de

type

Le débogueur surligne la ligne test=[A1]
Une solution ?
Merci d'avance

Michèle

"Chris Michel"
a écrit

dans

le

message de news: 8c6f01c3ea50$92aa8d80
$

Désolé pour le Bug! De toute façon, je
répondais à côté de

la plaque!

sub collage_perso()

dim test as integer

test=[A1]

range("A2:B50").copy

sheets("feuil2").select

cells(1,12+test).select

Selection.PasteSpecial Paste:=xlValues

end sub

Chris.

-----Message d'origine-----
Bonjour,

Je fais une macro automatique pour
copier la zone A2:B50

de la feuil1 par

exemple, dans la feuil2, mais je
souhaite changer

l'emplacement de la zone

de destination en fonction d'une valeur
contenue dans la

cellule A1 : si A1

= 1 je souhaite que le collage spécial
des valeurs se

fasse en M1, si A1 = 2

je souhaite que le collage spécial se
fasse en N1,

etc......

Quelle ligne rajouter pour cela ?
Merci
Cordialement

Michèle


.

.

Bonsoir,

et merci beaucoup. Grâce à tes explications, j'ai pu résoudre mon
problème.
C'était tout simple, mais je cherchais compliqué !!!!!
Je cherche un ouvrage simple, qui commence vraiment par le B A BA et qui
me permette de comprendre le Visual Basic, sa syntaxe, son vocabulaire. J'ai
bien fait du basic ... dans le temps, mais ce n'est pas la même chose, même
si ça y ressemble.
J'ai bien trouvé des sites sur internet, mais très vite il me manque des
infos pour comprendre.
Qui aurait des références à me proposer ?
Bonne soirée

Michèle

"Chris MICHEL" a écrit dans le
message de news: 9b1101c3eb09$5d97d350$
Salut Michèle.

J'ai pas bien compris la teneur de ton nouveau message,
mais je peux t'explquer comment arche la macro pour que tu
puisses la modifier à ta guise.

la variable test serta à récupérer la valeur indiquée en
A1 et qui semble déterminer le reste des opérations.

Comme dans ton message tu avais indiqué que tu voulais
copier la zone A2:B50, j'ai inscrit cette instruction
en "dur", mais on peut assouplir cette partie. Au lieu de

range("A2:B5").copy, essaie de paramétrer la ligne et la
colonne de départ de ta zone de collage, ainsi que la
ligne et la colonne de fin de ta zone de collage. Dans
l'exemple suivant, j'ai mis des instructions revenant à
copier A2:B50, mais tu pourras facilement les modifier:

dim ligdep,coldep,ligfin,colfin as integer

ligdep=2
coldep=1
ligfinP
colfin=2

range(cells(ligdep,coldep),cells(ligfin,colfin)).copy

Après cela, la macro ne fait que sélectionner la première
case de la colonne 12 + test et colle les valeurs à cet
endroit là.

C'est tout ce que je peux faire, à moins que tu n'explique
plus en détails le fonctionnement du fichier (à quoi il
sert et à quoi il ressemble et à quoi sert la macro...)

Bonne journée,

Chris.

-----Message d'origine-----
Bonjour,

et merci à tous pour vos explications si détaillées :
j'ai bien compris.

Maintenant, si je veux recopier non pas une, mais
quatre colonnes de la

feuille 1 dans la feuille 2, il me faut décaler de 4
colonnes la

destination des cellules copiées. Pour cela, j'essaie de
faire varier la

valeur de A1 selon une progression arithmétique de raison
4, mais je n'y

arrive pas ;-(((( Hou la la, c'est loin, les maths),
sachant que A1 est

dépendant d'une cellule qui varie de 1 à 12 (les 12 mois
de l'année),

comment faire ?
J'ai cherché à faire varier A1 ou à modifier les
formules de la macro,

mais je n'y arrive pas.
Merci et bonne journée

Michèle


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

Bonjoir Michèle,

Je n'ai pas vu l'intégralité de la procédure mais
dans cette ligne de

code :

Cells(1, 12 + test).Select

Pour qu'elle puisse s'exécuter correctement, "Test"
est probablement

une
variable à laquelle on lui a attribué une valeur. Si

aucune valeur n'a été attribué à la variable, cette
dernière doit

avoir
la valeur 0

Si tu considérait une feuille excel comme un grand
tableau, l'objet

"Cells" Représente toutes les cellules d'une feuille

excel. Pour pouvoir en désigne une en particulier,
l'objet "Cells"

utilise des coordonnées : Lignes et Colonnes (Cells
(ligne,

Colonne)).

Dans ton exemple : Cells(1,12)
1 = Cellules de la ligne 1
12 = Cellules de la douzième colonne

Donc Cells(1,12) représente la cellule à
l'intersection de la ligne 1

et
de la colonne 12 .

Si "Test" a une valeur définie, exemple : Test = 5

Cells(1, 12 + test) = Cells(1, 12 +5) = Cells(1,
17)

Salutations!


"Michèle" a écrit
dans le message de

news:

Bonsoir,

S U P E R , ça marche !!!!!
Si je peux abuser de ta bonté, peux-tu
m'expliquer ce que signifie

cette

ligne :
Cells(1, 12 + test).Select
et surtout que veux dire le 1 après cells. Pour
le reste, j'ai

compris.

Une débutante en VBA reconnaissante ;-)))

Michèle

"Clément Marcotte"
a écrit dans

le

message
de news: #

Bonsoir,

Pour une raison ou pour une autre, la cellule
a1 ne contient pas

un

entier.
Essaie avec:

dim test as variant



"Michèle BONDIL"
internet.fr> a écrit dans le

message de news:%

Bonsoir,

;-((((( ça marche pas.
J'ai un message : erreur d'exécution 13
Incompatibilité de

type

Le débogueur surligne la ligne test=[A1]
Une solution ?
Merci d'avance

Michèle

"Chris Michel"
a écrit

dans

le

message de news: 8c6f01c3ea50$92aa8d80
$

Désolé pour le Bug! De toute façon, je
répondais à côté de

la plaque!

sub collage_perso()

dim test as integer

test=[A1]

range("A2:B50").copy

sheets("feuil2").select

cells(1,12+test).select

Selection.PasteSpecial Paste:=xlValues

end sub

Chris.

-----Message d'origine-----
Bonjour,

Je fais une macro automatique pour
copier la zone A2:B50

de la feuil1 par

exemple, dans la feuil2, mais je
souhaite changer

l'emplacement de la zone

de destination en fonction d'une valeur
contenue dans la

cellule A1 : si A1

= 1 je souhaite que le collage spécial
des valeurs se

fasse en M1, si A1 = 2

je souhaite que le collage spécial se
fasse en N1,

etc......

Quelle ligne rajouter pour cela ?
Merci
Cordialement

Michèle


.

.

Bonsoir,

et merci beaucoup. Grâce à tes explications, j'ai pu résoudre mon
problème.
C'était tout simple, mais je cherchais compliqué !!!!!
Je cherche un ouvrage simple, qui commence vraiment par le B A BA et qui
me permette de comprendre le Visual Basic, sa syntaxe, son vocabulaire. J'ai
bien fait du basic ... dans le temps, mais ce n'est pas la même chose, même
si ça y ressemble.
J'ai bien trouvé des sites sur internet, mais très vite il me manque des
infos pour comprendre.
Qui aurait des références à me proposer ?
Bonne soirée

Michèle

"Chris MICHEL" a écrit dans le
message de news: 9b1101c3eb09$5d97d350$
Salut Michèle.

J'ai pas bien compris la teneur de ton nouveau message,
mais je peux t'explquer comment arche la macro pour que tu
puisses la modifier à ta guise.

la variable test serta à récupérer la valeur indiquée en
A1 et qui semble déterminer le reste des opérations.

Comme dans ton message tu avais indiqué que tu voulais
copier la zone A2:B50, j'ai inscrit cette instruction
en "dur", mais on peut assouplir cette partie. Au lieu de

range("A2:B5").copy, essaie de paramétrer la ligne et la
colonne de départ de ta zone de collage, ainsi que la
ligne et la colonne de fin de ta zone de collage. Dans
l'exemple suivant, j'ai mis des instructions revenant à
copier A2:B50, mais tu pourras facilement les modifier:

dim ligdep,coldep,ligfin,colfin as integer

ligdep=2
coldep=1
ligfinP
colfin=2

range(cells(ligdep,coldep),cells(ligfin,colfin)).copy

Après cela, la macro ne fait que sélectionner la première
case de la colonne 12 + test et colle les valeurs à cet
endroit là.

C'est tout ce que je peux faire, à moins que tu n'explique
plus en détails le fonctionnement du fichier (à quoi il
sert et à quoi il ressemble et à quoi sert la macro...)

Bonne journée,

Chris.

-----Message d'origine-----
Bonjour,

et merci à tous pour vos explications si détaillées :
j'ai bien compris.

Maintenant, si je veux recopier non pas une, mais
quatre colonnes de la

feuille 1 dans la feuille 2, il me faut décaler de 4
colonnes la

destination des cellules copiées. Pour cela, j'essaie de
faire varier la

valeur de A1 selon une progression arithmétique de raison
4, mais je n'y

arrive pas ;-(((( Hou la la, c'est loin, les maths),
sachant que A1 est

dépendant d'une cellule qui varie de 1 à 12 (les 12 mois
de l'année),

comment faire ?
J'ai cherché à faire varier A1 ou à modifier les
formules de la macro,

mais je n'y arrive pas.
Merci et bonne journée

Michèle


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

Bonjoir Michèle,

Je n'ai pas vu l'intégralité de la procédure mais
dans cette ligne de

code :

Cells(1, 12 + test).Select

Pour qu'elle puisse s'exécuter correctement, "Test"
est probablement

une
variable à laquelle on lui a attribué une valeur. Si

aucune valeur n'a été attribué à la variable, cette
dernière doit

avoir
la valeur 0

Si tu considérait une feuille excel comme un grand
tableau, l'objet

"Cells" Représente toutes les cellules d'une feuille

excel. Pour pouvoir en désigne une en particulier,
l'objet "Cells"

utilise des coordonnées : Lignes et Colonnes (Cells
(ligne,

Colonne)).

Dans ton exemple : Cells(1,12)
1 = Cellules de la ligne 1
12 = Cellules de la douzième colonne

Donc Cells(1,12) représente la cellule à
l'intersection de la ligne 1

et
de la colonne 12 .

Si "Test" a une valeur définie, exemple : Test = 5

Cells(1, 12 + test) = Cells(1, 12 +5) = Cells(1,
17)

Salutations!


"Michèle" a écrit
dans le message de

news:

Bonsoir,

S U P E R , ça marche !!!!!
Si je peux abuser de ta bonté, peux-tu
m'expliquer ce que signifie

cette

ligne :
Cells(1, 12 + test).Select
et surtout que veux dire le 1 après cells. Pour
le reste, j'ai

compris.

Une débutante en VBA reconnaissante ;-)))

Michèle

"Clément Marcotte"
a écrit dans

le

message
de news: #

Bonsoir,

Pour une raison ou pour une autre, la cellule
a1 ne contient pas

un

entier.
Essaie avec:

dim test as variant



"Michèle BONDIL"
internet.fr> a écrit dans le

message de news:%

Bonsoir,

;-((((( ça marche pas.
J'ai un message : erreur d'exécution 13
Incompatibilité de

type

Le débogueur surligne la ligne test=[A1]
Une solution ?
Merci d'avance

Michèle

"Chris Michel"
a écrit

dans

le

message de news: 8c6f01c3ea50$92aa8d80
$

Désolé pour le Bug! De toute façon, je
répondais à côté de

la plaque!

sub collage_perso()

dim test as integer

test=[A1]

range("A2:B50").copy

sheets("feuil2").select

cells(1,12+test).select

Selection.PasteSpecial Paste:=xlValues

end sub

Chris.

-----Message d'origine-----
Bonjour,

Je fais une macro automatique pour
copier la zone A2:B50

de la feuil1 par

exemple, dans la feuil2, mais je
souhaite changer

l'emplacement de la zone

de destination en fonction d'une valeur
contenue dans la

cellule A1 : si A1

= 1 je souhaite que le collage spécial
des valeurs se

fasse en M1, si A1 = 2

je souhaite que le collage spécial se
fasse en N1,

etc......

Quelle ligne rajouter pour cela ?
Merci
Cordialement

Michèle


.

.

Bonjour Michèle,
Malgré les scuds infamants lancés à mon encontre par cet ignoble
vieillard, voici une copie du célèbre

Message de Bienvenue rédigé par Monique (qui tout en nous lisant de
temps à autres est bien occupée par

ailleurs à rendre le net accessible à toutes et tous et à qui j'adresse
mille bisous) ; il présente une

belle collection de références qui devraient t'aider à progresser.
"====================================================================="
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... de nombreux exemples d'utilisation de
formules
http://www.excelabo.net/xl/formules.htm
http://longre.free.fr/pages/form/index.html
http://dj.joss.free.fr/faq.htm#fonctionjjh
http://www.excelabo.net/xl/broll.htm
http://www.polykromy.com/html/cours_app.html

En complément des diverses réponses reçues, tu trouveras solutions et
explications aux problèmes d'impression sur ces pages
http://www.excelabo.net/xl/imprimer.htm
http://dj.joss.free.fr/imprim.htm
http://dj.joss.free.fr/faq.htm
http://jacxl.free.fr/cours_xl/Impression.html


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/?9Ag3gXpmA4
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 ** 14/09/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/xl/debuter.htm ** 13/09/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/ ** 19/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 ** 18/06/03 **
le site d'Eric : particulièrement destiné aux débutants (UserForm...)
http://perso.wanadoo.fr/frederic.sigonneau ** 10/03/03**
le site de Frédéric : gestions de temps, VBA pour Excel... une mine d'or
de macros
http://xlbysteph.free.fr/aideinformatique/web.htm ** 24/04/03 **
le site de Stéphane : cours VBA, Excel 4 (ou 5) et Excel 97/2000...
http://perso.club-internet.fr/bdafonse
le site de Bruno : formules, classeurs à télécharger...
http://cherbe.free.fr/ ** 21/01/02 **
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/ ** 22/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 ** 06/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 ** 08/08/01 **
le site de Bureauticien : nombreux exemples résolus par VBA,fonctions...
http://www.cathyastuce.com/index.htm ** 15/12/01 **
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.

"==================================================================="
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Michèle" a écrit dans le message de
news:%

Bonsoir,

et merci beaucoup. Grâce à tes explications, j'ai pu résoudre mon
problème.
C'était tout simple, mais je cherchais compliqué !!!!!
Je cherche un ouvrage simple, qui commence vraiment par le B A BA et
qui

me permette de comprendre le Visual Basic, sa syntaxe, son
vocabulaire. J'ai

bien fait du basic ... dans le temps, mais ce n'est pas la même chose,
même

si ça y ressemble.
J'ai bien trouvé des sites sur internet, mais très vite il me manque
des

infos pour comprendre.
Qui aurait des références à me proposer ?
Bonne soirée

Michèle

"Chris MICHEL" a écrit dans le
message de news: 9b1101c3eb09$5d97d350$
Salut Michèle.

J'ai pas bien compris la teneur de ton nouveau message,
mais je peux t'explquer comment arche la macro pour que tu
puisses la modifier à ta guise.

la variable test serta à récupérer la valeur indiquée en
A1 et qui semble déterminer le reste des opérations.

Comme dans ton message tu avais indiqué que tu voulais
copier la zone A2:B50, j'ai inscrit cette instruction
en "dur", mais on peut assouplir cette partie. Au lieu de

range("A2:B5").copy, essaie de paramétrer la ligne et la
colonne de départ de ta zone de collage, ainsi que la
ligne et la colonne de fin de ta zone de collage. Dans
l'exemple suivant, j'ai mis des instructions revenant à
copier A2:B50, mais tu pourras facilement les modifier:

dim ligdep,coldep,ligfin,colfin as integer

ligdep=2
coldep=1
ligfinP
colfin=2

range(cells(ligdep,coldep),cells(ligfin,colfin)).copy

Après cela, la macro ne fait que sélectionner la première
case de la colonne 12 + test et colle les valeurs à cet
endroit là.

C'est tout ce que je peux faire, à moins que tu n'explique
plus en détails le fonctionnement du fichier (à quoi il
sert et à quoi il ressemble et à quoi sert la macro...)

Bonne journée,

Chris.

-----Message d'origine-----
Bonjour,

et merci à tous pour vos explications si détaillées :
j'ai bien compris.

Maintenant, si je veux recopier non pas une, mais
quatre colonnes de la

feuille 1 dans la feuille 2, il me faut décaler de 4
colonnes la

destination des cellules copiées. Pour cela, j'essaie de
faire varier la

valeur de A1 selon une progression arithmétique de raison
4, mais je n'y

arrive pas ;-(((( Hou la la, c'est loin, les maths),
sachant que A1 est

dépendant d'une cellule qui varie de 1 à 12 (les 12 mois
de l'année),

comment faire ?
J'ai cherché à faire varier A1 ou à modifier les
formules de la macro,

mais je n'y arrive pas.
Merci et bonne journée

Michèle


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

Bonjoir Michèle,

Je n'ai pas vu l'intégralité de la procédure mais
dans cette ligne de

code :

Cells(1, 12 + test).Select

Pour qu'elle puisse s'exécuter correctement, "Test"
est probablement

une
variable à laquelle on lui a attribué une valeur. Si

aucune valeur n'a été attribué à la variable, cette
dernière doit

avoir
la valeur 0

Si tu considérait une feuille excel comme un grand
tableau, l'objet

"Cells" Représente toutes les cellules d'une feuille

excel. Pour pouvoir en désigne une en particulier,
l'objet "Cells"

utilise des coordonnées : Lignes et Colonnes (Cells
(ligne,

Colonne)).

Dans ton exemple : Cells(1,12)
1 = Cellules de la ligne 1
12 = Cellules de la douzième colonne

Donc Cells(1,12) représente la cellule à
l'intersection de la ligne 1

et
de la colonne 12 .

Si "Test" a une valeur définie, exemple : Test = 5

Cells(1, 12 + test) = Cells(1, 12 +5) = Cells(1,
17)

Salutations!


"Michèle" a écrit
dans le message de

news:

Bonsoir,

S U P E R , ça marche !!!!!
Si je peux abuser de ta bonté, peux-tu
m'expliquer ce que signifie

cette

ligne :
Cells(1, 12 + test).Select
et surtout que veux dire le 1 après cells. Pour
le reste, j'ai

compris.

Une débutante en VBA reconnaissante ;-)))

Michèle

"Clément Marcotte"
a écrit dans

le

message
de news: #

Bonsoir,

Pour une raison ou pour une autre, la cellule
a1 ne contient pas

un

entier.
Essaie avec:

dim test as variant



"Michèle BONDIL"
internet.fr> a écrit dans le

message de news:%

Bonsoir,

;-((((( ça marche pas.
J'ai un message : erreur d'exécution 13
Incompatibilité de

type

Le débogueur surligne la ligne test=[A1]
Une solution ?
Merci d'avance

Michèle

"Chris Michel"
a écrit

dans

le

message de news: 8c6f01c3ea50$92aa8d80
$

Désolé pour le Bug! De toute façon, je
répondais à côté de

la plaque!

sub collage_perso()

dim test as integer

test=[A1]

range("A2:B50").copy

sheets("feuil2").select

cells(1,12+test).select

Selection.PasteSpecial Paste:=xlValues

end sub

Chris.

-----Message d'origine-----
Bonjour,

Je fais une macro automatique pour
copier la zone A2:B50

de la feuil1 par

exemple, dans la feuil2, mais je
souhaite changer

l'emplacement de la zone

de destination en fonction d'une valeur
contenue dans la

cellule A1 : si A1

= 1 je souhaite que le collage spécial
des valeurs se

fasse en M1, si A1 = 2

je souhaite que le collage spécial se
fasse en N1,

etc......

Quelle ligne rajouter pour cela ?
Merci
Cordialement

Michèle


.

.