Problème pour insérer colonnes en VBA

[sanchezan]

Bonjour à tous,

J'ai un soucis pour lequel je n'ai aucune idée du "comment le résoudre". Mes connaissances VBA sont limitées !!!

J'ai une suite de cellules renseignées dans une colonne à partir de C3 jusqu'à Cx. Je sais faire, c'est moi qui renseigne les cellules

Je transpose cette suite en ligne à partir de F2. Là, je sais faire

Je souhaite ensuite insérer une colonne vide à gauche de chacune des cellules transposées. Et c'est là que je coince.

Si une bonne âme pouvait me venir en aide ...

Merci d'avance

 

[DoubleZero]

Re : Problème pour insérer colonnes en VBA

Bonjour, sanchezan, le Forum,

Peut-être ainsi :

Option Explicit
Sub Colonnes_insérer()
Application.ScreenUpdating = False
Dim c As Range
For Each c In Range("f2").CurrentRegion
If c.Value <> "" Then c.Offset(, 1).EntireColumn.Insert
Next
Application.ScreenUpdating = True
End Sub

A bientôt

 

[sanchezan]

Re : Problème pour insérer colonnes en VBA

Merci DoubleZero, ça marche nickel.
Le pseudo ne colle pas avec la rapidité et la pertinence de la réponse.