Probleme de code VBA

[Seb c bien !]

Bonjour au forum,

j'ai tenté de bricoler un code pour me permettre de coller dans la colonne C
l'une en dessous des autres les données en I (cette colonne sera caché par
la suite)… le seul hic, c'est que cela ne marche pas comme je voudrais.

Merci d'avance

le code >
Sub COPIER_IMMAT()

Dim NomFeuille As String

NomFeuille = 'DONNEES'
NumLigne = Sheets(NomFeuille).Range('B65536').End(xlUp).Row + 1
Sheets(NomFeuille).Cells(NumLigne, 3) = Range('I4').Value

NumLigne = Sheets(NomFeuille).Range('B65536').End(xlUp).Row + 1
Sheets(NomFeuille).Cells(NumLigne, 3) = Range('I5').Value

End Sub

Signé Seb c bien ! :whistle: [file name=PROBLEME DE CODE VBA_20050331220532.zip size=7654]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PROBLEME DE CODE VBA_20050331220532.zip[/file]

 

[Bernard_XLD]

Bonjour

voila un exemple de code fonctionnel, méfie toi de ton fichier, il comporte des données en C42 C43 (sous les textbox) qui faussent le comportement.

Cordialement, A+

Sub COPIER_IMMAT()

Dim NomFeuille As String, Compteur As Long

NomFeuille = 'DONNEES'
For Compteur = 4 To 6 'les lignes de I
Sheets(NomFeuille).Range('C65536').End(xlUp).Offset(1, 0).Value = Sheets(NomFeuille).Range('I' & Compteur).Value
Next Compteur

End Sub

 

[Seb c bien !]

je te remercie beaucoup ça marche du tonnerre !!!

A+