Discussion :

[Mr l'Ashanti]

bonjour forum

je travaille sur l'élaboration d'un applicatif pour générer des factures proforma.
j'ai sur l'userform des combobox pour les choix des types de formation à proposer au client. une formation locale et une formation internationale.
le client peut effectuer 1 ou plusieurs choix.
première préoccupation

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
Private Sub CmB_register_Click()
Dim X As Integer
With Sheets("Base de donnees PRACYB")
 
X = .Range("j" & Rows.Count).End(xlUp).Row + 1
 
.Range("b" & X) = Text_Name
.Range("c" & X) = Text_Mail
.Range("d" & X) = Text_Phone
.Range("e" & X) = Text_State
.Range("f" & X) = Text_Country
.Range("k" & X) = Text_Qty
.Range("l" & X) = Text_Rate
.Range("m" & X) = Text_Unit
.Range("n" & X) = Text_Amount
.Range("j" & X) = Cb_Etat
.Range("j" & X) = Cb_Strategie
.Range("j" & X) = Cb_digital
 
End With
End Sub

lors de la validation, au lieu que les valeurs des combobox se succèdent dans des cellules différentes, elles restent uniquement dans la même cellule.
une aide sur ce cas.

la deuxième préoccupation:
est il possible de générer un code qui selon ce contexte , si la dernière ligne est non vide alors on saute une ligne , ainsi de suite.

merci à vous

[BENNASR]

bonjour
remarque

Code :

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

1
2
3
.Range("j" & X) = Cb_Etat
.Range("j" & X) = Cb_Strategie
.Range("j" & X) = Cb_digital

tu envoie les 3 données en colonne "J"
tu cherches la dernière cellule non vide de la colonne J et tu ajoute 1

Code :

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

X = .Range("j" & Rows.Count).End(xlUp).Row + 1

normalement ça doit fonctionner correctement sauf si la colonne J est vide
pour teste remplace la colonne j par la colonne B

Code :

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

X = .Range("B" & Rows.Count).End(xlUp).Row + 1

pour sauter une ligne il suffit de remplacer +1 par +2

[Mr l'Ashanti]

Merci pour la réponse. J'ai pu le résoudre