Discussion :

[CIBOOX]

BONSOIR,
je tente de faire un truc ki peu etre tres sympa ....
voila j'utilise un userform pour consulter "une sorte d'agenda " avec des combobox liées entre elles .( nom, phone number, adresse email...)
Chacun de mes contacts sont renseigner sur ma feuille excel et je les consulte via mon userform

maintenant je souhaiterai mettre une sorte de compteur qui m'indiquerai le nombre total de contacts que j'ai et aussi pouvoir faire une impression ( de mon userfom completé ) sur world en selectionnant le numero de la fiche contact

[mortalino]

Salut,

voici un petit indice afin de récupérer le nombre de contacts :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Function NombreContacts(ByVal MyColumn As Byte) As Integer
    Dim PLV As Integer
 
PLV = Cells(65536, MyColumn).End(xlUp).Row
NombreContacts = PLV - 1
' j'ai mis -1 car je pars du principe que tu as une ligne d'entête
End Function
 
Sub EXEMPLE_UTILISATION()
' pour savoir le nombre de contact, il faut appeler la fonction, _
en précisant la colonne où se trouve les donnnées
    MsgBox NombreContacts(1)
End Sub

Après je comprends pas trop, t'es sur Excel, et tu veux imprimer sur WORD ?
Je ne suis pas calé en VBA-W mais à la limite, prévoies une feuille excel pour ta mise en page, ce sera plus simple.

@++

[CIBOOX]

si j'ai un code pour ouvrir un nouveau document word

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub button1_Click()
 
Set aplword = CreateObject("word.application")
aplword.Visible = True
aplword.documents.Add
End Sub