Rapport de message :*
 

Re: Couper-coller sous conditions.

Titre du sujet : Re: Couper-coller sous conditions.
par myDearFriend! le 08/10/2018 09:05:01

Bonjour Alain06, bienvenue sur XLpages.com smiley

 

Voici une suggestion de macro VBA :

DANS UN MODULE DE CODE STANDARD (exemple : Module1)

Option Explicit

Sub TraitementColF()
'myDearFriend! www.mdf-xlpages.com
Dim Plage As Range, R As Range
    '"Feuil1" à adapter
    Set Plage = Sheets("Feuil1").UsedRange.Columns(6)
    'Pour chaque cellule colonne F
    For Each R In Plage.Cells
        'Si commence par "Info :"
        If R.Value Like "Info :*" Then
            'On copie les données dans la colonne qui suit (G)
            R.Offset(0, 1).Value = R.Value
            'On efface la donnée en colonne F
            R.ClearContents
        End If
    Next R
End Sub

 

En espérant que ça te dépanne...

 

Bien cordialement,