comment ecrire un code qui parcours une colonne?

Version imprimable

07/07/2009, 16h07
doudou8mc

comment ecrire un code qui parcours une colonne?

bonjour,

je souhaiterai s'il vous plaît réaliser une macro en vba qui parcourerait une colonne et, à chaque fois qu'il ya une valeur dans une des cellules de cette colonne, elle l'a renvoi dans une autre colonne .Quelqu'un pourrait t-il me montrer un exemple de code ??

Merci d'avance

Bonjour à tous
Bonjour doudou8mc

Quelque chose comme cela :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Explicit
 
Sub parcours_copie()
Dim c As Range
Dim firstAddress As String
Dim ligne As Integer
Dim mavar
 
With Worksheets("Feuil1").Range("a:a")
mavar = "*"
    Set c = .Find(mavar, LookIn:=xlValues, Lookat:=xlPart) '
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            ligne = c.Row
            Range("b" & ligne) = Range("a" & ligne)
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
 
End Sub

mais il y a d'autres méthodes

Eric

bonjour doudou8mc edelweisseric le forum
interesse a toi a for next & For Each next les plus classiques
2 exemples qui font exactemement la méme chose

boucle sur la colonne a copy sur sur la colonne b sur la meme ligne
Code:

1 2 3 4 5 6 Sub es() Dim c As Range For Each c In Range("a1", Range("a65536").End(xlUp)) If c <> "" Then c.Offset(0, 1) = c Next c End Sub
Code:

1 2 3 4 5 6 Sub es1() Dim i As Long For i = 1 To Range("a65535").End(xlUp).Row If Cells(i, 1) <> "" Then Cells(i, 2) = Cells(i, 1) Next i End Sub

Bonjour à tous
re doudou8mc
Bonjour Laetitia

Juste une petite chose : il est toujours préférable de poser les questions sur le site et non par MP, comme cela tous ceux qui suivent le sujet sont au courant et surtout tout le monde peut aider, dont les plus aguerris.

Je me permets de recopier ta demande : "d'abord merci bcp pour ton aide;mais ce que j'attends de la macro,c'est qu'elle parcoure une colonne ou une plage (ex:M32:M80) et à chaque fois qu'elle tombe sur une cellule non vide , elle la renvoi vers dans une colonne d'un tableau (ex:Y42:Y54);les valeurs restituées dans (Y42:Y54) doivent être successive , c à dire, pas de cellules vides entre deux valeurs.
Merci d'avance pour le précieux coup de main !! "

Donc peut être comme cela :
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 25 26 27 Option Explicit Sub parcours_et_copie() Dim a As Integer Dim c As Range Dim firstAddress As String Dim ligne As Integer Dim mavar a = 42 Range("M30").Select With Worksheets("Feuil1").Range("M32:M80") mavar = "*" Set c = .Find(mavar, LookIn:=xlValues, Lookat:=xlPart) ' If Not c Is Nothing Then firstAddress = c.Address Do ligne = c.Row Range("y" & a) = Range("M" & ligne) a = a + 1 Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstAddress End If End With End Sub
J'ai écrit

Code:

Range("M30").Select

car si l'on sélectionne une autre cellule ; M31, M32, .... , le "find" ne commence pas la recherche à M32. Il y a peut être une instruction à ajouter ou modifier, mais je ne la connais pas.

Il n'en reste pas moins que c'est aussi faisable avec la proposition de Laetitia

Eric

08/07/2009, 14h50
ouskel'n'or
Citation:

Envoyé par edelweisseric

J'ai écrit

Code:

Range("M30").Select

car si l'on sélectionne une autre cellule ; M31, M32, .... , le "find" ne commence pas la recherche à M32. Il y a peut être une instruction à ajouter ou modifier, mais je ne la connais pas.

En effet, on peut en utilisant un range
Code:

1 2 3 4 Dim Plage as range, c as range, ... Set Plage = Worksheets("Feuil1").Range("M32:M80") With Plage Set c = etc.
Bon aprem'

PS - Et je préfère une boucle de recherche à un parcours de toutes les cellules de la colonne... ;)
08/07/2009, 15h35
edelweisseric

Re

On en apprend tous les jours

Merci
08/07/2009, 16h21
laetitia
bonjour le fil une solution simple suffisante pour peu de cellules a traiter
Code:

1 2 3 4 5 6 7 8 9 10 Sub essai() Dim i As Long, z As Byte Application.ScreenUpdating = False z = 42 For i = 32 To 80 If Cells(i, 13) <> "" Then Cells(z, 25) = Cells(i, 13) z = z + 1 End If: Next i End Sub
code donner en message prive mea culpa:oops:
en precisant
ps evite les messages privees autrement le forum n'en
'profite pas