Excel [Résolu]

Signaler
Messages postés
3
Date d'inscription
mardi 8 mai 2007
Statut
Membre
Dernière intervention
10 janvier 2009
-
Messages postés
3
Date d'inscription
mardi 8 mai 2007
Statut
Membre
Dernière intervention
10 janvier 2009
-
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...

3 réponses

Messages postés
3
Date d'inscription
vendredi 9 janvier 2009
Statut
Membre
Dernière intervention
28 janvier 2009

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
Messages postés
3
Date d'inscription
mardi 8 mai 2007
Statut
Membre
Dernière intervention
10 janvier 2009

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

merci
Messages postés
3
Date d'inscription
mardi 8 mai 2007
Statut
Membre
Dernière intervention
10 janvier 2009

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