aide vba

[test_2be]

Bonjour à tous,
J'aurais besoin d'un petit peu d'aide pour une macro vba.
En fait, je voudrais tester toutes les cellules de la colonne B et pour chaque cellule non vide, la copier vers la cellule +1 de la colonne A
Donc si valeur dans la colonne B2, copier cette cellule vers A3 et ainsi de suite pour toute la colonne.
Je suis débutant et j'ai un peu de mal 🙂
Merci pour votre aide
A+

 

[Guest]

Re : aide vba

bonjour,

Ce que tu dis reviens à copier les cellules de la colonne et les coller dans la colonne A une cellule en dessous.

Sub copierCollerDecaler()
With ActiveSheet
    With .Range("B1:B" & .Range("B" & .Rows.Count).End(xlUp).Row)
        .Copy .Offset(1, -1)
    End With
End With
End Sub

A+

 

[Guest]

Re : aide vba

Hello Jean-Marcel,

Attends la suite car s'il y a des données dans la colonne A😱
Ne serait-ce pas, à ce moment là, bibi le fonceur tête baissée????😀😀😀
A+++

 

[Pierrot93]

Re : aide vba

Bonjour à tous,

Aarf pas compris la même chose...

j'ai vu ceci :

colonne B et pour chaque cellule non vide

donc, peut être ...

Sub test()
Dim c As Range
For Each c In Range("B2:B" & Range("B65536").End(xlUp).Row)
    If Not IsEmpty(c) Then c.Copy Range("A65536").End(xlUp)(2)
Next c
End Sub

bonne soirée
@+

 

[Pierrot93]

Re : aide vba

Re

@Jean-Marcel

Mais si la cellule de destination est occupée ( c'est pas précisé)

copiera dans la cellule en dessous de la dernière cellule renseignée de la colonne A...

Range("A65536").End(xlUp)([B][COLOR="Blue"]2[/COLOR][/B])

@+

 

[Pierrot93]

Re : aide vba

Re

donne ceci en colonne A à partir de A2, pas de cellule vide...

fs<f
sfs
sfs
fsq
fs
f
ghwdfg

 

[Guest]

Re : aide vba

Re,

Amusons-nous.

Cela pourrait-être aussi:

With ActiveSheet
    With .Range("B1:B" & .Range("B" & .Rows.Count).End(xlUp).Row)
        .SpecialCells(xlCellTypeConstants).Copy Range("A65536").End(xlUp)(2)
    End With
End With

Mais comme l'ami test_2b a disparu, le saura-t-on jamais.

A+
A++ Pierrot, Jean-Marcel

 

[test_2be]

Re : aide vba

Salut à tous,

Merci pour votre rapidité.
J'ai testé le code de Pierrot qui a l'air de convenir le mieux à ce que je veux faire.
Pour info, c'est bien toutes les cellules non vides de la colonne B que je veux copier.
Les cellules sont bien copiées dans la colonne A mais pas au niveau de A+1
Toutes les cellules sont copiées en fin de colonne A.
Je cherche encore un peu...

 

[Guest]

Re : aide vba

RE,

Et si tu nous faisais un fichier exemple avec ce que tu as et ce que tu souhaites.

A+

 

[test_2be]

Re : aide vba

Re,

Je pense en effet que ce sera plus facile avec un exemple.
Voici un petit fichier où c'est expliqué
Encore merci

 

[Guest]

Re : aide vba

Re,

Sub CopierDécaler()
With ActiveSheet
    Dim c
      For Each c In .Range("B6:B" & .Range("B" & .Rows.Count).End(xlUp).Row)
        If Not IsEmpty(c) Then
            .Cells(c.Row + 1, 1) = c
            Set c = c.Offset(1)
        End If
      Next c
End With
End Sub

A+

 

[test_2be]

Re : aide vba

Re,

Et bien un tout grand merci , ça me donne le résultat que j'attendais !!
En effet, un petit exemple vaut mieux que de longues explications.

C'est cool d'avoir consacrer du temps à mon problème...et surtout de m'avoir apporté une solution.

A+