Discussion :

[toniodelavega]

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

[JeanSairien]

Bonjour,

Dans l'aide de "Offset" il est marqué : expression.Offset(RowOffset, ColumnOffset)

Dans ton code :

Code :

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

1
2
3
 
iRow = ws.Cells (Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row . End (xlUp). Offset (1, 0). Row

Tu fait un offset sur les lignes (1, 0), il suffit de mettre (0, 1) et tu fera un offset sur les colonnes.

Bonne journée.

[toniodelavega]

Merci mais il doit y avoir un truc en plus...
Quand je change juste le offset mes enregistrement ( à partir d'un formulaire) font du surplace au lieu de se décaler sur la droite,

y a pas autre chose à changer ?

[JeanSairien]

Re,

Code :

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

1
2
3
iRow = ws.Cells (Rows.Count, 1) _
.End(xlRight).Offset(1, 0).Row
'Tu parcours vers la droite par pas de 1 colonne

Ceci devrait fonctionner.

[toniodelavega]

Malheureusement toujours pas

Code :

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

1
2
iRow = ws.Cells (Rows.Count, 1) _
.End(xlRight).Offset(1, 0).Row

je me disais que

Code :

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

iRow = ws.Cells (Rows.Count, 1)

devrait peut être être transfomé en

Code :

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

Cells (1, Column.Count)

mais ça ne marche pas non plus

[AlainTech]

Une piste:

Code :

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

1
2
3
4
5
6
7
Dim iColumn As Long
Dim ws As Worksheet
Set ws = Worksheets("Scenario")
 
'Trouver la première colonne vide dans la base
 
iColumn = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Offset(0, 1).Column

[toniodelavega]

ok nickel ça marche ! merci

petite question supplémentaire... je voudrais commencer à remplir à partir de la 4éme ligne ..

merci

[toniodelavega]

non en fait ça ne marche pas

je remet un bout de code pour un truc similaire : une liste déroulante dans un formulaire

Je n'arrive pas à faire une selection en ligne au lieu de colonne

Code :

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

1
2
3
4
5
Dim LastCol As Long
 
 
LastCol = Sheets("Scenario").Cells("1", Columns.Count).End(xlToLeft).Column 'dernière Colonne
UserForm1.ComboBox1.RowSource = "Scenario!2:2" & LastCol

j'ai retourné ce truc 15 fois et j'y arrive jamais ...

merci

[AlainTech]

Vu le code que tu présentes, je ne peux pas deviner quel RowSource tu veux obtenir.
De quelle à quelle cellule?