Forums XLPages

Tous les messages (myDearFriend!)

1 2 3 4 ... 144 »
Re: Couper-coller sous conditions.
#1
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: Suppression de mots différents dans différentes cellules
#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 : 28-09 18h30

Bonsoir MDLF, bienvenu sur mDF-XLpages.com smiley

 

La combinaison Français/Anglais dans une même cellule ne facilite pas le problème, en effet.

Du coup, se baser sur la couleur ne me semble pas vraiment viable.

 

En observant ton fichier, on peut s'apercevoir qu'il y a des expressions qui ne changeront sans doute pas, notamment les titres de colonnes, telles que "Véhicle", "Color", "Unit amount", "Total per center for all items", etc. Peut-être est-ce aussi le cas pour les types de véhicule : "Car", "Motorcycle", "Boat", et sans doute d'autres....) et avec un peu de chance, c'est peut être encore le cas pour l'ensemble des expressions habituellement présentes dans tes documents...

 

La question est de savoir si la constitution d'une liste exhaustive des expressions (anglaises) à supprimer est imaginable ou non.

Si c'est le cas, alors une fois cette liste constituée, une simple petite macro VBA de remplacement devrait faire l'affaire.

Dans le cas contraire, je ne vois pas comment t'aider pour ma part.

 

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: Créer feuilles à partir des cellules d'une colonne
#3
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 : 16-09 17h21

Je crois que la réponse t'a déjà été donnée ICI fouggy, par l'ami Dranreb.

Je clos donc ce fil de discussions.

 

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: Problème graphique basique
#4
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 : 16-09 17h10

Bonjour KeepCool, le Forum,

 

Ta colonne de valeurs (colonne B) ne contient pas de valeurs numériques ! Elles sont donc considérées comme du texte par Excel et ne sont donc pas prises en compte pour l'élaboration de ton graphique.

 

C'est facilement repérable au premier coup d'oeil, car :

  • sans aucun format de cellule particulier, tes valeurs sont alignées sur la gauche comme un texte classique (alors que des valeurs numériques sont alignées par défaut sur la droite dans Excel).
  • le séparateur décimale en france, c'est habituellement la virgule (et non un point, comme dans ton fichier).

 

Il te faut donc convertir ces valeurs pour obtenir de "vrais" chiffres. Tu as plein de façon de faire à ta disposition : d'abords remplacer les points par des virgules, ensuite, option Données/Convertir ou une formule simple (voir l'article ICI sur CNUM() par exemple) ou modifier manuellement les données, à toi de voir... Je te laisse chercher un peu.

 

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: Excel révolu?
#5
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 : 13-09 14h03

Bonjour Cookies12, le Forum,

 

(Petite pub pour la « Revue Stileex »* au passage, Cookies12 ? wink)

 

Personnellement je n'ai pas d'avis sur les alternatives à Excel. Seulement, à ce jour : Excel (et les autres applications Microsoft Office), c'est pour moi la seule façon d'exploiter les très nombreuses possibilités qu'offre VBA pour MS Office en particulier. Chose qu'on ne retrouve malheureusement pas ailleurs...

 

Bien cordialement,

 

* Joli site que celui de l'association STILEEX, avec divers articles assez intéressants. smiley


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: Sélection de données, copie et organisation
#6
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 : 24-08 15h28

Bonjour keepCool, le Forum,

 

Navré keepCool, sur réclamations de plusieurs sites de Turf (voir ICI par exemple), nous ne pratiquons plus ce type de développement sur le présent site XLpages.

 

Merci de ta compréhension.

 

Par ailleurs, je crois que la question à l'origine de ce fil de discussion est maintenant résolue. Si tel est le cas, je te remercie de bien vouloir solder ce fil comme indiqué dans ma signature.

 

Bien évidemment, si tu as d'autres questions, tu es invité à créer une autre discussion.smiley

 

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: Sélection de données, copie et organisation
#7
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 : 23-08 20h18

Tu as tout compris smiley

 

Le problème vient bien du nom de ville qui pourrait contenir aussi un ou plusieurs tirets (je n'y avais pas pensé)!

 

On va cependant profiter du fait que lorsqu'il est inclus dans un nom composé, le tiret n'est pas précédé, ni suivi d'un espace...

 

Tu peux donc régler facilement le souci en modifiant les 2 lignes suivantes :

If Len(vText) - Len(Replace(vText, "-", "")) = 2 Then
    vDate = Mid(vText, InStr(1, vText, "-") + 2, 10)

Comme suit :

If Len(vText) - Len(Replace(vText, " - ", "")) = 6 Then
    vDate = Mid(vText, InStr(1, vText, " - ") + 3, 10)

(note la présence d'un espace avant et d'un espace après le tiret dans la deuxième version)

 

Ca devrait être bon ce coup ci !

 

Bien cordialement,

Edité par myDearFriend! le 24/08/2018 12:07:14

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: Sélection de données, copie et organisation
#8
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 : 23-08 17h36

Bonjour KeepCool, le Forum,

 

Il y a une infinité de façons de faire pour ce type d'opération.

 

Voici mon interprétation du traitement VBA :

DANS UN MODULE DE CODE STANDARD

Option Explicit

Sub Traitement()
'--------------------------------------
' myDearFriend! -  www.mdf-xlpages.com
'--------------------------------------
Dim vTab As Variant
Dim FSource As Worksheet, FCible As Worksheet
Dim Plage As Range, rLign As Range, R As Range
Dim vText As String, vDate As String, vReunion As String
Dim L As Long, C As Long, lgnDebutTab As Long, lgnFinTab As Long, Lcible As Long, CCible As Long

    Set FSource = Sheets("Feuil1 Page Web Récupérée")           'à adapter
    Set FCible = Sheets("Feuille 2 Résultat Attendu")           'à adapter
   
    'COLLECTE DONNEES
    With FSource
        'A quelle ligne commence le tableau (de 8 colonnes) ?
        lgnDebutTab = .Cells(1, 8).End(xlDown).Row              '1ère donnée rencontrée en descendant la colonne H
        If lgnDebutTab = 0 Then Exit Sub                        'si aucun tableau trouvé!
       
        'A quelle ligne se termine ce tableau ?
        lgnFinTab = .Cells(1048576, 8).End(xlUp).Row            '1ère donnée rencontrée en remontant la colonne H
        If lgnFinTab = lgnDebutTab Then Exit Sub                'si le tableau est vide!
       
        'On récupère et mémorise les données sources souhaitées dans un tableau variant
        vTab = .Range(.Cells(lgnDebutTab + 1, 1), .Cells(lgnFinTab, 8)).Value
       
        'On récupère et mémorise la Date de la course et le n° de Réunion ?
        For L = 1 To lgnDebutTab - 1
            vText = .Cells(L, 1).Value
            If Len(vText) - Len(Replace(vText, "-", "")) = 2 Then       'Il y a 2 "-" dans l'expression trouvée
                vDate = Mid(vText, InStr(1, vText, "-") + 2, 10)
                vReunion = .Cells(L - 1, 1).Value
                Exit For
            End If
        Next L
    End With
   
    'MAJ RESULTATS
    With FCible
        'On efface les anciens résultats
        .Cells.ClearContents
        'Pour chaque ligne du tableau mémorisé
        For L = 1 To UBound(vTab, 1)
            If Left(vTab(L, 1), 1) = "C" Then
                Lcible = Lcible + 1
                CCible = 2
                'Pour chaque colonne source
                For C = 1 To 8
                    Select Case C
                    Case 1
                        'Date en colonne 1
                        .Cells(Lcible, 1).Value = vDate
                        'Réunion en colonne 2
                        .Cells(Lcible, 2).Value = vReunion & vTab(L, C)
                        CCible = CCible + 1
                    Case 5, 7
                        CCible = CCible + 1
                        .Cells(Lcible, CCible).Value = vTab(L, C)
                    Case 8
                        CCible = CCible + 1
                        .Cells(Lcible, CCible).Value = Val(Mid(vTab(L, C), 21))
                    End Select
                Next C
            End If
        Next L
    End With
   
    MsgBox "Traitement terminé!"

 

En pièce jointe, ton fichier adapté en conséquence.

 

En espérant t'avoir dépanné...

 

Bien cordialement,

Pièce jointe:
xlsm PourKeepCool.xlsm   [ Taille: 33.94 Ko - Téléchargements: 28 ]

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: REALISER SUR EXCEL UNE FEUILLE
#9
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 : 09-06 18h00

Pour ma part, je suis navré Soleil, mais ce sujet est visiblement hors de ma compétence.

 

J'espère qu'Eric et d'autres pourront exploiter au mieux tes explications (voir pièces jointes dans mon post précédent) et pourront peut-être te venir en aide.

 

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: REALISER SUR EXCEL UNE FEUILLE
#10
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 : 09-06 17h22

re-Bonjour,

 

Pour aider Soleil dans sa recherche d'aide et permettre à chacun d'accéder aux pièces qui n'avaient pu être jointes :  vous trouverez ci-dessous les pièces manquantes.

 

Pour information, j'ai dû retailler le fichier Excel (et en particulier les images contenues) pour que l'ensemble puisse passer dans ce forum. J'espère ne pas avoir trop dénaturé la version originale fournie par Soleil, mais c'est un principe de base ici : on ne garde uniquement que l'essentiel dans les fichiers exemples du forum.

 

Par ailleurs, j'en ai quand même profité pour augmenter légèrement * la taille maximum autorisée pour les pièces à l'avenir : la taille maximum des pièces jointes passe de 80 ko à 100 ko maximum à partir d'aujourd'hui.

 

* Pour rappel : il n'y a aucune publicité sur mDF-XLpages. Mais l'hébergement du site n'est malheureusement pas gratuit et je ne peux pas me permettre mieux pour l'instant.

 

Bien cordialement,

Pièce jointe:
zip Explication Soleil.zip   [ Taille: 97.97 Ko - Téléchargements: 46 ]

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 

1 2 3 4 ... 144 »