Inscrire une valeur avec macro

[mikael2235]

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]

Re : Inscrire une valeur avec macro

Bonjour à tous,

Peux-tu essayer :

Range("B2")= "N"

A+ à tous

 

[jp14]

Re : Inscrire une valeur avec macro

Bonjour

Il suffit d'écrire

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

A tester

JP

 

[mikael2235]

Re : Inscrire une valeur avec macro

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

 

[mikael2235]

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]

Re : Inscrire une valeur avec macro

bonjour,

Si Feuil2!I2 est la cellule de destination

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

A+

 

[mikael2235]

Re : Inscrire une valeur avec macro

bonjour,

Si Feuil2!I2 est la cellule de destination

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

        [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]

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"

    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:

[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]

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