Copier uniquement si la cellule d'à coté est pleine

Bonjour,

je souhaiterais copier un texte dans une colonne uniquement si la cellule de la colonne de gauche est remplie, et laissser la case vide s'il n'y a rien.

Par exemple, imaginons que j'ai une colonne A avec toto, tata, titi dans les cellules 1 3 et 5, et rien dans les celulles 2 et 4. Je voudrais ensuite coller le texte "mange" automatiquement dans la colonne B sur toutes les cellules sauf si elles sont vides, c'est à dire les cases 2 et 4.

J'ai eu beau chercher je n'ai pas trouvé, merci pour votre aide

Bonsoir et bienvenue

Avec un code de ce style :

Sub Test()
Dim c As Range
For Each c In Range("A1:A100")
If c > 0 Then c.Offset(0, 1) = "Mange"
Next
End Sub

Amicalement

Nad

Je vais tester, merci pour la réponse rapide

Bonjour.

Une autre idée:

J'ai des petits soucis pour écrire mon "mange". Mon texte comprends des guillemets, dois-je écrire \" pour qu'ils ne soient pas interpretés ?

J'ai une "Erreur d'exécution 13, incompatibilité de type

-- 07 Avr 2011, 19:17 --

Ah merci beaucoup pass-pass, ça fonctionne parfaitement !

-- 07 Avr 2011, 19:54 --

J'ai une autre petite question.

Je ne connais pas grand chose en macro, comment puis-je l'enregistrer ailleurs que dans un fichier excel, pour pouvoir m'en servir autrement qu'en ouvrant mon fichier matzounet ?

Merci encore

Re

Lorsque ton fichier est ouvert, ouvre VBA en faisant ALT + F11

Dans l'explorateur de projet, tu as un module qui s'appelle Module1

Copie le code.

Ensuite, il faut créer un bouton ou une forme automatique.

Sur ce bouton ou cette forme, clique droit, affecter une macro.

Ton module s'ouvre. Tu peux ensuite coller ta macro.

Si tu as un problème, modifie la partie Sub.... et met le mot que tu souhaites (sans espace, accent et caractère spécial) Par exemple: Sub mitzounet ()

Impec merci