Microsoft 365 Copier les valeurs d'une cellules dans une autre cellule en ignorant les cellules vides

mapomme

XLDnaute Barbatruc

Supporter XLD

• 15 Mai 2020

• #2

Bonjour @imadzy,

Après avoir copié la plage de la colonne G, cliquer-droit sur la première cellule correspondante de la colonne H et choisir : Collage spécial... / Blancs non compris

 

Vote positif 0 Vote négatif

R

RCAVBA

XLDnaute Junior

• 15 Mai 2020

• #3

Bonjour @mapomme,

Merci mais je souhaite automatiser l'action via un macro.

Merci

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 15 Mai 2020

• #4

Re,

Essayez cette macro à associer à un bouton sur la feuille concernée :

Code:

Sub Test()
   Columns("G:G").Copy
   Columns("H:H").PasteSpecial SkipBlanks:=True
   Application.CutCopyMode = False
End Sub

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 15 Mai 2020

• #5

Re,

Si vous voulez conserver l'en-tête de la colonne H avec sa mise en forme, essayez :

VB:

Sub Test2()
   Range(Cells(2, "g"), Cells(Cells.SpecialCells(xlCellTypeLastCell).Row, "g")).Copy
   Range("h2").PasteSpecial SkipBlanks:=True
   Application.CutCopyMode = False
End Sub

 

Vote positif 0 Vote négatif

R

RCAVBA

XLDnaute Junior

• 15 Mai 2020

• #6

Super !!
Merci beaucoup

 

Vote positif 0 Vote négatif