Discussion :

[BtjpsspgrW]

* Bonjour, *

Je n'arrive pas résoudre le problème suivant :
A partir d'un UserForm, la cellule A2 de la feuille nommée "Données" n'est pas vide. Seule la cellule A3 est sélectionnée et se complète.
Pourquoi les cellules suivantes A4, A5, ..., A10 ne se complètent pas en boucle tant que l'UserForm n'est pas fermé ? Quelle correction faut-il apporter ?

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
Private Sub OK_Click()
Dim. Décalage As Integer
Sheets("Données").Select
If Range("A2").Value = "" Then
Décalage = 0
Range("A2").Select
Else
Décalage = 1
Position = Range("A1").End(xlDown).Address
Range(Position).Select
Range("A1").End(xlDown).Select
End If
ActiveCell.Offset(Décalage, 0).Range("A1").Select
ActiveCell.Value = Distributeur
End Sub

Code :

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

1
2
3
4
5
6
Private Sub Userform_Activate()
Dim DerDistributeur As String
DerDistributeur = Range("B2").End(xlDown).Address
Distributeur.RowSource = ("B2:") & DerDistributeur
Distributeur. ListIndex = 0
End Sub

Vous en remerciant par avance.


Cordialement.

[bboy-eazy]

bonjour,

C'est normal , il faut faire une boucle for next. Le code actuel n'est pas adapté pour l'utilisation que vous semblez vouloir avoir!

[Thautheme]

Bonjour le fil, bonjour le forum,

Peut-être comme ça (à adapter) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub OK_Click()
Dim DEST As Range
 
With Sheets("Données")
    Set DEST = IIf(.Range("A2") = "", .Range("A2"), .Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0))
End With
DEST.Value = distributeur.Value
DEST.Offset(0, 1).Value = controle2.Value
DEST.Offset(0, 2).Value = controle3.Value
'etc...
End Sub

[Invité]

Bonjour,
quel est l'utilité de ce formulaire? placer la même valeur dans toute les cellule vide de la colonne A? ou de saisir une valeur la même ou différente dans la cellule sélectionné?

précises la finalité!