Discussion :

[Tiagra]

Bonjour

la formule suivante fonctionne parfaitement lorsque je veux, avec une macro et dans le même dossier, rechercher une cellule vide dans une colonne et remplacer celle-ci par une valeur contenue dans une autre cellule.

Worksheets("articles").Range("e1").End(xlDown).Offset(1, 0).Value = Range("c2").Value

Par contre, si je souhaite faire la même opération mais en changeant de dossier (les 2 dossiers ouverts), la formule suivante ne fonctionne pas

Windows("gestion soirées.xlsm").Activate
Worksheets("prix").Range("c1").End(xlDown).Offset(1, 0).Value = Range("M8").Value

La valeur "M8" se trouve dans le dossier "base article", sheet "creation"
la colonne "C1" se trouve dans le dossier "gestion soirées", sheet "prix"

Merci de votre aide

[Daniel.C]

Bonjour,

Pour une meilleure compréhension, emploie les bons termes. Ce que tu appelles "dossier" est un "classeur"; un dossier est l'endroit où tu enregistres les classeurs. "C1" n'est pas une colonne mais une cellule. La colonne de C1 est "C".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Windows("gestion soirées.xlsm").Activate
Worksheets("prix").Range("c1").End(xlDown).Offset(1, 0).Value = Range("M8").Value

La valeur "M8" se trouve dans le dossier "base article", sheet "creation"
la colonne "C1" se trouve dans le dossier "gestion soirées", sheet "prix"

Ce que tu fais :
1. tu actives le classeur "gestion soirées.xlsm".
2 tu affectes la cellule M8 de la feuille active du classeur actif ("gestion soirées.xlsm") à la première cellule vide de la colonne C de la feuille "prix" du classeur actif ("gestion soirées.xlsm" toujours).

Tu dois donc écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Workbooks("gestion soirées").Sheets("prix").Range("c1").End(xlDown).Offset(1, 0).Value = _
Workbooks("base article").Sheets("creation").Range("M8").Value

[Tiagra]

Bonjour,

Pour une meilleure compréhension, emploie les bons termes. Ce que tu appelles "dossier" est un "classeur"; un dossier est l'endroit où tu enregistres les classeurs. "C1" n'est pas une colonne mais une cellule. La colonne de C1 est "C".



Ce que tu fais :
1. tu actives le classeur "gestion soirées.xlsm".
2 tu affectes la cellule M8 de la feuille active du classeur actif ("gestion soirées.xlsm") à la première cellule vide de la colonne C de la feuille "prix" du classeur actif ("gestion soirées.xlsm" toujours).

Tu dois donc écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Workbooks("gestion soirées").Sheets("prix").Range("c1").End(xlDown).Offset(1, 0).Value = _
Workbooks("base article").Sheets("creation").Range("M8").Value

Bonjour

merci de ta réponse.

Toujours un petit problème.

J'ai fait un copié/collé de ta formule et je me retrouve avec le message suivant

****
erreur exécution '9'
l'indice n'appartient pas à la selection
****

Il est vrai que mes connaissances dans ce domaine sont des plus limitées

[Menhir]

Remplace "gestion soirées" par "gestion soirées.xlsm"
Les macros VBA sont sensible à l'activation ou non de l'option "Masquer les extensions" des options de dossiers (dans l'Explorer Windows).
J'ai ce problème moi-même pour diffuser mes macro entre ceux qui l'activent et ceux qui ne l'activent pas.

[Tiagra]

Merci à vous deux. ça fonctionne parfaitement

A+