excelRésolu

Question

slt à tous et bonne année 2009.

je suis entrain de déveloper un répertoire téléphonique perso.

j'ai créer un userform avec 27 bouton concernant les lettre de l'alphabet ex: A,B,C jusqu'à Z.
voiçi un début de code pour le bouton L. concernant 2contacts
Private Sub CommandButtonL_Click()
        Sheets("Intro").Range("C6") = Sheets("Donnees L").Range("B2")
        Sheets("Intro").Range("B6") = Sheets("Donnees L").Range("A2")
        Sheets("Intro").Range("D6") = Sheets("Donnees L").Range("C2")
        Sheets("Intro").Range("B7") = Sheets("Donnees L").Range("A3")
        Sheets("Intro").Range("C7") = Sheets("Donnees L").Range("B3")
        Sheets("Intro").Range("E7") = Sheets("Donnees L").Range("D3")
End Sub
 maintenant ce que je vouderais c'est en cliquant sur le bouton L ,qu'il maffiche tous les noms,prenoms et numero de telephone avec une nouvelle ligne de commande,
sans avoir un code source trop longt comme celui -ci .
existe t'il une formule qui me permetterais d'afficher dans ma page intro tous mes contacts de ma page données L en une seule ligne de commande.
merci. j'espère que je me suis bien fais comprendre...

cs_fondue · Accepted Answer

Salut,

Essaie cela :

for i=2 to "nb de lignes de la feuille L"
for j=1 to 3
Sheets("Intro").cells(i+4,j+1) .value= Sheets("Donnees L").cells(i,j).value
next j
next i

bonne soirée

cs_kalipette · Answer

merci mais peut tu me dire à quoi correspont :Sheets("Intro").cells(i+4,j+1) .value= Sheets("Donnees L").cells(i,j).value

merci

cs_kalipette · Answer

c'est bon j'ai compris,ta formule de commande marche très bien,merci jean pierre

Excel

3 réponses

Votre réponse

Discussions similaires