Discussion :

[dodo28]

Bonjour,
Après avoir saisie des données dans un userform je voudrais quelles s inscrive dans la première ligne vide de l'onglet Distribution. Voici ce que j ai fais mais ca marche qu'une fois. merci pour votre aide

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
Private Sub Validez_Click()
 
'--- Positionnement dans la base
ligne = Sheets("Distribution").[A65000].End(xlUp).Row + 1
 
'--- Transfert Formulaire dans Distribution
Sheets("Distribution").Cells(ligne, 1) = Me.TypeText
Sheets("Distribution").Cells(ligne, 2) = Me.N°Contrat
Sheets("Distribution").Cells(ligne, 3) = Me.Société
Sheets("Distribution").Cells(ligne, 4) = Application.Proper(Me!Nom)
Sheets("Distribution").Cells(ligne, 5) = Me.Prenom
Sheets("Distribution").Cells(ligne, 6) = Me.N°Rue
Sheets("Distribution").Cells(ligne, 7) = Me.Rue
Sheets("Distribution").Cells(ligne, 8) = Me.LieuDit
Sheets("Distribution").Cells(ligne, 9) = Me.Cp
 
Unload Me
End Sub

[mercatog]

Où le problème???

remarque: essaie de faire pour l'économie

Code :

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

1
2
3
4
5
6
7
with Sheets("Distribution")
ligne = .[A65000].End(xlUp).Row + 1
 
'--- Transfert Formulaire dans Distribution
         .Cells(ligne, 1) = Me.TypeText
         ......
end with

[dodo28]

pareil même problème.
Ça m ajoute une ligne la première fois (impeccable) mais quand je refais appel a l userform et que je modifie (par exemple le nom) il modifie la ligne precedement incluse et ne me recréer pas une nouvelle ligne.

[mercatog]

bizzare pour moi
si tu essaie de mettre

Code :

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

ligne=ligne+1

juste avant unload!

autre question: comment s'ouvre ton userform?

[dodo28]

exactement le même problème.
C'est vraiment bizarre.
Je fais appel a mon userform en cliquant sur un bouton.

[mercatog]

J AI FAIS CELA SUR UN PTIT EXEMPLE
CA FONCTIONNE SANS PROBLEME

CHERCHE DONC LE PROBLEME AILLEURS

MON UF S OUVRE AVEC BOUTON SUR LA FUILLE ACTIVE

Code :

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

1
2
3
4
5
6
7
8
Private Sub Valider_Click()
With ActiveSheet
    ligne = .Range("A65000").End(xlUp).Row + 1
    .Cells(ligne, 1).Value = Me.TB1
    .Cells(ligne, 2).Value = Me.TB2
End With
Me.Hide
End Sub

[dodo28]

J ai trouvé. Tout simplement parce que la cellule A correspondait à un textbox vide. Au lieu de [A65000] j ai mis [B65000]. Une faute d inattention qui me servira de bonne lecon. Merci beaucoup pour votre aide

[mercatog]

Un petit repos est donc nécessaire.
bonne soirée