decaler texte colonne vba

Le
lauxeti
Bonjour,

Je recherche une solution en vba pour decaler d'une colonne si j'ai du
texte dans la colonne A

ex
colonne A colonne x colonne y
A A
1 1
B B
2 2


Merci pour vos reponses
Le Lauxeti
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Caetera
Le #20285221
"lauxeti"
Bonjour,

Je recherche une solution en vba pour decaler d'une colonne si j'ai du
texte dans la colonne A

ex
colonne A colonne x colonne y
A A
1 1
B B
2 2
...



**************

Sub Atester()
For Each c In Range("A1", [A65536].End(xlUp))
If Application.IsText(c) Then Range("Y" & c.Row) = c.Value
If IsNumeric(c) Then Range("X" & c.Row) = c.Value
Next
End Sub

Etc
Philippe.R
Le #20285191
Bonjour,
On pourrait avoir qqch comme

Sub decale()
Dim c As Range
For Each c In Selection
lacol = 2 + IIf(IsNumeric(c.Value), 1, 0)
Cells(c.Row, lacol).Value = c.Value
Next c
End Sub

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"lauxeti" news:
Bonjour,

Je recherche une solution en vba pour decaler d'une colonne si j'ai du
texte dans la colonne A

ex
colonne A colonne x colonne y
A A
1 1
B B
2 2
...

Merci pour vos reponses
Le Lauxeti


lauxeti
Le #20285371
On 4 oct, 07:50, "Caetera"
"lauxeti"

> Bonjour,

> Je recherche une solution en vba pour decaler d'une colonne si j'ai du
> texte dans la colonne A

> ex
> colonne A                colonne x  colonne y
> A                                                  A
> 1                                  1
> B                                                  B
> 2                                  2
> ...

**************

Sub Atester()
For Each c In Range("A1", [A65536].End(xlUp))
      If Application.IsText(c) Then Range("Y" & c.Row) = c.Value
      If IsNumeric(c) Then Range("X" & c.Row) = c.Value
Next
End Sub

Etc



Merci de vos reponses
Cordialement
Le Lauxeti
Publicité
Poster une réponse
Anonyme