question facile sur le VBA : boucle

D

Daniel

Guest
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
 

2passage

XLDnaute Impliqué
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+
 
D

daniel

Guest
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]
 

Pièces jointes

  • daniel.zip
    9.4 KB · Affichages: 19
  • daniel.zip
    9.4 KB · Affichages: 15
  • daniel.zip
    9.4 KB · Affichages: 21
D

daniel

Guest
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!
 
D

Daniel

Guest
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
 
D

daniel

Guest
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

XLDnaute Barbatruc
Repose en paix
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
 

Discussions similaires

Statistiques des forums

Discussions
312 922
Messages
2 093 658
Membres
105 777
dernier inscrit
Lili1411