Rapport de message :*
 

Re: Avec 1 bouton choisir 3 mots l'un après l'autre

Titre du sujet : Re: Avec 1 bouton choisir 3 mots l'un après l'autre
par myDearFriend! le 10/11/2010 19:31:20

Bonsoir Poppy, Mth,

Moi, j'aime bien la solution de Mth qui permet d'obtenir le traitement sans une seule ligne de code VBA (bravo !).

En pièce jointe, une proposition VBA comme tu sembles le souhaiter Poppy...

J'ai utilisé le simple code suivant lié au bouton que tu as dessiné sur la feuille :

DANS UN MODULE DE CODE STANDARD (ex: Module1)
Option Explicit

Sub Traitement()
Static N As Byte
    N = N + 1
    Sheets("Essai").Range("B4").Value = Sheets("Liste").Cells(1, 13 + N).Value
    If N > 2 Then N = 0
End Sub

Ce code tire partie d'une déclaration de variable en « Static » (voir l'article VBA et les variables pour comprendre l'intérêt des variables static).

En espérant que ça puisse t'aider...

Cordialement,