Copie de cellules non vides

[mathcyber]

Bonjour,

Ma revoici... Je recherche depuis ce matin avant de venir poster mais tjs pas de solutions... En espérant que vous m'en apporterez une 😉

J'explique voici par exemple les colonnes A et B :

A B
1
1
1
2
2
2

J'aimerais que la macro aille à la première cellule vide de colonne A et qu'il copie la colonne 2 dans A mais seulement quand A est vide.
Je finis en supprimant ma colonne B...

Pourriez vous m'aider ?

MERCI DAVANCE !!!!!!!!!!!!!!!

 

[mathcyber]

Re : Copie de cellules non vides

euh vous aurez compris le 2 est en dessous du B

 

[bqtr]

Re : Copie de cellules non vides

Bonsoir

Avec ce que je comprends essaye ceci:

Sub Copie_Supp()

With ActiveSheet
 .Range("B1:B" & .Range("B65536").End(xlUp).Row).Copy .Range("A65536").End(xlUp).Offset(1, 0)
 .Range("B1:B" & .Range("B65536").End(xlUp).Row).Clear
End With

End Sub

Le code copie la colonne B de B1 à la dernière cellule pleine de la colonne B dans la première cellule vide de la colonne A rencontrée en partant du bas de la colonne.
La colonne B est ensuite effacée.

Bonne soirée

 

[mathcyber]

Re : Copie de cellules non vides

Je viens de tester mais pas de chance , ca ne marche pas ,

La colonne B est bien supprimée mais ce qu'il y avait dedans ne rempli pas les champs vide de A....
Je dois remplir les champs vides de A avec la colonne B mais SEULEMENT quand A est vide...

Si vous avez une soluce vous me sauvez 😉

 

[bqtr]

Re : Copie de cellules non vides

Re bonjour,

Alors essaye comme ceci:

Sub Copie_Supp2()

Dim k As Long

k = 1
With ActiveSheet
  Do
    .Cells(k, 2).Copy .Range("A1").End(xlDown).Offset(1, 0)
    k = k + 1
  Loop While Cells(k, 2) <> ""
  .Range("B1:B" & .Range("B65536").End(xlUp).Row).Clear
End With

End Sub

Ce code bouche les trous de la colonne A avec les données de la colonne B.

A+

 

[mathcyber]

Re : Copie de cellules non vides

Désolé de t'embêter encore...

Mais même situation ca me supprime la colonne B sans la copier dans les cellules vides de la colonne A...

Je désespère ! 2 jours que je suis dessus et ca me semblait ultra simple !!!!

Lol en tt cas merci de ton aide si qqun a dautres suggestions qu'il n'hésite pas !!!!

 

[bqtr]

Re : Copie de cellules non vides

Re,

Ben là va falloir mettre ton fichier en exemple.
Les deux codes fonctionnent très bien, ils ne font pas exactement la même chose mais les données de la colonne B sont bien copiées dans la colonne A.

A+

 

[pierrejean]

Re : Copie de cellules non vides

bonjour mathcyber

Salut Pierre Olivier 🙂

A tester:

Sub test()
Dim n As Integer
For n = 1 To Range("A65536").End(xlUp).Row
  If Range("A" & n) = "" Then Range("A" & n) = Range("B" & n)
Next n
Columns(2).ClearContents
End Sub

Edit:
@ Pierre Olivier
dans les 2 cas tes macros ajoutent en fin de colonne A ce qui n'a pas été transféré de la colonne B

 

[Lii]

Re : Copie de cellules non vides

Re à tous,

Nouveau code :

Sub test3() 
Dim N1%, N2%, Li%, Derli%
For N1 = 1 To Range("B65536").End(xlUp).Row
  Derli = Range("A65536").End(xlUp).Row
  For N2 = 2 To Derli + 1
    If Range("A" & N2) = "" Then
      Range("A" & N2) = Range("B" & N1)
      Exit For
    End If
  Next N2
Next N1
Columns(2).ClearContents
End Sub

Voir fichier joint pour comparatif des différentes propositions.

 

[bqtr]

Re : Copie de cellules non vides

Salut pierrejean 🙂

Pas exactement,

Le premier copie la colonne B dans la colonne A à partir de la première cellule non vide de la colonne A. (prise en partant du bas A65536.end(xlup))

Le deuxième bouche les trous de la colonne A avec les données de la colonne B en partant de A1 et si il n'y a plus de trous à boucher les données sont copiées les une en dessous des autres à la fin de la colonne A.

Ton code est une autre façon de voir le problème.

bonne journée

Edit: bonjour Lii

 

[pierrejean]

Re : Copie de cellules non vides

Re

Salut Lii 🙂

parfaite illustration de ce que je dis bien souvent

Un fichier exemple nous en dit toujours plus que tout autre chose

nous avons tous trois résolu un problème different ( et peut-etre même pas celui du demandeur !! )