question facile sur le VBA : boucle

[Daniel]

Bonjour à vous tous!

J'ai une petite question sur la programmation VBA! En effet je connais un peu le language mais pas beaucoup les syntaxes.

Mon souhait est le suivant. J'ai 2 feuilles. Une de saisie et l'autre ou sont stocké les saisies. Mon but est d'alimenter la feuille pù sont stocker les info automatiquement.

Pour cela j'ai besoin d'aide sur le VBA pour faire une boucle et coller l'info à la première cellule ou ligne de vide d'une feuille!

Tout est expliquer dans le petit fichier ci joint.

Merci de votre aide

 

[PascalXLD]

bonjour

Pas de fichier

mais bon une syntaxe du style

ligne = range('A1').end(xlup).row +1

te donne la première ligne vide

 

[daniel]

re test: pourtant le fichier fait 10 Ko et est zippé!!!!

 

[2passage]

Bonjour

Pascal habite tout près d'une distillerie réputée et il teste régulièrement la qualité du calvados produit là bas.. il voulais bien sur dire :
ligne = range('A1').end(xldown).row +1
ou :
ligne = range('A65536').end(xlup).row +1

A+

 

[daniel]

re tentative en changeant de nom [file name=daniel.zip size=9627]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/daniel.zip[/file]

 

[PascalXLD]

hips

j'avais raté là

voilà ce que c'est de trop picoler

et oui j'utilises tellement souvent le A65536 xlup que j'a tout mélangé

:sick:

 

[daniel]

victoire!!!!

 

[daniel]

victoire!!!!

 

[daniel]

Au fait, quand je disais victoire, c'était juste parce que j'avais réussi à envoyer le fichier et pas parce que j'avais résolu mon problème! J'ai essaye votre ligne en faisant

Sub test ()
ligne = range('A65536').end(xlup).row +1
end sub

et rien ne se passe!

 

[Tenormadness]

salut
le résultat est dans la variable ligne

sinon

function RetourneLigneVide ()as long
RetourneLigneVide = range('A65536').end(xlup).row +1
end function

 

[Daniel]

Désolé d'être un peu chiant , mais ce code ne fonctionne toujours! Et comment l'intégré dans ma macro.

Je rappel que le but est de coller (une sé&lection copier juste avant) dans la première cellule vide de la collone A de la feuille base de donnée.

Ma macro de base est celle-ci :

Sub Macro12()

Application.CutCopyMode = False
Selection.Copy
Sheets('Base de donnée').Select

ICI DOIT INTERVENIR LE CODE QUI SELECTIONNERA LA PEMIERE CELLULE VIDE DE LA COLLONE A


End Sub

ENSUITE, la deuxième chose que je cherche est la création d'une boucle qui répète cette opération jusqu'à ce qu'il n'y ai plus rien dans la cellule A2 de la feuille de saisie

Cf classeur 'daniel' des premiers messages

 

[daniel]

J'ai trouvé un code qui me permet de trouver la cellule vide dont je parle. Il s'agit de :

Columns('A').Select
Selection.Find(What:='', After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
).Activate
ActiveCell.Select


Maintenant je cherche à selectionner la ligne complète de la cellule active !!! Comment fait on ????

Merci à vous

 

[_Thierry]

Bonjour Daniel, le Fil, le Forum

Je te conseille d'essayer une approche comme celle-ci :

Sub TheBoucle()
Dim i As Byte
Dim L As Long
Dim WSSource As Worksheet
Dim WSCible As Worksheet


  Set WSSource = Sheets('FeuilleDeSaisie') 'A adapter le Nom réél
  Set WSCible = Sheets('FeuilleRecapitulative')
 
For i = 1 To 10
    L = WSCible.Range('A65536').End(xlUp).Row + 1
    WSCible.Range('A' & L) = WSSource.Range('A' & i)
Next i


End Sub

Bon Appétit...

[ol]@+Thierry[/ol]

PS ta dernière question :
Sub SelectActiveCellRow()
Dim L As Long

L = ActiveCell.Row
Rows(L).Select

End Sub

 

[Daniel]

Impec! Merci à vous tous! Jai pu grace à vos idée arriver à ce que je voulais!

Merci et à bientôt

Daniel