Discussion :

[moilou2]

Bonjour à tout le Forum,

J'ai quelques petits problèmes avec mon code VBA.

J'ai créé un classeur XLS qui appel une Userform dès le clique sur un CommandButton.

Sur cette Userform se trouvent plusieurs TextBox et list Box.

Ensuite, à partir du moment ou je clique sur un CommandButton (situé sur ma Userform), les informations contenues dans les TextBox se recopient automatiquement dans un tableau préalablement tracé (de la colonne B à M).

A chaque appel et saisie sur ma Userform, les informations se recopient à la suite du tableau. Avec le code suivant:

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
Set cellule = Worksheets("Actions à mener").Range("B5")
 
Do While Not IsEmpty(cellule)
  Set cellule = cellule.Offset(1, 0)
Loop
 
cellule.Value = UserForm1.Emetteur.Value
cellule.Offset(0, 1).Value = Date
cellule.Offset(0, 2).Value = UserForm1.Ligne.Value
cellule.Offset(0, 3).Value = UserForm1.Machine.Value
cellule.Offset(0, 4).Value = UserForm1.Service.Value
cellule.Offset(0, 5).Value = UserForm1.TypeAction.Value
cellule.Offset(0, 6).Value = UserForm1.Trav.Value
cellule.Offset(0, 7).Value = UserForm1.Date1.Value
 
MsgBox "La saisie est términée!"

Je souhaiterai qu'à chaque clique sur mon CommandButton de ma Userform, un numéro apparaisse dans la colonne 'A' (et s'incrémente à chaque clique).

Mille merci à ceux qui pourront m'éclairer.



Bonne fin de journée

[wilfried_42]

Bonjour

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
Set cellule = Worksheets("Actions à mener").Range("B5")
 
Do While Not IsEmpty(cellule)
  Set cellule = cellule.Offset(1, 0)
Loop
cellule.offset(0, -1) = cellule.row - 4 ' le 4 parceque tes enregistrements commencent à 5
cellule.Value = UserForm1.Emetteur.Value
cellule.Offset(0, 1).Value = Date
cellule.Offset(0, 2).Value = UserForm1.Ligne.Value
cellule.Offset(0, 3).Value = UserForm1.Machine.Value
cellule.Offset(0, 4).Value = UserForm1.Service.Value
cellule.Offset(0, 5).Value = UserForm1.TypeAction.Value
cellule.Offset(0, 6).Value = UserForm1.Trav.Value
cellule.Offset(0, 7).Value = UserForm1.Date1.Value
 
MsgBox "La saisie est términée!"

personnellement j'aurais ecrit comme cela

Code :

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

1
2
3
4
5
6
7
8
9
10
dim ligne as long
with Sheets("Actions à mener")
       ligne = .range("B65536").end(xlup).row + 1
       .range("A" & ligne) = ligne - 4
       .range("B" & ligne) = UserForm1.Emetteur.Value
       .range("C" & ligne) = date
       .range("D" & ligne) = UserForm1.Ligne.Value
etc, etc
End with
msgbox "saisie terminée'

Beaucoup plus rapide, pas de select, pa besoin d'activer ou selectionner la feuille

Bonne journée

[moilou2]

Ok j'essayeré ta simplification c'est vrai après tout pour quoi se compliquer!!

Mais da dans ta solution tu ne pas pas dit comment incrémenter un numéro auto en colonne "A" à chaque nouvelle saisie si?


Merci

[wilfried_42]

re:

Code :

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

       .range("A" & ligne) = ligne - 4

dans le post precedent tu as ca, normalement ca devrait le faire

[moilou2]

Merci beaucoup c'est nikel

Est ce que tu sais si c'est possible d'empecher les doublons? C'est à dire que si la valeur 5 a déja été atribué à une ligne elle ne puisse pas l'être à une autre???

C'est peut être trop compliqué je c'est pas merci

[wilfried_42]

re:

Normalement, il ne peut y avoir des doublons que si tu supprimes une ligne

dans ce cas, tu mets :

Code :

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

.Range("A" & ligne).formulalocal = "=ligne()-4"

Au lieu d'avoir une valeur tu as une formule, l'inconvenient c'est que tu renumerote toutes les lignes

Autre solution : Creer une feuile Param
en A1 metre 0 ou 100 par exemple

Code :

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

1
2
sheets("Param").range("A1") = sheets("Param").range("A1") + 1
.range("A" & ligne) = sheets("Param").range("A1")