Macro pour collage spécial valeur Fermé

Question

Bonjour à tous, 

Je sollicite votre aide pour un fichier excel que je suis entrain de construire.

J'aimerais créer une macro qui copie la valeur de la cellule D35 dans la cellule E35 si B35 est supérieur à "a"

En simplifié:

Si B35>"a" copier données de D35 et collage spécial valeurs en E35

La ligne suivante: "si B36>a copier ... etc"

J'aimerais faire une macro pour automatiser cela.
Je n'y connais rien.
J'ai chercher sur différent forum.

J'ai pu trouver comment faire un collage spécial valeurs en macro mais j'ai pas réussi à trouver comment conditionné la macro.

Si quelqu'un ici pouvait m'aider, ca serait gentil.

En attente de vos réponses.

Configuration: Windows XP / Internet Explorer 8.0

eriiic · Answer

Bonjour,  

Sub copie()  
    Dim c As Range  
    For Each c In Range("B35:B40")  
        If c > "a" Then c.Offset(0, 3) = c.Offset(0, 2)  
    Next c  
End Sub 
Si la plage n'est pas fixe on peut déterminer la dernière ligne et faire tourner la macro jusqu'à celle-ci.  
Tu dis..  

eric

mecdu01 · Answer

Merci eric pour ta réponse, malheuresement ca ne marche pas.
Je précise que j'ai excel 2003 version anglais.

J'ai remplacer sub copie () par sub copy () , mais ca marche pas non plus.

m@rina · Answer

Bonjour,

La macro d'Eriiic (Hello Eriiic ;)) est pourtant OK. Qu'as-tu dans tes cellules de la colonne B?

A titre indicatif, VBA français/VBA anglais = même combat !
Et le nom de la macro, il peut être en Cherokee, ça ne changera rien ! ;)

m@rina

Macro pour collage spécial valeur

3 réponses

Discussions similaires