Discussion :

[Liloo14]

Bonjour à tous,
J'ai dans une userform 20 lignes de textbox sur 6 colonnes.
Les textbox sont numérotées en colonne ce qui me permet le code suivant pour incrémenter la feuil1.
En ligne 21, le code cherche la premiere ligne vide de la feuille nommée "1" et la ligne 22 colle les données précédement copiées en feuil1.

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
22
23
24
25
26
27
Private Sub CommandButton1_Click()
 
'J'incrémente les cellule de la feuil1 avec les valeurs saisie dans les textbox de la userform
Dim i As Long
For i = 1 To 20
    Sheets("Feuil1").Range("A" & i) = NouvelleJournée.Controls("TextBox" & i)
Next i
 
For i = 1 To 20
    Sheets("Feuil1").Range("B" & i) = NouvelleJournée.Controls("TextBox" & 20 + i)
Next i
 
'il me reste ici à ajouter le code pour les colonnes de C à K
 
'Je copie les valeurs incrémentées dans les cellules de A1 à K20, je les copie et je sélectionne la feuille nommée "1"
Range("A1:K20").Select
    Selection.Copy
    Sheets("1").Select
 
'Je cherche la première ligne vide dans la feuille nommée "1" puis je colle les valeurs copiées précédement
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
 
'Je ferme ma userform et ouvre la userform accueil
Unload NouvelleJournée
Accueil.Show
End Sub

Le soucis c'est que les données sont irrémédiablement collées en ligne 43 de la feuille nommée "1" alors que la première ligne vide est la ligne 3.
Et comme vous l'avez deviné, je ne comprend pas pourquoi -))

Une âme charitable saurait-elle m'expliquer pourquoi ?

Merci par avance à tous

Laurent

[parmi]

Bonjour,

Évite les Select/Selection le plus possible.

Ceci devrait fonctionner

Code :

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

Range("A" & Cells(Rows.count, "A").end(xlup).row + 1).PasteSpecial xlPasteValues

[parmi]

Et si ça copie toujours sur la ligne 43, c'est qu'il y a quelque chose d'inscrit en A42... peut-être simplement un espace...

[casefayere]

Et si ça copie toujours sur la ligne 43, c'est qu'il y a quelque chose d'inscrit en A42... peut-être simplement un espace...

tu as raison car j'ai essayé le fichier du second post, j'ai supprimé toute les lignes soit disant vides

[Liloo14]

Merci à vous deux