Discussion :

[winieloursonaub]

Bonjour

Je voudrais mettre le résultat des textbox dans plusieurs feuilles j'ai utilisé ce code ça marche pour une feuille mais comment je fais si je veux lcertains éléments d'autres feuilles ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 Private Sub CommandButton1_Click()
nouv = False
If société = "" Then Fiche_prestataire.Hide: Exit Sub
sauve
Fiche_prestataire.Hide
End Sub
 
 
Public Sub sauve()
If Fiche_prestataire.société = "" Then Exit Sub
With Prestatairebase
    .Cells(adh, 1) = CInt(Fiche_prestataire.NUM)
    .Cells(adh, 2) = Fiche_prestataire.Secteur
    .Cells(adh, 3) = Fiche_prestataire.NOM
    .Cells(adh, 4) = Fiche_prestataire.Prénom
    .Cells(adh, 5) = Fiche_prestataire.société
    .Cells(adh, 6) = Fiche_prestataire.immatriculation
    .Cells(adh, 7) = Fiche_prestataire.signature
    .Cells(adh, 8) = Fiche_prestataire.adresse
    .Cells(adh, 9) = Fiche_prestataire.cp
    .Cells(adh, 10) = Fiche_prestataire.ville
    .Cells(adh, 11) = Fiche_prestataire.téléphone
    .Cells(adh, 12) = Fiche_prestataire.portable
    .Cells(adh, 13) = Fiche_prestataire.fax
    .Cells(adh, 14) = Fiche_prestataire.email
    .Cells(adh, 15) = Fiche_prestataire.rc
    .Cells(adh, 16) = Fiche_prestataire.assureurrc
    .Cells(adh, 17) = Fiche_prestataire.dc
    .Cells(adh, 18) = Fiche_prestataire.assureurdc
 
End With
End Sub

Merci à tous ce qui m'apporteront une solution

[SfJ5Rpw8]

il nous manque un peu d'info..
Prestatairebase, c'est quoi ? le nom d'une feuille de calcul renommé dans l'éditeur VBE .?

ensuite la question manque de clartée.. que ve tu faire exactement ? ne pas mettre toutes les valeurs des textbox dans la même feuille (comme actuellement) .. mais les dispacher dans plusieurs feuilles...?


PS: pense consulter à les Cours et Tutoriels