Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel deplacer une plage de cellules

deplacer une plage de cellules

6 réponses
Avatar
elli6258
Bonsoir,
Je souhaite faire une macro qui scrute la colonne A et qui si elle rencontre
un mot commençant par"ou" sélectionne sa cellule et les 3 cellules sur sa
droite, et les insères dans la 7 eme colonne.

ce que j'ai:

HYGROMETRIE 12/06/08 03/10/08
OU-00000731 x 12/06/08 03/10/08 d d


ce que je souhaite

HYGROMETRIE 12/06/08 03/10/08 VAL
OU-00000731 x 12/06/08 03/10/08 d



J'ai essayé ceci mais ca ne marche pas :
Dim m As Range
For Each m In Range("A1:A" & Range("A655356").End(xlUp).Row)
If Left(Cells, 2) = "ou" Then
m.Offset(0, 7).Select
Selection.Insert Shift = xlToRight
Next m

Merci d'avance
Signaler un problème avec ce contenu

6 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
Philippe.R
Bonsoir,
Et si tu remplaces :
If Left(Cells, 2) = "ou" Then

par
If Left(m.value, 2) = "ou" Then

y a t'y du mieux ?
--
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/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"elli6258" a écrit dans le message de
news:%
Bonsoir,
Je souhaite faire une macro qui scrute la colonne A et qui si elle
rencontre un mot commençant par"ou" sélectionne sa cellule et les 3
cellules sur sa droite, et les insères dans la 7 eme colonne.

ce que j'ai:

HYGROMETRIE 12/06/08 03/10/08
OU-00000731 x 12/06/08 03/10/08 d d


ce que je souhaite

HYGROMETRIE 12/06/08 03/10/08 VAL
OU-00000731 x 12/06/08 03/10/08 d



J'ai essayé ceci mais ca ne marche pas :
Dim m As Range
For Each m In Range("A1:A" & Range("A655356").End(xlUp).Row)
If Left(Cells, 2) = "ou" Then
m.Offset(0, 7).Select
Selection.Insert Shift = xlToRight
Next m

Merci d'avance



Avatar
elli6258
Bonjour,
je viens d'essayer cela ne change rien.

Dim m As Range
For Each m In Range("A1:A" & Range("A655356").End(xlUp).Row)
If Left(m.value, 2) = "ou" Then
m.Offset(0, 7).Select
Selection.Insert Shift = xlToRight
End If




Next m

Aucun message d'erreur, j'ai l'impression que la macro ne reconnaît pas le
mot"ou".
J'ai mis un fichier en pièce jointe, car apparemment le copier coller d'un
fichier excel ne marche pas dans outloock.

http://cjoint.com/?iDnhPAp8Ae
Merci
Michel





"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:

Bonsoir,
Et si tu remplaces :
If Left(Cells, 2) = "ou" Then

par
If Left(m.value, 2) = "ou" Then

y a t'y du mieux ?
--
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/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"elli6258" a écrit dans le message de
news:%
Bonsoir,
Je souhaite faire une macro qui scrute la colonne A et qui si elle
rencontre un mot commençant par"ou" sélectionne sa cellule et les 3
cellules sur sa droite, et les insères dans la 7 eme colonne.

ce que j'ai:

HYGROMETRIE 12/06/08 03/10/08
OU-00000731 x 12/06/08 03/10/08 d d


ce que je souhaite

HYGROMETRIE 12/06/08 03/10/08 VAL
OU-00000731 x 12/06/08 03/10/08 d



J'ai essayé ceci mais ca ne marche pas :
Dim m As Range
For Each m In Range("A1:A" & Range("A655356").End(xlUp).Row)
If Left(Cells, 2) = "ou" Then
m.Offset(0, 7).Select
Selection.Insert Shift = xlToRight
Next m

Merci d'avance






Avatar
Philippe.R
Bonjour,
Et comme ceci (à tester sur une copie de ton classeur)
Sub inslg()
Dim m As Range
For Each m In Range("A1:A" & Range("A65536"). _
End(xlUp).Row)
If Left(m.Value, 2) = "ou" Then
m.Offset(0, 7).Value = m.Value
m.ClearContents
End If
Next m
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/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"elli6258" a écrit dans le message de
news:
Bonjour,
je viens d'essayer cela ne change rien.

Dim m As Range
For Each m In Range("A1:A" & Range("A655356").End(xlUp).Row)
If Left(m.value, 2) = "ou" Then
m.Offset(0, 7).Select
Selection.Insert Shift = xlToRight
End If




Next m

Aucun message d'erreur, j'ai l'impression que la macro ne reconnaît pas le
mot"ou".
J'ai mis un fichier en pièce jointe, car apparemment le copier coller d'un
fichier excel ne marche pas dans outloock.

http://cjoint.com/?iDnhPAp8Ae
Merci
Michel





"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:

Bonsoir,
Et si tu remplaces :
If Left(Cells, 2) = "ou" Then

par
If Left(m.value, 2) = "ou" Then

y a t'y du mieux ?
--
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/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"elli6258" a écrit dans le message de
news:%
Bonsoir,
Je souhaite faire une macro qui scrute la colonne A et qui si elle
rencontre un mot commençant par"ou" sélectionne sa cellule et les 3
cellules sur sa droite, et les insères dans la 7 eme colonne.

ce que j'ai:

HYGROMETRIE 12/06/08 03/10/08
OU-00000731 x 12/06/08 03/10/08 d d


ce que je souhaite

HYGROMETRIE 12/06/08 03/10/08 VAL
OU-00000731 x 12/06/08 03/10/08 d



J'ai essayé ceci mais ca ne marche pas :
Dim m As Range
For Each m In Range("A1:A" & Range("A655356").End(xlUp).Row)
If Left(Cells, 2) = "ou" Then
m.Offset(0, 7).Select
Selection.Insert Shift = xlToRight
Next m

Merci d'avance










Avatar
elli6258
Ca fonctionne !, l'autre problème était majuscule dans le fichier /minuscule
dans la macro.
Encore Merci

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
e1$
Bonjour,
Et comme ceci (à tester sur une copie de ton classeur)
Sub inslg()
Dim m As Range
For Each m In Range("A1:A" & Range("A65536"). _
End(xlUp).Row)
If Left(m.Value, 2) = "ou" Then
m.Offset(0, 7).Value = m.Value
m.ClearContents
End If
Next m
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/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"elli6258" a écrit dans le message de
news:
Bonjour,
je viens d'essayer cela ne change rien.

Dim m As Range
For Each m In Range("A1:A" & Range("A655356").End(xlUp).Row)
If Left(m.value, 2) = "ou" Then
m.Offset(0, 7).Select
Selection.Insert Shift = xlToRight
End If




Next m

Aucun message d'erreur, j'ai l'impression que la macro ne reconnaît pas
le mot"ou".
J'ai mis un fichier en pièce jointe, car apparemment le copier coller
d'un fichier excel ne marche pas dans outloock.

http://cjoint.com/?iDnhPAp8Ae
Merci
Michel





"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:
Bonsoir,
Et si tu remplaces :
If Left(Cells, 2) = "ou" Then

par
If Left(m.value, 2) = "ou" Then

y a t'y du mieux ?
--
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/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"elli6258" a écrit dans le message de
news:%
Bonsoir,
Je souhaite faire une macro qui scrute la colonne A et qui si elle
rencontre un mot commençant par"ou" sélectionne sa cellule et les 3
cellules sur sa droite, et les insères dans la 7 eme colonne.

ce que j'ai:

HYGROMETRIE 12/06/08 03/10/08
OU-00000731 x 12/06/08 03/10/08 d d


ce que je souhaite

HYGROMETRIE 12/06/08 03/10/08 VAL
OU-00000731 x 12/06/08 03/10/08 d



J'ai essayé ceci mais ca ne marche pas :
Dim m As Range
For Each m In Range("A1:A" & Range("A655356").End(xlUp).Row)
If Left(Cells, 2) = "ou" Then
m.Offset(0, 7).Select
Selection.Insert Shift = xlToRight
Next m

Merci d'avance













Avatar
Philippe.R
Re,
Pour résoudre les problèmes liés aux différences de caractères, on peut
utiliser

Sub inslg_2()
Dim m As Range
For Each m In Range("A1:A" & Range("A65536"). _
End(xlUp).Row)
If ucase(Left(m.Value, 2)) = "OU" Then
m.Offset(0, 7).Value = m.Value
m.ClearContents
End If
Next m
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/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"elli6258" a écrit dans le message de
news:

Ca fonctionne !, l'autre problème était majuscule dans le fichier
/minuscule dans la macro.
Encore Merci

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
e1$
Bonjour,
Et comme ceci (à tester sur une copie de ton classeur)
Sub inslg()
Dim m As Range
For Each m In Range("A1:A" & Range("A65536"). _
End(xlUp).Row)
If Left(m.Value, 2) = "ou" Then
m.Offset(0, 7).Value = m.Value
m.ClearContents
End If
Next m
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/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"elli6258" a écrit dans le message de
news:
Bonjour,
je viens d'essayer cela ne change rien.

Dim m As Range
For Each m In Range("A1:A" & Range("A655356").End(xlUp).Row)
If Left(m.value, 2) = "ou" Then
m.Offset(0, 7).Select
Selection.Insert Shift = xlToRight
End If




Next m

Aucun message d'erreur, j'ai l'impression que la macro ne reconnaît pas
le mot"ou".
J'ai mis un fichier en pièce jointe, car apparemment le copier coller
d'un fichier excel ne marche pas dans outloock.

http://cjoint.com/?iDnhPAp8Ae
Merci
Michel





"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:
Bonsoir,
Et si tu remplaces :
If Left(Cells, 2) = "ou" Then

par
If Left(m.value, 2) = "ou" Then

y a t'y du mieux ?
--
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/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"elli6258" a écrit dans le message de
news:%
Bonsoir,
Je souhaite faire une macro qui scrute la colonne A et qui si elle
rencontre un mot commençant par"ou" sélectionne sa cellule et les 3
cellules sur sa droite, et les insères dans la 7 eme colonne.

ce que j'ai:

HYGROMETRIE 12/06/08 03/10/08
OU-00000731 x 12/06/08 03/10/08 d d


ce que je souhaite

HYGROMETRIE 12/06/08 03/10/08 VAL
OU-00000731 x 12/06/08 03/10/08 d



J'ai essayé ceci mais ca ne marche pas :
Dim m As Range
For Each m In Range("A1:A" & Range("A655356").End(xlUp).Row)
If Left(Cells, 2) = "ou" Then
m.Offset(0, 7).Select
Selection.Insert Shift = xlToRight
Next m

Merci d'avance

















Avatar
elli6258
Ok ,j'ai pris en compte ta proposition,d'utiliser Ucase.
Cordialement.

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
eD1$
Re,
Pour résoudre les problèmes liés aux différences de caractères, on peut
utiliser

Sub inslg_2()
Dim m As Range
For Each m In Range("A1:A" & Range("A65536"). _
End(xlUp).Row)
If ucase(Left(m.Value, 2)) = "OU" Then
m.Offset(0, 7).Value = m.Value
m.ClearContents
End If
Next m
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/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"elli6258" a écrit dans le message de
news:

Ca fonctionne !, l'autre problème était majuscule dans le fichier
/minuscule dans la macro.
Encore Merci

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news: e1$
Bonjour,
Et comme ceci (à tester sur une copie de ton classeur)
Sub inslg()
Dim m As Range
For Each m In Range("A1:A" & Range("A65536"). _
End(xlUp).Row)
If Left(m.Value, 2) = "ou" Then
m.Offset(0, 7).Value = m.Value
m.ClearContents
End If
Next m
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/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"elli6258" a écrit dans le message de
news:
Bonjour,
je viens d'essayer cela ne change rien.

Dim m As Range
For Each m In Range("A1:A" & Range("A655356").End(xlUp).Row)
If Left(m.value, 2) = "ou" Then
m.Offset(0, 7).Select
Selection.Insert Shift = xlToRight
End If




Next m

Aucun message d'erreur, j'ai l'impression que la macro ne reconnaît pas
le mot"ou".
J'ai mis un fichier en pièce jointe, car apparemment le copier coller
d'un fichier excel ne marche pas dans outloock.

http://cjoint.com/?iDnhPAp8Ae
Merci
Michel





"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:
Bonsoir,
Et si tu remplaces :
If Left(Cells, 2) = "ou" Then

par
If Left(m.value, 2) = "ou" Then

y a t'y du mieux ?
--
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/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"elli6258" a écrit dans le message de
news:%
Bonsoir,
Je souhaite faire une macro qui scrute la colonne A et qui si elle
rencontre un mot commençant par"ou" sélectionne sa cellule et les 3
cellules sur sa droite, et les insères dans la 7 eme colonne.

ce que j'ai:

HYGROMETRIE 12/06/08 03/10/08
OU-00000731 x 12/06/08 03/10/08 d d


ce que je souhaite

HYGROMETRIE 12/06/08 03/10/08 VAL
OU-00000731 x 12/06/08 03/10/08 d



J'ai essayé ceci mais ca ne marche pas :
Dim m As Range
For Each m In Range("A1:A" & Range("A655356").End(xlUp).Row)
If Left(Cells, 2) = "ou" Then
m.Offset(0, 7).Select
Selection.Insert Shift = xlToRight
Next m

Merci d'avance