[débutant] VBA XL : déplacement curseur dans tableau

Version imprimable

bonjour bonjour

j'ai un tableau de cette forme, à 2 colonnes :

cellule plage_vide
ligne_vide
plage_vide texte
plage_vide texte
plage_vide texte

- ici dans mon exemple on a la ligne "cellule" puis 3 lignes à traiter "plage_vide" mais le tableau complet comprend des centaines de fois cette configuration avec des nombres de lignes à traiter qui changent (donc pas toujours 3 comme ici)
- je veux copier la "cellule" dans les "plages_vides" en face du texte avec une
petite macro (en boucle évidemment)

quand j'enregistre la macro et que je l'exécute, ça foire + il y a des
instructions que je ne comprends pas... ma macro :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Selection.Copy <<< JE SUIS POSITIONNE SUR LA 1E CELLULE ET JE LA COPIE ActiveCell.Offset(0, 1).Range("A1").Select <<< JE ME DEPLACE VERS LA DROITE MAIS CE A1 DANS LA MACRO M'ENERVE Selection.End(xlDown).Select <<< JE SAUTE DANS LA 2E COL. SUR LA 1E LIGNE Range(Selection, Selection.End(xlDown)).Select <<< J'IDENTIFIE LE NB DE LIGNE CONCERNEES Range(Selection, Selection.End(xlToLeft)).Select <<< JE ME DEPLACE A GAUCHE TOUT EN MAINTENANT LA SELECTION ActiveCell.Offset(0, -1).Range("A1:A5").Select <<< L'ENDROIT OU JE VAIS COPIER MA FORMULE; LE A1:A5 M'ENERVE PUISQUE LA GRANDEUR DE LA ZONE VA ETRE CHANGEANTE ; LA MACRO SE BLOQUE DE TOUTE FACON ICI Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False <<< COPIER LA CELLULE >>> ENSUITE J'AI DES LIGNES DE DEPLACEMENT DANS LE TABLEAU QUI 1) SUPPRIME LA LIGNE CELLULE ET SE POSITIONNE SUR LA SUIVANTE ActiveCell.Select Application.CutCopyMode = False Selection.End(xlUp).Select ActiveCell.Range("A1:F1").Select Selection.ClearContents ActiveCell.Select Selection.End(xlDown).Select Selection.End(xlDown).Select Selection.End(xlDown).Select
je pige rien, à l'aide HELP, j'ai cherché pas trouvé... ai pas trouvé comment se débarasser de ces A1:A5 qui sont variables chez moi !

merci d'avance

14/08/2006, 10h45
SfJ5Rpw8

ne pourrai tu pas faire une copie d'écran de ta feuille .. histoire de mieux visualiser ton probléme..?
14/08/2006, 14h55
akka01

voilà

http://img110.imageshack.us/img110/4638/vba01ut0.jpg
14/08/2006, 14h59
akka01

alors

la cellule marquée = formule que je vais copier-coller entre 1293 et 1297 dans la 1e colonne

MAIS pour le bloc suivant, on voit bien que le nombre de ligne, 1302 à 1311, n'est pas le même, et ainsi de suite dans le reste du tableau

j'utilise la 2e colonne pour identifier le nombre de lignes concernées
14/08/2006, 15h03
SfJ5Rpw8

et ce fichier ... c'est quoi .. la sortie d'une commande "dos" dir.... , quel est le but final ? obtenir une liste de fichiers...tailles/dates...
14/08/2006, 20h24
akka01

dans le dos

il s'agit effectivement du résultat d'un
>dir /s >fichier.txt
dans le dos que je veux traiter

le but de la question est
- comment identifier le nombre de ligne de chaque bloc?

juste une derniére question...n'est-t'il pas possible de créer cette liste de fichier directement par une procdure excel... ( dir aussi existe..?) .

Peu-être une boucle while...
.., en considérant que le premier bloc débute en A1..

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub traiteBloc()
  Dim r As Range 'Cellule initiale..
  Dim rPlage As Range 'Plage traitée..
  Dim i As Integer
  Set r = range("A1") 'Memorise Cellule init..(A1..)
While r <> ""
  'Pour définir la plage à traiter.. on ce déplace de 2 lignes vers le bas
  '1 colone vers la droite.. puis on prends toutes les cellules "adjacentes non vides.."
  ' CurrentRegion correspond à la sélection obtenu par un CTRL * dans excel
  Set rPlage = r.Offset(2, 1).CurrentRegion
  For i = 1 To rPlage.Rows.Count
    rPlage.Cells(i, 1).EntireRow.Columns(1) = r 'Colle à valeur cellule initiale à gauche..
  Next
  'Se positionne sur Zone suivante..
  Set r = rPlage.Cells(i, 1).Offset(0, -1).End(xlDown)
Wend
 
End Sub

17/08/2006, 09h21
akka01

euh

merci pour l'aide
mais
il ne se passe rien sur mon écran quand je procède au test de la macro pas à pas...

et la macro se bloque avec la ligne

Code:

Set r = rPlage.Cells(i, 1).Offset(0, -1).End(xlDown)

quid?
17/08/2006, 09h40
AlainTech

Citation:

Envoyé par bbil

juste une derniére question...n'est-t'il pas possible de créer cette liste de fichier directement par une procdure excel... ( dir aussi existe..?) .

akka01, tu n'as pas répondu à la question de bbil.
Il serait nettement plus simple d'extraire ta liste directement depuis Excel que de passer par le dir du DOS.
17/08/2006, 21h05
akka01

euh

possible... mais comment?!
24/08/2006, 07h37
SfJ5Rpw8

Citation:

Envoyé par akka01

je ne sais toujours pas comment...

ben faudrai nous en dire plus sur le contenu désiré dans ta liste finale... ? les fichiers présents sous .. c:\data ..? .... voir FileSystemObject .. pour le parcours de ces fichiers...
24/08/2006, 10h23
AlainTech

Va voir là:
http://www.developpez.net/forums/sho...d.php?t=200523
Ca devrait te donner des idées.