bonjour,

j'ai récupéré ce code pour faire un enregistrement de mes donnés saisies dans un formulaire:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub cmdAdd_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Scenario")
 
 
'Trouver la première ligne vide dans la base
 
iRow = ws.Cells (Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row . End (xlUp). Offset (1, 0). Row
ça me permet de décaler la ligne d'enregistrement, comment je fais pour le transformer en colonne ?merci