Macro pour insérer une cellule

[antoine340000]

Bonjour,

Je recherche une macro qui me permettrait d'insérer une cellule avant une cellule qui est au format date ; Exemple :
cellule A1 : 0349382930
cellule A2 : 05/11/2009
cellule A3 : 19/02/1997
cellule A4 : 0539483727
cellule A5 : 23/07/1933
Il faudrait une macro qui me permette d'insérer une cellule à gauche des cellules A2, A3, A5 uniquement (mon fichier compte évidemment bien plus que 5 cellules)

Merci de vos réponses!

 

[jpb388]

Re : Macro pour insérer une cellule

Bonjour à tous
pour 1 colonne

Columns("A:A").insert sihft:=xltoright,copyorigin:=xlformatfromleftorabove

pour 1 range

range("A11").insert sihft:=xltoright,copyorigin:=xlformatfromleftorabove

 

[antoine340000]

Re : Macro pour insérer une cellule

Merci de la réponse mais ce n'est pas tout à fait ce que je demandais! je veux insérer une cellule devant une cellule qui a un format date :
si j'ai A1 = 23/09/2012 je veux insérer une cellule devant A1. Par contre si A1=03202939839 là je ne veux rien insérer.
Ou alors je n'ai pas bien compris le code! c'est possible aussi!

 

[Papou-net]

Re : Macro pour insérer une cellule

Bonjour antoine340000, jpb388,

Il faut ajouter une condition pour vérifier le contenu de la cellule :

Private Sub CommandButton1_Click()
For Each cel In Range("A:A").SpecialCells(xlCellTypeConstants)
  If IsDate(cel.Value) Then cel.Insert shift:=xlToRight, copyorigin:=xlFormatFromLeftOrAbove
Next
End Sub

Voir fichier ci-joint.

Bon dimanche.

Cordialement.

 

[Papou-net]

Re : Macro pour insérer une cellule

RE

Petit ajout pour améliorer la rapidité d'exécution :

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
For Each cel In Range("A:A").SpecialCells(xlCellTypeConstants)
  If IsDate(cel.Value) Then cel.Insert shift:=xlToRight, copyorigin:=xlFormatFromLeftOrAbove
Next
Application.ScreenUpdating = True
End Sub

Cordialement.

 

[jpb388]

Re : Macro pour insérer une cellule

Bonjour à tous, antoine340000,Papou_Net
excuse moi j'ai mal lu la question en effet après relecture tu parle bien des cellules ayant le format date donc condition
merci Papou-net

 

[antoine340000]

Re : Macro pour insérer une cellule

Bonjour antoine340000, jpb388,

Il faut ajouter une condition pour vérifier le contenu de la cellule :

Private Sub CommandButton1_Click()
For Each cel In Range("A:A").SpecialCells(xlCellTypeConstants)
  If IsDate(cel.Value) Then cel.Insert shift:=xlToRight, copyorigin:=xlFormatFromLeftOrAbove
Next
End Sub

Voir fichier ci-joint.

Bon dimanche.

Cordialement.

Super ça fonctionne très bien! Merci beaucoup à tous