aide sur macro

[gh4]

bonjour,
voici ma macro que j'utilise toujours pour remplir un tableau

Sub enregistrement()
Sheets("feuil1").Select
typ = Range("e1")
ndev = Range("f1")


If typ = "1" Then
Sheets("feuil2").Select
lign = 5
colon = 2
10
If Cells(lign, 2) = "" Then
Cells(lign, colon) = Sheets("feuil1").Range("f1")
Cells(lign, colon + 1) = Sheets("feuil2").Range("e6")
GoTo 100
End If
lign=lign+1
goto10

1000
end sub

existe t il un moyen plus facile pour trouver la 1ere case vide du tableau pour y mettre mes données sans ouvrir la feuille (feuil2) et voir le test se derouler

d'avance merci

 

[marmotte18]

Re : aide sur macro

Bonjour,

Je te joins un petit fichier qui tourne autour de ce problème. Regarde la macro, elle est en principe bien documentée.

 

[gh4]

Re : aide sur macro

merci bcp pour cette macro
comment apres avoir selectionné la derniere ligne non vide
inserer mes valeurs dans la ligne suivante

Set Cellule = Range("b65536").End(xlUp)
Cellule.Activate

lign=lign+1 (ne fonctionne pas)??????????????????????,

Cells(lign , colon + 1) = Sheets("feuil1").Range("e6")
Cells(lign , colon + 2) = Sheets("feuil1").Range("e7")

 

[gh4]

Re : aide sur macro

ok je crois que j'ai trouver grace a ta macro

Cells(ActiveCell.Row + 1, 2).Select