Macro pour collage spécial valeur
mecdu01
-
m@rina Messages postés 23945 Date d'inscription Statut Contributeur Dernière intervention -
m@rina Messages postés 23945 Date d'inscription Statut Contributeur Dernière intervention -
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.
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.
A voir également:
- Macro pour collage spécial valeur
- Caractere special - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Symbole special - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
3 réponses
Bonjour,
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
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
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.
Je précise que j'ai excel 2003 version anglais.
J'ai remplacer sub copie () par sub copy () , mais ca marche pas non plus.
