Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel decaler texte colonne vba

decaler texte colonne vba

3 réponses
Avatar
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
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Caetera
"lauxeti" a écrit dans le message de 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
...



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

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
Avatar
Philippe.R
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" a écrit dans le message de
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


Avatar
lauxeti
On 4 oct, 07:50, "Caetera" <EtiennePloufCahé@wanadoo.fr> wrote:
"lauxeti" a écrit dans le message de 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
> ...

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

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