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

[RCAVBA]

Bonjour,

Je souhaiterais copier les valeurs de toute la colonne G et les coller en colonne H tout en ignorant les cellules vides.

Ci-joint un fichier avec les deux colonnes.

Je souhaiterais appliquer le code sur toute la colonne.

Merci à vous,

Colonne G​	Colonne H​
b​	2​
	3​
	4​
	5​
f​	6​
faa​	7​
	8​
	9​
	10​
dzdz​	11​
	12​
	13​
fqfqd​	14​
	15​
	16​
fdfd​	17​

 

[mapomme]

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

 

[RCAVBA]

Bonjour @mapomme,

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

Merci

 

[mapomme]

Re,

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

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

 

[mapomme]

Re,

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

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

 

[RCAVBA]

Super !!
Merci beaucoup