Discussion :

[INFINITY100]

Bonjour tout le monde

Voila ci-dessous j'ai une macro qui fonctionne très bien au seul inconvénient c'est que celle là insert les données à partir de la cellule A2 or moi je veux que le départ soit de A12

Voici la macro :

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
Private Sub CommandButton1_Click()
Dim LigneDebut As Long
Dim Ctrl As Control
Dim r As Integer
Dim t As Integer
Dim Derligne As Integer
 
With Worksheets("feuil1")
LigneDebut = 10
Derligne = .Range("A10000").End(xlUp).Row + 1
For Each Ctrl In UserForm1.Controls
r = Val(Ctrl.Tag)
If r > 0 Then Feuil1.Cells(Derligne, r) = Ctrl
Next
End With
TextBox1 = ""
Unload Me
End Sub

Que faudrait-il modifié pour avoir le résultat voulu

Merci à vous tous

Cordialement

[piotr76]

Bonjour

Dans les deux lignes suivantes, LigneDebut ne sert à rien par la suite
Et si La feuille est vide derligne renvoie obligatoirement "A2"

Code :

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

1
2
LigneDebut = 10
Derligne = .Range("A10000").End(xlUp).Row + 1

Pour débuter en A12, il faut que la Cellule "A11" contienne quelque chose (quitte à l'effacer après)

Cordialement

[Invité]

Bonjour,

Code :

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

1
2
LigneDebut = 10
Derligne = .Range("A" & cells.rows.count).End(xlUp).Row + 1

[INFINITY100]

rdurupt et piotr76 Merci beaucoup vous deux pour votre

Merci c'est le résultat voulu

Cordialement