Pourriez vous me donner le code VBA permettant de rechercher une chaine de
carateres dans une feuille et lorsque celle ci est trouvée, la déplacer 7
cellules vers la droite?
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
Daniel
Bonjour. Essaie le code suivant (non testé; reste à gérer la limite de 256 colonnes et la possibilité d'une cellule commençant par *%$£)
Dim c As Range, plage As Range, Chaine As String Chaine = InputBox("Entrez la chaîne à chercher") Set plage = Cells For Each c In plage Var = InStr(1, c.Value, Chaine) If InStr(1, c.Value, Chaine) > 0 And Left(c.Value, 4) <> "*%$£" Then c.Cut c.Offset(0, 7).Select ActiveSheet.Paste ActiveCell.Value = "*%$£" & ActiveCell.Value End If Next c For Each c In plage If Left(c, 4) = "*%$£" Then c.Value = Right(c.Value, Len(c.Value) - 4) End If Next c
Cordialement. Daniel "Olivier" a écrit dans le message de news: d6vb81$fmg$
Bonjour,
Pourriez vous me donner le code VBA permettant de rechercher une chaine de carateres dans une feuille et lorsque celle ci est trouvée, la déplacer 7 cellules vers la droite?
merci d'avance Olivier
Bonjour.
Essaie le code suivant (non testé; reste à gérer la limite de 256 colonnes
et la possibilité d'une cellule commençant par *%$£)
Dim c As Range, plage As Range, Chaine As String
Chaine = InputBox("Entrez la chaîne à chercher")
Set plage = Cells
For Each c In plage
Var = InStr(1, c.Value, Chaine)
If InStr(1, c.Value, Chaine) > 0 And Left(c.Value, 4) <> "*%$£" Then
c.Cut
c.Offset(0, 7).Select
ActiveSheet.Paste
ActiveCell.Value = "*%$£" & ActiveCell.Value
End If
Next c
For Each c In plage
If Left(c, 4) = "*%$£" Then
c.Value = Right(c.Value, Len(c.Value) - 4)
End If
Next c
Cordialement.
Daniel
"Olivier" <opontecaille@partnerinterim.com> a écrit dans le message de news:
d6vb81$fmg$1@s1.news.oleane.net...
Bonjour,
Pourriez vous me donner le code VBA permettant de rechercher une chaine de
carateres dans une feuille et lorsque celle ci est trouvée, la déplacer 7
cellules vers la droite?
Bonjour. Essaie le code suivant (non testé; reste à gérer la limite de 256 colonnes et la possibilité d'une cellule commençant par *%$£)
Dim c As Range, plage As Range, Chaine As String Chaine = InputBox("Entrez la chaîne à chercher") Set plage = Cells For Each c In plage Var = InStr(1, c.Value, Chaine) If InStr(1, c.Value, Chaine) > 0 And Left(c.Value, 4) <> "*%$£" Then c.Cut c.Offset(0, 7).Select ActiveSheet.Paste ActiveCell.Value = "*%$£" & ActiveCell.Value End If Next c For Each c In plage If Left(c, 4) = "*%$£" Then c.Value = Right(c.Value, Len(c.Value) - 4) End If Next c
Cordialement. Daniel "Olivier" a écrit dans le message de news: d6vb81$fmg$
Bonjour,
Pourriez vous me donner le code VBA permettant de rechercher une chaine de carateres dans une feuille et lorsque celle ci est trouvée, la déplacer 7 cellules vers la droite?