Copie de cellules non vides

M

mathcyber

Guest

• 3 Juin 2008

• #2

Re : Copie de cellules non vides

euh vous aurez compris le 2 est en dessous du B

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 3 Juin 2008

• #3

Re : Copie de cellules non vides

Bonsoir

Avec ce que je comprends essaye ceci:

Code:

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

 

Vote positif 0 Vote négatif

M

mathcyber

Guest

• 4 Juin 2008

• #4

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 😉

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 4 Juin 2008

• #5

Re : Copie de cellules non vides

Re bonjour,

Alors essaye comme ceci:

Code:

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+

 

Vote positif 0 Vote négatif

M

mathcyber

Guest

• 4 Juin 2008

• #6

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

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 4 Juin 2008

• #7

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+

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 4 Juin 2008

• #8

Re : Copie de cellules non vides

bonjour mathcyber

Salut Pierre Olivier 🙂

A tester:

Code:

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

 

Dernière édition: 4 Juin 2008

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 4 Juin 2008

• #9

Re : Copie de cellules non vides

Re à tous,

Nouveau code :

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.

 

Pièces jointes

• DéplaceDansVide.zip

  13.3 KB · Affichages: 35

Dernière édition: 4 Juin 2008

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 4 Juin 2008

• #10

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

 

Dernière édition: 4 Juin 2008

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 4 Juin 2008

• #11

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 !! )

 

Vote positif 0 Vote négatif