Déplacer certaines cellules

devi16 · 16 Avril 2016

Bonjour
Je voudrais pouvoir déplacer les cellules qui sont sur la colonne B est qui ont la cellule vide en colonne C vers la colonne A (Exemple RESULTAT.
Et si possible faire comme l'exemple FINAL.
C'est fichier sont des exemple le fichier final fais 3000 Ligne.
Merci de m'aider

Lone-wolf · 16 Avril 2016

Re : Copier les ligne de les cellules actives

Bonjour devi et bienvenue sur XLD

Sans fichier, difficile de t'aider.

devi16 · 16 Avril 2016

Re : Copier les ligne de les cellules actives

j'ai ajouté un exemple

Hieu · 16 Avril 2016

Re : Copier les ligne de les cellules actives

Salut,

en faisant une recherche du mot "toto" pour récupérer la ligne. puis en collant cette ligne en a9.

Code:

Sub lkjklsj()
lig = Cells.Find(What:="toto", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Row
        
Rows(lig).Copy
Range("A9").Select
ActiveSheet.Paste
        
End Sub

devi16 · 16 Avril 2016

Re : Déplacer les cellules

J'ai modifié la discutions pour qu'elle soit plus précise

Déplacer certaines cellules

devi16

XLDnaute Nouveau

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

devi16

XLDnaute Nouveau

Hieu

XLDnaute Impliqué

devi16

XLDnaute Nouveau

Discussions similaires