Couper-coller sous conditions.
#1
Débutant XLPages

Inscription: 06/10/2018
De Var

Messages: 3

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 07-10 12h37

Bonjour à tous.

Très beau travail sur se site que je viens de découvrir.
Bien, j'ai un petit pb avec une base de données sous Excel, je joins le fichier exemple.
Concerne les colonnes F et H, en G j'ai mis une formule, en fait il y a deux formules, qui me renvoient bien ce que je cherche, mais ne font pas tout le travail.
Si formule en G.

Ce que je désire.
Vérifier si cellules colonne F contient texte "Info", si c'est le cas, couper coller la totalité des valeurs de cette cellule en colonne H, même ligne.
Si nous passons par une macro, ce sera F et G, (la G actuelle sera supprimée).
Voilà pour l'instant mon pb, j'attends vos suggestions.
Encore un grand merci à toute l'équipe pour la tenue de ce site.

Bien cordialement.

Pièce jointe:
xlsx 06_TTES aires_Exemple.xlsx   [ Taille: 18.66 Ko - Téléchargements: 4 ]
Hors Ligne
Rapport   Haut 

Re: Couper-coller sous conditions.
#2
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1483

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016
Posté le : 08-10 09h05

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,


Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Couper-coller sous conditions.
#3
Débutant XLPages

Inscription: 06/10/2018
De Var

Messages: 3

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 08-10 13h32

Bonjour et merci Didier, je viens juste d'en prendre connaissance, le temps de trouver comment l'intégrer dans le VBA et je reviens pour le retour.

 

Bien je suis de retour, la macro fonctionne à merveille, merci pour les explications dans le texte, ça va me permettre de l'adapter pour d'autres colonnes.

J'apprécie les réponses nettes, claires, précises, sans fioritures ni et surtout sans pollueurs de site

Encore un grand MERCI

Cordialement.

Hors Ligne
Rapport   Haut 

Re: Couper-coller sous conditions.
#4
Débutant XLPages

Inscription: 06/10/2018
De Var

Messages: 3

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 08-10 13h35

Problème résolut.

Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes