Inscrire une valeur avec macro

mikael2235 · 27 Janvier 2009

Bonjour à tous,

Une question pour un problème que je pense facile.

Je souhaiterais lors de l'execution d'une macro qu'elle m'inscrive la lettre N en B2 ?

Quel code dois-je mettre ?

Merci. Mikael

JCGL · 27 Janvier 2009

Re : Inscrire une valeur avec macro

Bonjour à tous,

Peux-tu essayer :

Code:

Range("B2")= "N"

A+ à tous

jp14 · 27 Janvier 2009

Re : Inscrire une valeur avec macro

Bonjour

Il suffit d'écrire

Range("B2")="N"
ou
Sheets("Feuil1").Range("B2")="N"

A tester

JP

mikael2235 · 27 Janvier 2009

Re : Inscrire une valeur avec macro

Merci pour vos réponses. c'est ce que je cherchais à faire...

mikael2235 · 16 Février 2009

Re : Inscrire une valeur avec macro

J'ai une macro qui me recopie des données de Feuil1 en Feuil2 (c'est un tableau recap).

Elle me recopie, notamment la cellule I2 qui dans ma Feuil1 est égale à =AUJOURDHUI.

Le problème, c'est qu'elle me recopie la formule =AUJOURDHUI en Feuil2 alors que je voudrais qu'elle me recopie la valeur ex : 16.02.09

Comment dois-je faire ?

Merci pour votre aide.

Mikael

Guest · 16 Février 2009

Re : Inscrire une valeur avec macro

bonjour,

Si Feuil2!I2 est la cellule de destination

Code:

Sheets("Feuil2").Range("I2")=Sheets("Feuil1").range("I2").Value

A+

mikael2235 · 16 Février 2009

Re : Inscrire une valeur avec macro

Hasco à dit:
bonjour,

Si Feuil2!I2 est la cellule de destination

Code:

Sheets("Feuil2").Range("I2")=Sheets("Feuil1").range("I2").Value

A+

En fait ça recopie dans un autre fichier (je voulais simplifier les choses)

Voici le code

Code:

        [COLOR="Green"]'Copie ------[/COLOR]
    Workbooks("M31-000 Demande essai VIERGE.xls").Sheets("DEMANDE").Activate
[COLOR="Red"][B]    Range("I2").Select[/B][/COLOR]
    Selection.Copy
[COLOR="green"]    'Recopie-----------[/COLOR]
    Workbooks("M31-000 _Recap demandes.xls").Sheets("RECAP").Activate
    Range("C" & x + 4).Select
    ActiveSheet.Paste
    Range("B2").Select
[COLOR="green"]    'Retour en feuille 1-----[/COLOR]
    Workbooks("M31-000 Demande essai VIERGE.xls").Sheets("DEMANDE").Activate
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("D1").Select

C'est ici que je dois inséré le .Value mais ça ne marche pas :

Range("I2").Select

Merci pour votre aide

Mikael

Guest · 16 Février 2009

Re : Inscrire une valeur avec macro

Re,

Essaie avec ceci,

Sans copie ni sélection ni activation du deuxième classeur
le classeur actif étant "M31-000 Demande essai VIERGE.xls"

Code:

    Workbooks("M31-000 _Recap demandes.xls").Sheets("RECAP").Range("C" & x + 4)=Sheets("DEMANDE").Range("I2").Value

Par contre je ne comprends pas pourquoi tu recolles sur elle même ta cellule dans:

Code:

[COLOR=#008000]'Retour en feuille 1-----[/COLOR]
    Workbooks("M31-000 Demande essai VIERGE.xls").Sheets("DEMANDE").Activate
   [COLOR=red]ActiveSheet.Paste[/COLOR]
    Application.CutCopyMode = False
    Range("D1").Select

Avec la méthode plus haut les lignes ci-dessus devraient être inutiles.

A+

mikael2235 · 16 Février 2009

Re : Inscrire une valeur avec macro

Merci Hasco,

Effectivement ça marche avec ton code et ça me fait gagner 11 lignes ×14 soit je vous laisse faire le calcul.

N'étant pas une "star du VBA", j'avais trouvé cette solution qui marchait bien.

Encore merci,

Mikael

Inscrire une valeur avec macro

mikael2235

XLDnaute Occasionnel

JCGL

XLDnaute Barbatruc

jp14

XLDnaute Barbatruc

mikael2235

XLDnaute Occasionnel

mikael2235

XLDnaute Occasionnel

Guest

Guest

mikael2235

XLDnaute Occasionnel

Guest

Guest

mikael2235

XLDnaute Occasionnel

Discussions similaires