Titre du sujet : Re: Couper-coller sous conditions. par myDearFriend! le 08/10/2018 09:05:01
Bonjour Alain06, bienvenue sur XLpages.com 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,
|