Discussion :

[doudou8mc]

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

[edelweisseric]

Bonjour à tous
Bonjour doudou8mc

Quelque chose comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[laetitia]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[edelweisseric]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

J'ai écrit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[edelweisseric]

Re

On en apprend tous les jours

Merci