Remplir selection plusieurs cellules discontinues souris

Bonjour,

J'ai créer un tableau avec ecxel 2007.

Ainsi, je sélectionne différentes cellules avec la souris avec le fameux "Ctrl"+clic souris, donc les cellule se trouve a différents endroit dans le tableau (ex A2;A5;A10;C10;D8;G6;etc...).

j'ai créé plusieurs commandbutton qui doivent attribuer une valeur à ces cellules sélectionnées. mais en utilisant "activecell.value", seul la dernière cellule est rempli par la valeur du commandbutton.

Donc ma question est la suivante:

Comment attribuer une valeur avec un commandbutton à différentes cellules sélectionnées par "Ctrl"+clic souris en n'oubliant pas que ces cellules ne sont pas adjacentes.

Merci de votre aide.

Cordialement

Ps ; si le sujet est déjà traite sur ce forum , je ne l'ai pas trouvé.

Salut manuhell,

Avec quelque chose comme ça ?

For Each cellule In Selection
    'mettre ton traitement ici...
    'exemple :
    MsgBox cellule.Value
Next cellule

Bonjour,

tu peux aussi nommer ta plage sélectionnée (plage1 par exemple) et :

    Dim c As Range
    For Each c In [plage1]
        c = 1
    Next c

Comme ça tu peux la faire évoluer sans reprendre le code.

eric

merci

la solution apporte par vba new fonctionne a merveille

Tant mieux !

Merci de mettre le post en résolu en cochant le petit V vert.

Rechercher des sujets similaires à "remplir selection discontinues souris"